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EINLEITUNG 


Der Hunger nadi Wissen 


E s ist schon faszinierend, was man 
dem C 64 alles entlocken kann. Ich 
kann mich noch an die Zeit erin¬ 
nern, als der C 64 auf den Markt kam. 

Der Eindruck, den die ersten Anzeigen 
und Testberichte hinterließen, war 
überwältigend. Eine völlig neue Dimen¬ 
sion tat sich auf: Grafik mit 320 mal 200 
Punkten, sagenhafte 64 KByte Spei¬ 
cher, Sprites und umfangreiche Sound¬ 
möglichkeiten ließen einem das Wasser 
im Mund zusammenlaufen. Aber erst 
der bis dahin unerreicht niedrige Preis 
von knappen 1500 Mark (der schnell 
auf 1300 Mark abrutschte) ließ die 
innere Kaufhürde schmelzen. Als der 
C 64 dann auf dem Tisch stand, begann 
jedoch schon das Dilemma. Das Basic 
V2.0 war erschreckend spartanisch. 

Keine Befehle für Grafik, keine für Musik. Das Handbuch half 
zwar über die ersten Hürden, warf dann jedoch mehr Fragen 
auf als Antworten zu geben. Software gab es kaum, und die 
angebotenen Programme waren zu teuer. 

Das war die Zeit der vielen Fragen und wenigen Antworten. 
Die ersten großen Entdeckungsreisen durch den C64 
begannen. Mit einer vorher kaum vorstellbaren Energie und 
Ausdauer wurde probiert, getüftelt und experimentiert. Fiel 
während eines Bummels durch ein Kaufhaus das Wort »C 64« 
oder »Commodore«, wurden die Ohren zu hochsensiblen 
Empfangsantennen mit kolossaler Richtwirkung. Jede noch 
so geringe Information wurde aufgesogen, wie wenn ein Er¬ 
trinkender nach Luft schnappt. Die Hoffnung auf eine neue 
POKE- oder PEEK-Adresse ersetzte glatt ein Mittagessen 
und machte die Nacht zum Tage. 

Das war die Zeit des Fiebers nach Informationen. Es gab 
am Anfang ja noch nichts. Kein 64’er-Magazin, keine Litera¬ 
tur. So war es überhaupt kein Wunder, daß das erste Buch 
zum C 64 ein Renner wurde. »C 64 - Intern« war wie eine 
Offenbarung. Zum erstenmal konnte der große Hunger 
gestillt werden. 

Das war die Zeit, in der man sich zurückzog, las, bis einem 
die Augen tränten. 

Der C 64 wurde innerhalb kürzester Zeit zum Verkaufsren¬ 
ner. Nach und nach gab es auch mehr Literatur. Die 
Computer-Zeitschriften reservierten immer mehr Platz für 
den C 64. Kurz nachdem er zum meistverkauften Heimcom¬ 
puter Deutschlands wurde, kam das 64’er-Magazin. Leser 
die den C 64 schon länger kannten, gaben alles was sie wuß¬ 
ten. Sie schrieben Grundlagenartikel, Testberichte, Kurse. 
Endlich bekam man jeden Monat knallharte Informationen. 
Von Profis für Anfänger, Fortgeschrittene und Kenner. Jetzt 
begann die Zeit, in der man aus dem Vollen schöpfen konnte. 

Vor allem die Kurse waren und sind so beliebt, daß für viele 
Leser lange Zeit kein Ende in Sicht war, zum Beispiel der 
Assembler-Kurs oder die Memory-Map. Einen Nachteil hat 


das Ganze aber. Sucht man eine 
bestimmte Information, müssen, wie 
zum Beispiel bei der Memory-Map, bis 
zu 18 64’er-Ausgaben durchsucht wer¬ 
den. Hier erfüllen die 64’er-Sonderhefte 
eine wichtige Funktion. Stoff, der sich 
über lange Zeit angesammelt hat, kann 
in einem Sonderheft zusammenhän¬ 
gend veröffentlicht werden. Zusammen 
mit neuen Listings, hervorragenden 
Tips & Tricks und vielen Grundlagenin¬ 
formationen wird in jedem Sonderheft 
ein Schwerpunktthema behandelt. 

In diesem Sonderheft finden Sie den 
kompletten Kurs »Memory-Map mit 
Wandervorschlägen«, der im 64’er, 
Ausgabe 11/84 begann und mit Aus¬ 
gabe 6/86 abgeschlossen wurde. Er 
behandelt die wichtigsten Speicher¬ 
zellen (Adressen) des C 64 und VC 20, erklärt deren Funk¬ 
tion und fordert anhand vieler Beispiele zum Mitmachen auf. 
Die ersten tausend Byte des C 64 kann man getrost als sein 
Kurzzeitgedächtnis bezeichnen. Mit dem Wissen über die 
Wirkung dieser Zellen lernen Sie nicht nur den Computer 
besser verstehen, sondern sind auch in der Lage, ihn zu 
beherrschen. Die »Memory-Map mit Wandervorschlägen« ist 
ein umfangreiches Nachschlagewerk, geschrieben für Ein¬ 
steiger, Fortgeschrittene und Wißbegierige. 

C 128-Besitzer bekommen vielleicht einige Probleme, weil 
nicht alle in der Memory-Map beschriebenen Adressen für 
den CI28 gelten. Deshalb gibt es einen eigenen Artikel, in 
dem die Unterschiede zum C64 erklärt und beschrieben 
werden. Wer sich mit Maschinensprache beschäftigt, ist 
noch mehr auf die Erklärung der verschiedenen Speicher¬ 
stellen angewiesen als der Basic-Programmierer. Als Assem¬ 
blerprogrammierer arbeitet man sozusagen nur mit »PEEKs 
& POKEs«. Aus diesem Grund haben wir einen Leckerbissen 
für ihn parat: Ausführlich und leicht verständlich wird erklärt, 
wie Zahlen und Zeichen ein- und ausgegeben werden, wie 
man mit ihnen rechnet, in andere Formate umwandelt, etc. 
Mathematik in Assembler ist kein leichtes Thema. Aber mit 
den Betriebssystemroutinen des C 64 und einer guten Über¬ 
sicht wird sie zum Kinderspiel. Doch auch überzeugte Basic- 
Programmierer können Systemroutinen benutzen und vor¬ 
teilhaft anwenden. Was Sie beachten müssen, welche Tricks 
Sie kennen sollten, verrät Ihnen ein eigener Artikel. Natürlich 
finden Sie zusätzlich wieder viele Listings zum Abtippen und 
vor allem jede Menge PEEKs & POKEs und kurze und inter¬ 
essante Tips & Tricks. 

Betrachtet man die heutige Situation und vergleicht sie mit 
der damaligen, oben geschilderten, so hat sich nur eines 
geändert: die verfügbare Information. Geblieben ist der Hun¬ 
ger nach Wissen, Grundlagen und Programmen. Und von 
daher kann ich jeden neuen C64-Besitzer nur beneiden. 

(Georg Klinge) 
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Das Angebot dieser Ausgabe: 

Wer keine Zeit oder Lust hat, alle Programme selbst 
in mühevoller Kleinarbeit abzuschreiben, kann wieder 
auf den bewährten Programm-Service zurückgreifen. 
Alle Programme, die mit dem Diskettensymbol H im 
Inhaltsverzeichnis gekennzeichnet sind, gibt’s auf 
Diskette. 


1 Diskette 

Bestell-Nr. L6 86 S7D 

• Inkl MwSt. Unverbindliche Preisempfehlung 


DM 29,90* 

(sFr. 24,90/öS 299,-*) 


Programme aus früheren Ausgaben: 


84'er-Ausgabo 6/86 
Bestell-Nr. L6 86 060 Diskette 
DM 26,90' (sFr. 24,90/ÖS 299,-') 

Prodisk (AdM) - Eine professionelle 
Dlskettonvorwallung 
Msstor-Text (LdM) - Die boste Text¬ 
verarbeitung zum Abtippen 
Etiketten (Basic und complllorte 
Version) - ProfosslonoBo Etiketten 
für Epson-Drucker und Kompatible 
Erweiterung zu Pseudo-Scroll (3/86) S. 77 
Zahlen elngebon mit dem Joystick S. 77 
Grafik-Erweiterung für Lores-Blldschlrm S. 79 
Garbago-Coteclion-Anzoigo (mit Beispiel) S. 79 
43007 statt 38911 Basic-Bytes 
lor C64 durch oenlalen Trick 
Eine sinnvolle Anwendung der 
FN-Anwelsung 
Super-Autostort 
Undim, Var. Dump 

(Ausgabe der nicht-DIMonsionlerten. 
nur für C128. Variablen) 

F. Key-Display (vier zusätzliche Bild¬ 
schirmzeilen, nur für C128, zeigen die 
Funktionstastenbelegung) S. 83 

Find (Baslc-Erwolterung lOr das 
Basic 7.0 des C128) S. 84 

Flashmovo (C84-Programm schneller 
laden) C128 mit Floppy 1571 S. 85 

Sprites Inverlieren (C128) S. 85 

Basic-Tool (vier zusätzliche 
Basic-Befehle für C18) S. 86 

Wahl-Cursor S. 90 

Hypra-Ass mit Dntasotto (Erweiterung) S. 96 
Von Basic zu Assembler (11 Ustings) S. 134 


S. 50 


S. 55 


S. 69 


S. 80 


S. 82 
S 82 


S. 83 


Shopmastor (konvertiert Printshop- 
Grafik zu Printmaster-Grafik) S. 101 

Read Vlzawrite und VI-Co-CC S. 163 

Shados und Synth Dive (zwei Super- 
Musikstücke) S. 173 

64’er-Ausgabo 5/86 
Bestell-Nr. L6 86 OSD Diskette 
DM 29,90' (sFr. 24,90/OS 299,-') 

64or DOS V3 S. 10 

Gralik und Computeranimation S. 18 

Fantastische Grafik S. 29 

Disk-Wizard (LdM) S. 54 

Super Hardcoplos für Epson- 
Drucker und Kompatible S. 63 

Greatprint - Gro8e Zeichen auf 
dem Bildschirm (mH Domo) S. 69 

Super Hardcopy (Epson. 1520, CP BOX) S. 70 

Der »Epson-Plotter. S. 79 

Charakter-Editor S. 81 

Stool-Slab (Spielokstlng) S. 86 

TlpsiTricks zum C128 
Marge S. 95 

Spriteslow S. 97 

Old S. 98 

Eingabe S. 98 

TipsSTricks für Profis 

Alle Pokos S. 99 

Outadr S. 100 

Array-Sort S. 100 

Basic-Programme im Interrupt S. 103 

Neue Modulo für Hypra-Baslc S 103 

Pascal-Kurs Zeichen S. 142 

Joseph S. 142 

Matrlmult - ein Programm zur 
Multiplikation beliebiger Matrizen S. 145 

AdroBprogramm mit Suporbaso 64 S. 166 

Zvlza - Zeichensatz für Vizawrlte S. 171 


64’or-Ausgabe 4/86 
Bostoll-Nr. L6 86 040 Diskette 
DM 29,90' (sFr. 24,90/ÖS 299,-r) 

Quizmaster 
Hypra Basic 

Druckroutine zu DATABASE (DB II) 

Hardmaker 

Synchro Justage 

Mlcro-Tagebuch 

Ex-Une 

Soft-Flash - Trick an der Floppy 

Strich-Cursor 

Upsldo Down - 

Droht den Bildschirm um 180 Grad 
Disk-Optimizer - 
Basic und Compllorverslon 
Apfelmannchen 

Autochange - Ihr C128 springt 
auw... ;"'-ch ln den richtigen Modus 

Twtzykl an - 

Für Basic und Maschinenprogramme 

64'er-Ausgabe 3/86 

Bestell-Nr. L6 86 03D Diskette 

DM 29,90' (sFr. 24.90/ÖS 299.-') 

64’or-Ausgabe 2/86 

Bestell-Nr. L6 86 02D Diskette 

DM 29,90' (sFr. 24.90/ÖS 299.-') 

64'or-Ausgobe t/86 

Bestell-Nr. L6 86 01D Diskelle 

DM 29,90' (sFr. 24,90/ÖS 299.-') 

64'or-Ausgabe 12/B6 

Bestell-Nr. L8 86 12D Diskette 

DM 29.90' (SFr. 24.90/öS 299.-') 

Bestell-Nr L6 85 12K Kassette 

DM 29,90' (sFr. 24,90/öS 299,-7) 

64'er-Ausgabo 11/85 

Bestell-Nr. L8 85 11A 

DM 29.90' (sFr, 24,90/ÖS 299.-') 

64'or-Ausgabo 10/85 

Bestell-Nr. L6 85 10A 

DM 29,90' (sFr. 24,90/ÖS 299.-') 

64'or-Ausgabo 9/85 

Bestell-Nr. L6 85 09A 

DM 29,90' (sFr, 24.90/ÖS 299,-'| 

64'er-Ausgabe 8/85 

Bestell-Nr. L8 85 08A 

DM 29.90' (SFr. 24,90/öS 299.-') 

64'or-Ausgabe 7/85 

Bestell-Nr. L6 85 07A 

DM 29.90' (sFr. 24.90/öS 299.-') 

64'or-Ausgabo 6/85 

Bestell-Nr. L6 85 06A 

DM 29.90' (sFr. 24,90/ÖS 299.-') 

64’or-Ausgabe 5/65 

BosteU-Nr. L6 86 05A 

DM 29,90' (sFr. 24,90/ÖS 299.--) 

64’er-Ausgabe 4/85 

Bestell-Nr. L6 85 04A 

DM 29,90' (SFr. 24.90/ÖS 299,-') 

64'er-Ausgabe 3/85 

Bestell-Nr. L6 85 03A 

DM 29,90' (sFr. 24.90/ÖS 299.-') 

64'er-Ausgabe 2/85 

Bestell-Nr. L6 86 02A 

DM 29,90' (sFr. 24.90/öS 299,-') 

64'or-Ausgabe 1/85 

Bostoll-Nr. L8 86 01A 

DM 29,90' (SFr. 24,90/öS 299.-') 


S. 53 
S. 68 
S. 63 
S. 67 
S. 77 
S 77 
S. 78 
S. 79 
S. 79 

S. 79 

S. 80 
S. 84 

S. 85 

S, 88 


64’er-Sonderhefte 

Sonderheit 6/86 - Grafik 

2 Disketten mit alon Programmen 
Bestell-Nr. L6 86 S601 

DM 34,90' (sFr. 29.60/ÖS 349.-’) 

1 Diskette mit Giga-CAD-Demos 
Bostoll-Nr L6 86 S8D2 
DM 19.90' (sFr. 17.-/ÖS 199,-') 

3 Disketten mit allen Programmen und Demos 
Bostoll-Nr L6 86 S6D3 

DM 49,80' (sFr. 43,50/OS 498.-’) 
Sonderheft 6/88 - Grundwissen 
Bestell-Nr L6 86 S5D 1 Diskette 
DM 29.90' (sFr. 24,90/öS 299.-') 
Sonderheft 4/88 - Abenteuer 
Bostol-Nr. L6 86 S4D 2 Disketten 
DM 34,90' (SFr. 29,60/öS 349.-') 
Sonderheit 3/88 - C16, C11B, VC 20. Plus 4 
1 Diskotto für VC 20 und C16/116: 

Bestell-Nr. L6 86 S3 CD 
DM 29,90' (sFr. 24,90/ÖS 299V) 

1 Kassette für VC 20: 

Bestell Nr L8 86 S3 KV 
DM 19,90' (sFr. 17,-/öS 199,-’) 

1 Kassette für C16: 

Bestell-Nr L6 86 S3 KC 
DM 19,90' (sFr. 17.-/ÖS 199,-') 

Sonderheft 2/86 - Tips »Tricks 
Bestell-Nr. L6 88 S2D Diskette 
DM 29,90' (sFr. 24.90/ÖS 299,-') 
Sonderheit 1/86-C «Ser 
Bestell-Nr. L6 86 S1D Diskette 
DM 29,90' (sFr. 24,90/ÖS 299.-') 
Sonderheit 8/85 - Assembler 
Bestell-Nr. L6 85 S8D Diskette 
DM 29.90' (sFr. 24,90/öS 299V) 

Bestell-Nr L6 85 S8K Kassette 
DM 19.90' (sFr. 17,-/öS 199,-') 

Sonderheit 7/85 - Professionelle Anwendungen 
BosteU-Nr. L6 85 S7D 2 Disketten 
DM 34,90' (sFr. 29.60/ÖS 349V) 

Bostoll-Nr. L6 85 S7K 4 Kassetten 
DM 34,90' (sFr. 29.60/ÖS 349V) 
Sonderheft 6/85 - Top-Themen 
BosteU-Nr. L6 85 S6 2 Disketten 
DM34,90' (sFr. 29,50/öS 349V) 
Sonderheit 5/85 - Floppy, Dataselte 
Bestell-Nr. L6 85 S5D Diskette 
DM 29,90' (sFr. 24.90/ÖS 299V) 

Bostoll-Nr. L6 86 S5K Knssotto 
OM 19,90' (sFr. 17.-/0S 199,-') 

Sonderheft 4/85 - Grafik 
Bestell-Nr L6 65 S4A 
DM 29,90' (sFr. 24.90/ÖS 299V) 
Sonderheit 3/85 - Spiele 
Bestell-Nr. L6 85 S3 A 2 Disketten 
DM 34,90' (sFr. 29,60/öS 349V) 
Sonderheit 2/85 - Abenteuerspfole 
Bostoll-Nr. L6 85 S2 
DM 34,90' (sFr. 29.50/öS 349,-') 
Sonderheit 1/85 - TipsSTricks 
(2. Uberorb. Auflage) 

Bestell-Nr. CB 023 Floppy-Utilities 
DM 29,90' (sFr. 24,90/ÖS 299V) 

Bostoll-Nr. CB 024 Hlltsprogrammo 
DM 29,90' (oFr. 24,90/ÖS 299,-') 

' inkl. MwSt. Unverbindliche Preisempfehlung 


Bitte verwenden Sie für Ihre Bestellung und Überweisung die eingeheftete Postgiro-Zahlkarte, 
oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. 

Sie erleichtern uns die Auftragsabwicklung, und dafür berechnen wir Ihnen keine Versandkosten. 
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GRUNDLAGEN 


C 64/VC 20 


MEMORY MAP 
mit Wnndervorsdtlägen 


Es steckt sehr viel im 
C64. Wir werden Ihnen 
im Rahmen dieses Kur¬ 
ses die Bedeutung und 
Anwendung der Spei¬ 
cher und Register von 
Betriebssystem und 
Interpreter näherbrin¬ 
gen. 

Dieser Kurs ist eine zusam¬ 
menhängende Wiedergabe 
einer Serie von Aufsätzen, 
die im 64'er, Ausgabe 11, 
November 1984 angefan¬ 
gen hat und sich in 18 Folgen 
bis Ausgabe 6, Juni 1986, 
hinzog. 


Die vorliegende Fassung 
hat profitiert von vielen 
Zuschriften, die ich im Laufe 
des Kurses erhalten habe, 
mit Kritik, Hinweisen auf Feh¬ 
ler, Fragen und Verbesse¬ 
rungsvorschlägen. Für diese 
Mitarbeit der Leser möchte 
ich mich an dieser Stelle 
recht herzlich bedanken. 

Ein Inhaltsverzeichnis der 
Adresse ist wenig sinnvoll. 
Ich habe allerdings die 
Adressen in einer Liste zu¬ 
sammengefaßt, geordnet 
nach ihren Funktionen, nicht 
nach ihrer Reihenfolge. 

Dadurch soll Ihnen eine 
weitere Möglichkeit zum 


Nachschlagen geboten wer¬ 
den. 

Auflisten kann ich lediglich 
die Texteinschübe und die 
Tabellen, zur Übersicht für 
eilige Sucher. 

Hinweise und Tips über nützli¬ 
che PEEK- und POKE-Adres- 
sen gehören zum Standard- 
Repertoire einer Computer- 
Zeitschrift. Ebenso häufig wer¬ 
den Leserfragen zu diesem 
Thema gestellt, obwohl mehrere 
Handbücher für die beiden 
Heimcomputer von Commo- 
dore bereits Speicherlisten (auf 
englisch »Memory Map«) ent¬ 
halten. 


Warum ich mich jetzt auch 
noch mit diesem Thema befas¬ 
sen will, hat zwei Gründe. Zum 
einen stört mich, daß ein Hin¬ 
weis wie: 

»...mit POKE 19,1 läßt sich das 
Fragezeichen bei INPUT- 
Befehlen unterdrücken...« 
zwar richtig und auch anwend¬ 
bar ist, aber halt nicht erklärt, 
was da eigentlich passiert und 
welche Folgen das für ein Pro¬ 
gramm haben kann. Zum ande¬ 
ren vermisse ich speziell in den 
Speicherlisten nähere, auch für 
den Anfänger verständliche und 
irgendwann einmal verwertbare 
Angaben. 

Ich habe mir deshalb vorge¬ 
nommen, Ihnen die Bedeutung 


Texteinschub Nr. 1 
Der USR-Befehl 

Hand aufs Herz: Haben Sie USR schon einmal benutzt? Ohne 
Zweifel gehört dieser Befehl zu den seltenen. Ich will ihn daher 
hier kurz erläutern. USR hat dieselbe Funktion wie SYS, nämlich 
aus einem Basic-Programm direkt in ein Maschinenprogramm zu 
springen und dort solange weiterzufahren, bis mit dem Befehl 
RTS (entspricht dem Basic-Befehl RETURN) in das Basic-Pro¬ 
gramm zurückgesprungen wird. Die Sprungadresse in das 
Maschinenprogramm steht bei SYS gleich hinter dem Befehl. 

Bei USR muß die Adresse zuerst in die Speicherzellen 1 und 
2 (aha!!) gePOKEt werden. 

Beispiel - Sprung auf 56524 ($DCCC): 
mit SYS: SYS 56524 

mit USR: POKE 1,204:P0KE 2,220:X=USR(Y) 

Kein Wunder, daß USR selten benutzt wird. Aber erstens ist er 
durch das POKEn der Low-/High-Byte-Darstellung aufgebläht 
und zweitens hat er auch wesentlich mehr Fähigkeiten als SYS. 

Sein Argument, im obigen Beispiel also das »Y«, wird nämlich 
zuerst in den »Fließkomma-Akkumulator« FAC 1 (Floating Point 
Accumulator Nr. 1) gebracht, der sich in den Speicherzellen 97 
bis 102 ($61 bis $66) befindet. Da wir ihn auf unserer Reise 
durch den Speicher noch treffen werden, brauche ich jetzt nicht 
näher darauf einzugehen. Wichtig ist lediglich, daß der Wert von 
»Y« dann vom angesprungenen Maschinenprogramm verarbeitet 
werden kann. Das Resultat kommt dann wieder in diesen FAC 1 
und steht als Wert von X (siehe Beispiel oben) dem Basic- 
Programm zur Verfügung. 

Mit USR kann man also Variable Ins Maschinenprogramm zur 
Bearbeitung und zurück transferieren - und das ist der Unter¬ 
schied zum SYS-Befehl. Ich möchte das an einem kleinen Bei¬ 
spiel demonstrieren. Statt allerdings ein Maschinenprogramm 
selbst zu schreiben, verwende ich beziehungsweise springe ich 
auf eine Routine des Betriebssystems, welches Werte des FAC 
1 für mathematische Operationen verwendet. 

Als mathematische Operation wähle ich das eingebaute Pro¬ 
gramm für INT, welches im VC 20 ab Speicherzelle 56524 


($DCCC) steht, im C 64 steht es ab 48332 ($BCCC). Dieses 
wollen wir verwenden: 

In Zeile 10 definieren wir einen Wert für die Variable X, der in 
das Maschinenprogramm gebracht werden soll. Mit Zeile 20 
bringen wir die Startadresse des Maschinenprogramms in die 
Speicherzellen 1 und 2. 

Laut Kochrezept teilen wir die Adresse 56524 auf in ein Low- 
Byte = 204 und ein High-Byte = 220. 

Der Befehl in Zeile 30 löst den ganzen USR-Vorgang aus, Zeile 
40 gibt uns das Resultat. 

10 Y=l4.35 

20 POKE 1,204: POKE 2,220 
30 X=USR(Y) 

40 PRINT X 
Hinweis: 

Entsprechend der anderen Adresse 48332 lautet die Zeile 20 
beim C 64: 

20 POKE 785,204:POKE 786,188 

Nach RUN erhalten wir das Resultat 14, wie das Gesetz für INT 
es befiehlt. Natürlich hätten wir gleich PRINT INT (14.35) schrei¬ 
ben können, aber ich wollte ja nur demonstrieren. Der eigentli¬ 
che Wert des USR-Befehls kommt hauptsächlich bei selbstge¬ 
schriebenen Maschinenprogrammen zum Zuge. 

Sie können zur Übung im obigen Programm statt INT auch 
COS verwenden, indem Sie auf die Adresse 57935 ($E261) 
beziehungsweise beim C 64 auf 57938 ($E264) springen. Der 
Vergleich mit dem Basic-Befehl COS muß dasselbe Resultat 
ergeben. 

Wer hat gemerkt, daß wir überhaupt nichts mit der Speicher¬ 
zelle 0 gemacht haben, obwohl sie doch beim USR angeblich 
beteiligt ist? 

Sie ist es wirklich, doch ohne unser Zutun. In diese Adresse 
wird beim Einschalten des Computers die Zahl 76 ($4C) 
geschrieben. Das ist der Code für den Maschinenbefehl »JMP«, 
der soviel bedeutet wie GOTO. Bei USR springt nämlich das Pro¬ 
gramm auf die Speicherzelle 0, findet dort den Sprungbefehl und 
in den nachfolgenden Zellen 1 und 2 die Sprungadresse - und 
führt den Sprung auch gleich aus. 
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C 64/VC 20 


GRUNDLAGEN 


und Anwendungen der PEEK- 
und POKEbaren Adressen, - 
sozusagen eine Wanderkarte 
mit Tourenvorschlägen und 
Sehenswürdigkeiten - in Form 
von Beispielen und Kochrezep¬ 
ten näherzubringen. Mir ist 
durchaus bewußt, daß das kein 
leichtes Unterfangen ist, da ich 
möglichst ohne Fach-Jargon 
auch für Nichttechniker ver¬ 
ständlich bleiben möchte, und 
da die Zahl der zu behandeln¬ 
den Adressen recht hoch Ist. Ich 
werde also um Kompromisse 
wohl manchmal nicht herum¬ 
kommen. Bevor wir anfangen, 
möchte ich noch einen kleinen 
»Arbeitsplan« machen. 

■ Zur Methode; 

Meine Erklärungen sind so auf¬ 
gebaut, daß sie am besten vor 
dem Computer mit der Zeit¬ 
schrift auf den Knien nachvoll¬ 
ziehbar sind, also »Lies und 
Tipp«. 

Längere Erklärungen oder 
Beispiele, die den Rahmen einer 
Adressenbeschreibung spren¬ 
gen würden, oder die von gene¬ 
rellem Interesse sind, werden in 
gesonderten Texteinschüben 
behandelt. 

■ Zum Adressenbereich: 
Prinzipiell sind natürlich alle 
RAM-Adressen (RAM = Lese- 
und Schreibspeicher) POKEbar 
und kämen daher in Betracht. 
Wir werden uns aber nur den 
Bereich von 0 bis 1023 
vornehmen. 

■ Zum Computer: 

Der genannte Speicherbereich 
hat mit wenigen Ausnahmen für 
VC 20 und C 64 die gleiche 
Bedeutung. Ich werde daher 
beide Computer gleichzeitig 
behandeln und auf Unter¬ 
schiede jeweils gezielt 
hinweisen. 

■ Der erste Hinweis: 

In Tabelle 1 sind die Unter¬ 
schiede in groben Umrissen 
zusammengefaßt. 

■ Zur Darstellung: 

Die Kenntnis der Bedeutung 
dieser Speicherzellen kommt 
auch Programmen in Maschi¬ 
nensprache zuguta Ich gebe 
daher alle Adressen sowohl als 
Dezimal- als auch als Hexadezi¬ 
malzahl (mit vorgestelltem »$«) 
an. 

■ Zu den Adressen: 

Wenn in die zur Diskussion ste¬ 
henden Speicherzellen eine 
Adresse aus dem erlaubten 
Bereich 0 bis 65535 ($0 bis 
$FFFF) hineingeschrieben 
wird, geschieht das immer mit 
der Aufteilung in einen nieder¬ 
wertigen Teil (Low Byte) und 
einen höherwertigen Teil (High 



Byte). Das Rezept zur Umrech¬ 
nung finden Sie im Texteinschub 
Nr. 2 »Die Low-/High-Byte-Dar- 
stellung«. 


Adrosson 

Unlorschlod 

0 

2 

sind verschieden 

3- 

672 

haben gleiche Funktionen 

673- 

677 

Im VC 20 nichl benutzt 

678- 

767 

In beiden nicht benutzt 

768 - 

783 

sind bei beiden gleich 

784- 

787 

im VC 20 nicht benutzt 

788- 

819 

habon gleiche Funktionen 

820- 

1023 

sind bei beiden gleich 


Tabelle 1. Unterschiede zwi¬ 
schen VC 20 und C 64 


Wozu brauchen das 
Betriebssystem und 
der Basic-Übersetzer 
RAM-Speicherzellen? 

Auf den ersten Blick ist nicht 
verständlich, warum die Spei¬ 
cherzellen von 0 bis 1023 feste 
Bedeutung haben und für nor¬ 
male Programme nicht zur Ver¬ 
fügung stehen. Wenn sie 
schon, wie es heißt, vom 
Betriebssystem und dem 
Übersetzer-Programm verwen¬ 
det werden, warum stehen sie 
dann nicht gleich im ROM- 
Speicher bei allen anderen Tei¬ 
len dieser Systeme? 

Ein Computer führt einen Pro¬ 
grammschritt nach dem ande¬ 
ren aus, ganz stur, ohne eigene 
Entscheidungsfähigkeit, es sei 
denn, das Programm schreibt 
derartige Entscheidungen vor. 
Das Betriebssystem ist sozusa¬ 
gen im ROM eingefroren bezie¬ 
hungsweise festgeschrieben. 
Das würde aber bedeuten, daß 
der Computer keine Variations¬ 
möglichkeiten hat, und daß alle 
Programme in gleicher Weise 
ablaufen. Aber das stimmt 
natürlich nichtl Alle Programme 
sind verschieden, sie belegen 
einen verschieden langen Spei¬ 
cherbereich und verarbeiten die 
unterschiedlichsten Variablen. 
Wir geben verschiedene Zei¬ 
chen mit der Tastatur ein, der 
Computer wartet, bis eine Taste 
der Datasette gedrückt ist und 
so weiter. 

Dafür braucht das Betriebssy¬ 
stem einen Speicherbereich, 
der variabel ist, in den es Zwi¬ 
schenwerte ablegen und später 
wieder auslesen kann. 

Und das ist genau der Spei¬ 
cherbereich, der uns interes¬ 
siert, nämlich von 0 bis 1023, 
womit wir wieder beim Thema 
wären. 

Jetzt aber geht es los und 
zwar gleich in die vollen. Denn 
ausgerechnet die ersten drei 
Speicherzellen haben laut 
Tabelle bei beiden Computern 


eine verschiedene Bedeutung 
und zusätzlich gehören sie mit 
zu den kompliziertesten. 

Adresse 0 bis 2 
($0 bis $2) beim VC 20: 

Sprungbefehl und wählbare 
»Sprungadresse« des USR- 
Befehls. 

Die drei Adressen werden bei 
der Abwicklung des Basic- 
Befehls USR verwendet. 

Hinweis: Diesen drei Adres¬ 
sen des VC 20 entsprechen 
beim C 64 die Adressen 784 
($310) bis 786 ($312). Die fol¬ 
genden Erklärungen gelten also 
entsprechend auch für den 
C 64. Mit dem Basic-Befehl 
USR wird ein Programm, das in 
Maschinensprache geschrie¬ 
ben ist, gestartet. 

Wie das im einzelnen geht 
und welche Rolle dabei die 
Speicherzellen 0 bis 2 spielen, 
ist im Texteinschub Nr. 1 »Der 
USR-Befehl« näher beschrie¬ 
ben. 

Adresse 0 
($0) beim C 64: 

Datenrichtungsregister für 
Eln-/Ausgabe-Port des 6510- 
Mikru^.ozessors 

Adresse 1 
($1) beim C 64: 

Datenregister für Ein-/Ausga- 
be-Port des 6510-Mikroprozes- 
sors 

Adresse 2 
($2) beim C 64: 

unbenutzt 

Im Gegensatz zum Mikropro¬ 
zessor des VC 20 hat der des 
C 64 sechs Ein-/Ausgabe-Lei- 
tungen, die einzeln program¬ 
mierbarsind und so eine direkte 
Verbindung zwischen dem Mi¬ 
kroprozessor und der Außen¬ 
welt herstellen. Warum nur 
sechs Leitungen und nicht wie 
üblich acht? Auf dem Chip 
selbst könnten acht Bit verkraf¬ 
tet werden, aber es stehen nur 
sechs Anschlußbeine zur Verfü¬ 
gung. 

Um trotzdem flexibel zu blei¬ 
ben, ist dieses Tor zum Prozes¬ 
sor - zutreffend auch »Port« 
genannt - in beiden Richtungen 
begehbar. Jede einzelne der 
sechs Leitungen kann vom Pro¬ 
grammierer auf »Eingang« oder 
auf »Ausgang« geschaltet wer¬ 
den. Dazu dient das Datenrich¬ 
tungsregister in der Speicher¬ 
zelle 0. 


Datenrichtungsregister in 
Zelle 0 

Wenn zum Beispiel in das Bit 
4 der Zelle 0 eine 0 hineinge- 
POKEt wird, Ist die Leitung 
Nummer 4 des Ports auf »Ein¬ 
gang« geschaltet. Es gilt für alle 
6 Bit (Nummer 0 bis 5): 

- Bit auf 0 = Eingang 

- Bit auf 1 = Ausgang 

Beim Einschalten schreibt das 
Betriebssystem in dieses Regi¬ 
ster die Dualzahl ..101111 
(dezimal=47). Das heißt also, 
daß nur die Leitung Nummer 4 
als Eingang verwendet wird, alle 
anderen aber als Ausgang. 
Warum das so ist, sehen wir 
gleich. Vorher will ich aber noch 
erwähnen, daß im C 64 von die¬ 
ser Flexibilität des Mikroprozes¬ 
sor-Ports kein Gebrauch ge¬ 
macht wird. Ich habe das ganze 
Betriebssystem durchgesehen, 
aber das einzige Mal, wo die 
Speicherzelle 0 angesprochen 
wird, ist eben bei der Einschalt¬ 
routine. 

Das heißt aber nicht, daß Sie, 
lieber Hobby-Programmierer, 
darauf verzichten müssen. Ich 
kann mir vorstellen, daß beson¬ 
ders Ausgefuchste unter Ihnen 
durch POKEn eines anderen 
Bitmusters in die Speicherzelle 
0 vielseitige Befehle erzeugen 
und elnsetzen können. 

Das wird besonders deutlich, 
wenn Sie jetzt sehen, mit wel¬ 
chen Teilen des Computers 
diese sechs Leitungen verbun¬ 
den sind. 

Datenregister in Speicher¬ 
zelle 1 

Mit diesem Register steuert 
der Mikroprozessor (und damit 
natürlich das Betriebssystem) 
die Auswahl von Speicher¬ 
blöcken und den Betrieb mit 
dem Kassettenrecorder. Dem 
Programmierer steht diese 
Möglichkeit über POKEn auch 
zur Verfügung. 

BitO 

schaltet den Speicherbereich 
40960 bis 49151 ($A000 bis 
$BFFF) zwischen dem Basic- 
Übersetzer (Interpreter) im 
ROM und freiem RAM um (Nor¬ 
malzustand =1). 

Bit 1 

schaltet den Speicherbereich 
57344 bis 65535 ($E000 bis 
$FFFF) zwischen dem Be¬ 
triebssystem (Kernel) im ROM 
und freiem RAM um (Normalzu¬ 
stand =1). 

Bit 2 

schaltet den Speicherbereich 
53248 bis 57343 ($D000 bis 
$DFFF) zwischen Zeichen- 
ROM und Ein-/Ausgabe-ROM 
um (Normalzustand = 1). 
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Bit 3 

sendet serielle Daten zum Kas¬ 
settenrecorder (Normalzustand 
= 0 ). 

Bit 4 

prüft, ob eine der Tasten des 
Recorders gedrückt ist, welche 
den Motor einschaiten (Normal¬ 
zustand = 1). 

Bit 5 

schaltet den Motor des Recor¬ 
ders ein und aus (Normalzu¬ 
stand = 1). 

Die RAM-ROM- 
Umschaltung 

Sie wissen, daß Ihr C 64 des¬ 
wegen so heißt, weil er 64 
KByte Speicherplätze hat. Nur 
stimmt das nicht! Er hat nämlich 
88 KByte und müßte eigentlich 
C 88 heißen. 

Da mit den 16 Bit der High-/ 
Low-Byte-Methode (siehe Text¬ 
einschub Nr. 2) nur 64 KByte 
adressierbar sind, müssen die 
restlichen 22KByte bei Bedarf 
eingeschoben werden - und 
das machen die oben erwähn¬ 
ten Bit 0 bis 2 des Daten¬ 
registers. 

In Bild 1 sehen Sie die drei 
oben erwähnten Speicher¬ 
blöcke, die sowohl mit RAM als 
auch mit ROM belegt sind, einer 
davon gleich doppelt. Ich habe 
ihnen folgende Namen 
gegeben: 

- 40960 bis 49151 ($A000 
bis SBFFF) - BLOCK A 

- 53248 bis 57343 ($D000 
bis $DFFF) = BLOCK D 


- 57344 bis 65535 ($E000 
bis SFFFF) = BLOCK E 
Tabelle 2 gibt Ihnen die Über¬ 
sicht über die gemeinsame Wir¬ 
kung der Bit 0, 1 und 2 des 
Datenregisters auf den jeweili¬ 
gen Inhalt der Speicherblöcke. 

Der Vollständigkeit halber 
muß ich hier noch erwähnen, 
daß neben den drei ersten Bits 
der Speicherzelle 1 noch zwei 
weitere Signale die RAM/ROM- 
Umschaltung beeinflussen. Es 
sind das die Leitungen auf Pin 8 
und 9 des Erweiterungs¬ 
steckers (GAME und EXROM), 
welche durch Spiel- und Pro- 
grammodule benutzt werden. 
Eine genaue Beschreibung der 
dadurch erzeugten sinnvollen 
Speicherkombinationen finden 
Sie in dem Buch »64 Intern« von 
Data Becker ab Seite 14. Zwei 
Anwendungsbeispiele dieser 
Umschaltung finden Sie im Text¬ 
einschub Nr. 3 »Manipuliertes 
Basic«. 


Betrieb des 
Kassettenrecorders 

Bit 3, 4 und 5 regeln, wie schon 
gesagt, den Betrieb des Kas¬ 
settenrecorders. 

Zu Bit 3 ist oben schon alles 
Notwendige gesagt. 

Bit 4 ist im Normalzustand auf 
1, »normal« heißt hier, solange 
keine der Motor-Tasten der 
Datasette (PLAY, REWIND, 
FAST FORWARD) gedrückt ist. 
Zur Probe: 

10 X=PEEK(1) 


Bit# 2 

1 

0 

DEZ 

HEX 

BLOCK A 

BLOCK D 

BLOCK E 

1 

1 

1 

55 

$37 

Basic 

I/O 

Kernal 

1 

1 

0 

54 

$36 

RAM 

I/O 

Kernal 

1 

0 

1 

53 

$35 

RAM 

I/O 

RAM 

1 

0 

0 

52 

$34 

RAM 

RAM 

RAM 

0 

1 

1 

51 

$33 

Basic 

Zeichen 

Kernal 

0 

1 

0 

50 

$32 

RAM 

Zeichen 

Kernal 

0 

0 

1 

49 

$31 

RAM 

Zeichen 

RAM 

0 

0 

0 

48 

$30 

RAM 

RAM 

RAM 


Dabei bedeuten 

- Basic: Basic-Übersetzer (Interpreter) 

- I/O: Ein-/Ausgabe-Register 

- Zeichen: Zeichenspeicher 

- Kernal: Betriebssystem 

- RAM: frei verfügbarer Speicher 


Tabelle 2. So sind die Bits 0,1 und 2 des Datenregisters mit 
dem Inhalt der Blöcke A, D und E verknüpft. 


20 PRINT X 
40 GOTO 10 

Die schon erwähnte »Normal¬ 
zahl« 55 (dual = 110111) läuft 
als Zahlenband solange, bis 
eine der besagten Tasten 
gedrückt wird. Dann läuft eine 7 
(dual = 000111). Warum auch 
Bit 5 zu 0 wird, kommt später zur 
Sprache. 

Mit einer kleinen Erweiterung 
der drei Zeilen können Sie in 
einem Programm den Status der 
Motor-Tasten abfragen. Ergän¬ 
zen Sie: 

30 I» V. -7 THEN 50 
50 PRINT »TASTE GEDRUECKT« 
Um nur Bit 5 abzufragen, schrei¬ 
ben wir besser: 

30 IF (X AND 16)=0 THEN 50 

Diese Abfrage kann allerdings 
nicht unterscheiden, welche 
der drei Tasten der Datasette 
gedrückt worden ist. Außerdem 


funktioniert das alles nur, wenn 
- wie im »Normalfall« - das Bit 4 
des Datenrichtungsregisters 
(Speicherzelle 0) auf 0 (Ein¬ 
gang) steht. 

Bit 5 schaltet den Motor der 
Datasette ein und aus. Es bietet 
sich an, damit per Programm die 
Datasette zu schalten - wenn so 
etwas nützlich ist. Leider ist die¬ 
ses Bit etwas schwieriger zu 
handhaben, da es in der 
Interrupt-Routine des Betriebs¬ 
systems eine Rolle spielt. 

Die Tasten der Datasette wer¬ 
den nämlich 60mal in der 
Sekunde abgefragt. Wenn keine 
Taste gedrückt ist, setzt das 
Betriebssystem sowohl das 
sogenannte »lnterlock«-Regi- 
ster in Speicherzelle 192 auf 0 
als auch Bit 5 der Zelle 1 auf 1, 
wodurch der Motor ausgeschal¬ 
tet wird beziehungsweise 


Texteinschub Nr. 2 
Die Low-/High-Byte-Darste!lung 

Eine Speicherzelle der kleinen Commodore-Computer VC 20 
und C 64 hat eine Länge von 8 Bit = 1 Byte. Mit diesen 8 Bit kön¬ 
nen Zahlen von 0 bis 255 ($00FF) dargestellt werden. Zur Dar¬ 
stellung von Zahlen über 255 verwenden wir die Low-/High- 
Byte-Methode. 

Wir hängen einfach zwei Speicherzellen zusammen, mit deren 
16 Bit wir Zahlen bis maximal 65535 (SFFFF) darstellen kön¬ 
nen. Die maximale Zahl 65535 ist übrigens auch die höchste 
Adresse des gesamten Speichers - was natürlich kein Zufall ist. 

Ich will Ihnen jetzt zeigen, wie eine Dezimalzahl auf zwei 8-Bit- 
Speicherzellen verteilt wird, und umgekehrt, wie aus 2 Byte eine 
Dezimalzahl gebildet wird. 

Schauen Sie sich das folgende Beispiel an: 


DEZIMAL 


47491 


DUALZAHL 

1011 

1001 

1000 

0011 

HEX $ 

B 

9 

8 

3 

HIGH-BYTE 

185 

- 

LOW-BYTE 



131 


Wir gehen von der Dezimalzahl 47491 aus. Ihre duale 
Darstellung mit 16 Bit - 1011100110000011 - teilen wir 
einfach in der Mitte und erhalten damit zwei neue Dual-Zahlen mit 


je 8 Bit = 1 Byte. Das linke Byte nennen wir »High-Byte«, da es 
den höheren Teil der Gesamtzahl darstellt. Das rechte Byte heißt 
entsprechend »Low-Byte«. 

Jedes der beiden Bytes kann für sich allein in einer 
Speicherzelle untergebracht werden, in der natürlich dann der 
dezimale Wert des Bytes steht. 

In der Tabelle habe ich zur Vollständigkeit noch die 
hexadezimalen Werte eingefügt, die sehr schön zeigen, daß der 
Vorteil dieser Zahlendarstellung darin liegt, daß jede Einzelziffer 
der 4-Bit-Dualzahl entspricht, genau so wie jede Zweiergruppe 
dem Byte (sowohl in Dual-, als auch in Dezimaldarstellung) und 
die vierstellige Zahl der großen Dezimal- und Dualzahl 
entspricht. 

Zur Umrechnung der Low-/High-Bytes empfehle ich folgende 
Kochrezepte: 

Dezimal in Low-/High-Byte 

47491:256= 185(High-Byte), Rest 131 (Low-Byte) 

Der Rest fällt bei der Division per Hand automatisch an. Mit 
dem (Taschen-)Rechner erhält man den Rest durch: 

185*256-47491 =-131 
Low-/Hlgh-Byte in Dezimal 
High-Byte * 256 + Low Byte = Dezimal 
185 * 256 + 131 = 47491 

Wichtige Regel: Die Mikroprozessoren von VC 20 und C64 
verlangen, daß immer das Low-Byte vordem High-Byte kommen 
muß. Die Zahl wird sozusagen von rechts nach links gelesen 
(131/185). 


itÄH? 
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bleibt. Da kann man nicht dage¬ 
gen an. Wir haben nur eine 
Chance, wenn eine Taste 
bereits gedrückt ist und der 
Kassettenmotor schon läuft. 

Dann nämlich können wir 
zuerst das Interlock-Register 
mit einem Wert größer als 0 
lahmlegen: 

POKE 192,255 

Jetzt läßt sich der Motor der 
Datasette mit Bit 5 steuern: 
POKE 1,39 
beziehungsweise 
POKE 1,PEEK(1) OR 32 
schaltet den Motor aus, 

POKE 1,7 
beziehungsweise 
POKE l,PEEK(l) AND 31 
schaltet den Motor ein. 

Das Interlock-Register in 
Speicherzelle 192 werde ich 
später noch einmal erwähnen, 
da es seine Funktion auch beim 
VC 20 ausübt, allerdings mit 
anderen Eln-/Ausgangs-Ports. 
Das ist alles, was zur Speicher¬ 
zelle 1 zu sagen ist. 

Ab Speicherzelle 3 bis zur 
Speicherzelle 672 gelten alle 


_ , . , , _ Codewert 80. Dieses P ersetzen wir durch ein »G« (ASCII-Code 

Texteinschub Nr. 3 = 71) 

Manipuliertes Basic por 1220,71 


Wie Sie durch PRINT PEEK (1) selbst leicht feststellen, steht 
nach dem Einschalten des Computers im Register 1 die Zahl 55. 
In dualer Darstellung ist das 110111. Das entspricht dem in der 
ersten Zeile der Tabelle 2 dargestellten »Normalzustand« der ein¬ 
zelnen Bits. 

Vergleichen Sie es bitte mit der Auflistung am Anfang der 
Beschreibung der Speicherzelle 1. Die in Tabelle 2 dargestellten 
Bits sind also die rechten drei Bits der Zelle 1. 

Lassen wir die Bits 3. 4 und 5 unverändert, ergeben die acht 
Kombinationen der Tabelle 2 die Zahlen 55 bis 48. Durch den 
Befehl POKE 1,54 können wir nun den Basic-Übersetzer aus¬ 
schalten und 8 KByte Speicher gewinnen. Nur nutzt uns das 
nicht viel, denn was tun - ohne Basic! Es gibt aber doch eine 
Anwendung. Zuvor will ich Ihnen aber noch beweisen, daß wir 
tatsächlich den Block A auf RAM umschalten. Der Trick besteht 
darin, den Basic-Übersetzer vom ROM in den darunter liegen¬ 
den RAM umzuladen. Wenn er tatsächlich in RAM steht, müßten 
wir ihn durch POKEn verändern können zu einem Privat-Basic. 
Geben Sie direkt ein: 

FÜR J=40960 TO 49151: POKE J, 

PEEK(J): 

NEXT J 

POKE J, PEEK (J) - das sieht dümmer aus als es ist. Die 
»Doppeldecker-Speicher« erlauben nämlich ein PEEKen nur aus 
dem ROM-Bereich. Ein hineinPOKEn dagegen geht nur in den 
RAM-Teil. Von dort aber kann er - wie gerade gesagt - nicht her¬ 
ausgelesen werden, es sei denn, wir schalten um! 

Merken Sie was? Die Zeile oben liest also den Inhalt des Basic- 
ROMs und schreibt ihn in den RAM mit identischen Adressen. 
Die Ausführung der Zeile braucht einige Zeit. Wenn der Cursor 
wieder blinkt, schalten wir das RAM ein mit: 

POKE 1,54 

Wir merken natürlich noch keinen Unterschied, denn das 
RAM-Basic ist ja noch dasselbe. 

Doch nun werden wir es verändern. In der Speicherzelle 
41220 steht das »P« für den Befehl PRINT mit dem ASCII- 


Versuchen Sie bitte, mit dem (nicht durch »?« abgekürzten) 
PRINT-Befehl ein Zeichen auf den Bildschirm zu drucken. Es 
wird Ihnen nicht gelingen, denn der Befehl heißt jetzt: 

GRINT 'A' 

was beweist, daß das Basic jetzt im RAM steht. Das Umdefinie¬ 
ren von Befehlen Ist natürlich wenig sinnvoll. Aber wer die 
Maschinenprogramme des Basic kennt, kann sie auf diese 
Welse ändern, erweitern, einschränken, solange er sich auf In 
sich geschlossene Teile beschränkt. 

Eine inzwischen oft zitierte Anwendung stammt von Jim But- 
terfield, den es begreiflicherweise stört, daß der Befehl ASC, 
welcher den ASCII-Code eines Strings erzeugt, bei einem Null- 
String das Programm mit ILLEGAL QUANTITY ERROR beendet. 
Versuchen Sie es: 

PRINT ASC (' A' ) ergibt die Zahl 65. 

PRINT ASC (") hat die obige Fehlermeldung zur Folge. 

Wenn Basic im RAM steht, können wir das ändern: 

POKE 46991,5 

Die Wiederholung des Befehls PRINT ASC (”") ergibt jetzt 0 - 
und, was das Wichtige ist, das Programm läuft weiter. 

Durch zusätzliches Umladen des Speicherblocks E und 
anschließendes Umschalten mit POKE 1,53 ist auch das 
Betriebssystem veränderbar - ein weites Feld für fortgeschrit¬ 
tene Programmierer in Maschinensprache. 

Die wohl wichtigste Anwendung der Umschaltmethode wird 
den Maschinen-Programmierern geboten, die dadurch eine 
kostenlose Speichererweiterung von 16 KByte erhalten. Bei 
gleichzeitiger Verwendung von Basic und Maschinenprogramm 
kann die Umschaltung besonders vorteilhaft eingesetzt werden. 
Das Umschaltprogramm muß dann aber ebenfalls in Maschinen¬ 
sprache geschrieben sein und darf nicht im Umschaltbereich lie¬ 
gen. 

Das Umschalten von den Ein-/Ausgabe-Registern des Blocks 
D mit POKE 1,51 erlaubt, die Bitmuster der fest programmierten 
Zeichen aus dem Zeichen-ROM auszulesen, in einen freien 
RAM-Bereich zu bringen und dort dann nach eigenen Vorstellun¬ 
gen zu verändern. 
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Angaben sowohl für den C 64 
als auch für den VC 20, zumin¬ 
dest was die Bedeutung der Zel¬ 
len betrifft. Ihr Inhalt kann ent¬ 
sprechend der verschiedenen 
Adressen der Betriebssysteme 
voneinander abweichen. Wie 
üblich werde Ich natürlich 
jeweils darauf aufmerksam 
machen. 

Adresse 3 und 4 
($3 und $4) 

Vektor auf die Routine zur 
Umwandlung einer Gleitkom¬ 
mazahl in eine ganze Zahl mit 
Vorzeichen 

In diesen beiden Speicherzel¬ 
len steht also ein Vektor. Was 
das ist, wird im Texteinschub Nr. 
4 näher erläutert. Beim VC 20 
deutet dieser Vektor auf die 
Adresse 53674 (SD1AA), beim 
C 64 auf 45482 (SB1AA). Sie 
können das mit 

PRINT PEEK (3)+256*PEEK (4) 
leicht nachprüfen. Ab diesen 
Adressen beginnt im Basic- 
Übersetzer (Interpreter) ein 
Programm, welches - natürlich 
in Maschinensprache - eine 
Gleitkommazahl in eine ganze 
Zahl umwandelt. 

Diejenigen Leser, die mit 
Gleitkommazahlen nicht so ver¬ 
traut sind, möchte ich auf den 
Texteinschub Nr. 5 verweisen. 
Er ist nur eine kleine Einführung. 
Eine detaillierte Beschreibung 
finden Sie im Assemblerkurs 
(Teil 8) von Heimo Ponnath (Aus¬ 
gabe 4/85) beziehungsweise 
im 64er-Sonderheft 8/85, ab 
Seite 42. 

Dieses Umwandlungspro¬ 
gramm steht nicht nur den 
Maschinen, sondern auch den 
Basic-Programmierern zur Ver¬ 
fügung, allerdings nur über den 
USR-Befehl und da auch nur, 
wenn der »Floating Point Accu- 
mulator« #1 (FAC1) in den 
besagten Adressen 97 bis 102 
mitbenutzt wird. Ich verschiebe 
daher alle weiteren Details auf 
unsere Ankunft bei diesen Spei¬ 
cherzellen. 

Adresse 5 und 6 
($5 und $6) 

Vektor auf die Routine zur 
Umwandlung einer ganzen 
Zahl In eine Gleitkommazahl 

Dieses Programm ist die 
Umkehrung der oberen Routine. 
Sie beginnt beim VC 20 ab Spei¬ 
cherzelle 54161 ($D391), beim 
C 64 ab 45969 ($B391). Da 
hier prinzipiell dasselbe gilt wie 
oben, möchte ich nur kurz den 
Vorteil beleuchten, den derar- 

■in 


tige Vektoren haben. Eigentlich 
könnten wir direkt auf die im 
Vektor enthaltenen Adressen 
springen - wenn wir sie kennen. 

Ein Sprung auf die Adresse 
des Vektors erlaubt uns jedoch 
immer die völlige Ignoranz sei¬ 
nes Inhalts - und Commodore 
erlaubt die Änderung der Adres¬ 
sen im Basic-Übersetzer, wie es 
ja beim C 64 gegenüber dem 
VC 20 auch gemacht worden 
ist, ohne daß vorhandene Pro¬ 
gramme umgeschrieben wer¬ 
den müssen. 

Adresse 7 ($7) 

Suchzeichen zur Prüfung von 
Texteingaben in Basic 

Diese Speicherzelle wird viel 
von denjenigen Basic-Routinen 
als Zwischenspeicher benutzt, 
die den direkt eingegebenen 
Text absuchen, um Steuerzei¬ 
chen (Gänsefüße, Kommata, 
Doppelpunkte und die Zeilen¬ 
beendigung durch die RE- 
TURN-Taste) rechtzeitig zu 
erkennen. Normalerweise wird 
in der Zelle 7 der ASCII-Wert 
dieser Zeichen abgelegt. Die 
Speicherzelle 7 wird aber auch 
von anderen Basic-Routinen 
benutzt. Sie ist daher für den 
Programmierer praktisch nicht 
zu verwerten. 

Adresse 8 ($8) 

Suchzeichen speziell für 
Befehlsende und Gänsefüße 

Wie Speicherzelle 7 dient 
auch die Zelle 8 als Zwischen¬ 
speicher für Basic-Texteingabe 
und zwar während der Umwand¬ 
lung von Basic-Befehlen in den 
vom Computer verwendeten 
Befehlscode (Tokens). Die 
Speicherzelle 8 ist in Basic nicht 
verwertbar. 


Adresse 9 ($9) 

Spaltenposition des Cursors 
vor dem letzten TAB- oder 
SPC-Befehl 

Speicherzelle 9 wird von den 
Basic-Befehlen TAB und SPC 
verwendet. Vor ihrer Ausfüh¬ 
rung wird die Nummer der 
Spalte, in der sich der Cursor 
befindet, aus der Speicherzelle 
211 ($D3) nach 9 gebracht, von 
wo sie geholt wird, um die Posi¬ 
tion des Cursors nach der Aus¬ 
führung von TAB und SPC aus¬ 
zurechnen. 

Diese komplizierte Erklärung 
können wir durch Ausprobieren 
deutlicher machen. Dazu 
PRINTen wir 16mal den Buch¬ 
staben X hintereinander (Semi¬ 


kolon !), allerdings mit SPC (2) 
jeweils um 2 Spalten versetzt. 
10 FOR 1=0 TO 15 
20 PRINT SPC (2) "X"; 

30 PRINT PEEK (9); 

40NEXT I 

Nach jedem X wird durch Zeile 
30 die »alte« Cursor-Spaltenpo¬ 
sition ausgedruckt und zwar in 
derselben Zelle, ausgelöst 
durch das Semikolon. Dadurch 
erhöht sich laufend die in Spei¬ 
cherzelle 9 stehende Positions¬ 
angabe des Cursors. Wir erhal¬ 
ten folgenden Ausdruck: 

. .X.O...X.6. ..X.12 . . . X 
.19...X.26...X.33...X. 
40. . .X.47. . .X.54. . X.6 
1...X.68...X.75...X,82 
...X.1...X.7...X.13... 

Sie können die Positionsnum¬ 
mer nachrechnen. Berücksich¬ 
tigen Sie aber dabei, daß bei 
PRINT vor und nach jeder Zahl 
eine Stelle frei bleibt, die erste 
für das Vorzeichen, die zweite 
wegen des Abstandes. 

Wichtig ist außerdem, daß die 
maximal mögliche Spaltenzahl 
nicht die Bildschirmspaltenzahl, 
sondern die »logische« Spalten¬ 
zahl ist, also 88 beim VC 20 und 
80 beim C 64. 

Wir können die Cursorposi¬ 
tion in A 'resse 9 auch abfragen 
und ein Programm damit steu¬ 
ern. Fügen Sie einfach in das 
obige Programm die folgende 
Zeile 35 ein: 

35 IF PEEK (9) =33 THEN PRINT 
"END': END 

Sobald Position 33 erreicht 
ist, bleibt das Programm stehen. 

Adresse 10 ($A) 

Flagge für LOAD oder VERIFY 

In Zelle 10 steht eine 0, wenn 
geladen wird und eine 1 bei 
einem VERIFY. Warum das so 
ist, will ich kurz erläutern: 

Die Basic-Routinen für LOAD 
beziehungsweise für VERIFY 
sind völlig identisch. Was das 
Betriebssystem hinterher dar¬ 
aus machen muß, ist natürlich 
unterschiedlich. Das Basic 
erspart sich eine doppelte Rou¬ 
tine, zeigt aber mit der Flagge 
in Speicherzelle 10 den Unter¬ 
schied an. 

Erwähnenswert ist noch, daß 
das Betriebssystem in einer Art 
Nationalismus seine eigene 
Flagge aufzieht: Den Unter¬ 
schied zwischen LOAD und 
VERIFY speichert es seiner¬ 
seits in Zelle 147 ($93) ab. 
Soweit ich es sehen kann, sind 
Inhalt und Bedeutung beider 
Speicherzellen völlig identisch. 

Ich habe für Sie zwar kein 
Kochrezept zur Anwendung der 
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LOAD-VERIFY-Flagge in einem 
Programm vorrätig, möchte Sie 
aber trotzdem ein bißchen zum 
Spielen anregen. Um meine 
Erklärung nachzuvollziehen, tip¬ 
pen Sie bitte direkt LOAD ein. 
Den Ladevorgang brechen Sie 
mit der STOP-Taste ab und fra¬ 
gen dann den Inhalt der Zelle 10 
ab mit 

PRINT PEEK (10) 

Wir erhalten eine 0. 

Wiederholen Sie bitte diesen 
Vorgang, aber mit VERIFY. Wir 
erhalten jetzt eine 1 - Quod erat 
demonstrandum. 

Wir können auch in die Zelle 
10 hineinPOKEn. Die »Wachab¬ 
lösung« zwischen Basic und 
Betriebssystem unter Hissen 
der Flagge in Zelle 10 findet 
beim VC 20 in der Speicherzelle 
57705, beim C 64 in 57708 
statt. Bevor wir diese Maschi¬ 
nenroutine mit SYS 57705 
(SYS 57708) starten, geben wir 
mit dem Inhalt der Speicherzelle 
10 an, ob es ein LOAD oder ein 
VERIFY sein soll. 

Legen Sie ein Band mit Pro¬ 
gramm in die Datasette. Um ein 
LOAD zu erzeugen, geben wir 
direkt ein: 

POKE 10,0: SYS 57705 

(POKE 10,0:SYS 57708) 

Entsprechend der Anweisung 
auf dem Bildschirm drücken Sie 
PLAY, und das Auffinden des 
ersten Programms wird mit 
LOAD gemeldet. Machen Sie 
das Ganze noch einmal, diesmal 
aber POKEn Sie bitte eine 1 in 
die Zelle 10. Jetzt meldet das 
Betriebssystem das Auffinden 
des Programms mit VERIFY. 

Wie gesagt, vielleicht fällt 
Ihnen eine Anwendung dafür 
ein. 

Adresse 11 ($B) 

Flagge für den Eingabepuf¬ 
fer/Anzahl der Dimensionen 
von Zahlenfeldern (Arrays) 

Alle Buchstaben und Zei¬ 
chen, die mit der Tastatur direkt 
eingetippt werden, kommen in 
einen Eingabe-Pufferspeicher. 
Er beginnt ab Speicherzelle 512 
($200). Sobald die RETURN- 
Taste gedrückt wird, wandelt 
eine Routine des Basic-Über- 
setzers den Text in Codezahlen 
(Tokens) um. Diese Routine und 
eine andere, welche die Zeilen 
eines Programms aneinander¬ 
hängt, verwenden die Zelle 11 
als Zwischenspeicher. 

Sobald die Textumwandlung 
beendet ist, steht in Zelle 11 
eine Zahl, die die Länge der 
Token-Zeile angibt. 

Die Zelle 11 wird außerdem 
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noch von den Basic-Routinen 
benutzt, die ein Feld (Array) auf¬ 
bauen oder ein bestimmtes Ele¬ 
ment in einem Array suchen. 
Was ein Feld oder Array ist, fin¬ 
den Sie in den Commodore- 
Handbüchern gut beschrieben. 
Außerdem gehe ich bei der 
Behandlung der Speicherzellen 
47 bis 50 näher darauf ein. 

Diese Routinen also verwen¬ 
den die Speicherzelle 11, um die 
Anzahl der verlangten DIMen- 
sionen und den für ein neu auf¬ 
gebautes Feld nötigen Spei¬ 
cherbedarf zu berechnen. 

Adresse 12 ($C) 

Flagge für Basic-Routinen, die 
ein Feld (Array) suchen bezie¬ 
hungsweise aufbauen 

Diese Speicherzelle wird von 
den Basic-Routinen als Zwi¬ 
schenspeicher benutzt, die 
feststellen, ob eine Variable ein 
Feld (Array) ist, ob das Feld 
bereits DIMensioniert worden 
ist, oder ob ein neues Feld die 
unDIMensionierte Zahl von 11 
Elementen hat. 

Adresse 13 ($D) 

Flagge zur Bestimmung des 
Datentyps (Zeichenkette/ 
String oder Zahl) 

Diese Flagge zeigt den Routi¬ 
nen des Basic-Übersetzers an, 
ob es sich bei den zur Verarbei¬ 
tung anstehenden Daten um 
einen String oder um Zahlen¬ 
werte handelt. Zeigt die Flagge 
255 ($FF), ist es ein String. Bei 
0 handelt es sich um Zahlen. 
Diese Bestimmung erfolgt 
jedesmal, wenn eine Variable 
definiert oder gesucht wird. 
Diese Flagge kann leider nicht 
durch ein Basic-Programm 
abgefragt werden. 

Adresse 14 ($E) 

Flagge zur Bestimmung des 
Zahlentyps (Ganze Zahl oder 
Gleitkommazahl) 

Sobald durch die Flagge in 
der vorherigen Zelle 13 eine 
Zahl signalisiert wird, steht hier 
die Zahl 128 ($80), wenn es 
sich um eine ganze Zahl han¬ 
delt, während eine 0 die Zahl als 
Gleitkommazahl identifiziert. 

Damit wollen wir ein bißchen 
experimentieren. Zeile 10 defi¬ 
niert eine Gleitkommazahl, Zeile 
20 druckt sie und die Flagge 
aus Zelle 14 aus. 

10 A=13.4l 
20 PRINT A,PEEK (14) 
Wirerhalten die Zahl 13.41 und 
als Flagge eine 0. 

30 B=INT (A) 

40 PRINT B.PEEK (14) 


INT bildet die ganze Zahl von 
13.41. Also müßte die Flagge in 
Zelle 14 auf 128 stehen. Weit 
gefehlt! Da intern auch die 13 
als Gleitkommazahl berechnet 
wird, erhalten wir immer noch 
eine 0. 

50BX=A 

60 PRINT B*,PEEK (l4) 

Erst die Definition der Varia¬ 
blen B als ganze Zahl (mit %) 
ergibt die Flagge 128. 

70 D=16*BX 
80 PRINT D,PEEK (14) 

Die Multiplikation einer gan¬ 
zen Zahl mit der Ganzzahl-Va¬ 
riablen B% fällt in dieselbe Kate¬ 
gorie wie Zeile 30 oben, da die 
Verarbeitung als Gleitkom¬ 
mazahl erfolgt. Also erhalten wir 
zu Recht eine 0. Erst wenn D als 
ganze Zahl (Zeile 90) ausgewie¬ 
sen wird, steht die Flagge wie¬ 
der auf 128: 

90 D*=16#BX 

100 PRINT D*, PEEK (14) 

Adresse 15 ($F) 

Flagge bei LIST, Garbage Col¬ 
lection und Textumwandlung 

Die Routine des LIST-Befehls 
muß unterscheiden zwischen 
Basic-Befehlen und normalem 
Text. Wenn eine Zeichenkette 
durch ein »Gänsefüßchen« 
identifiziert worden ist, wird die 
Flagge gesetzt, und der Text 
wird ausgedruckt. 

Unter »Garbage Collection« 
(Müllabfuhr) wird die Routine 
des Betriebssystems verstan¬ 
den, welche zu bestimmten 
Anlässen im Variablenspeicher 
alle nicht mehr benötigten 
Strings entfernt, um Platz zu 
schaffen. Dabei wird eine 
Flagge in Zelle 15 gesetzt, die 
anzeigt, daß eine Müllabfuhr 
bereits stattgefunden hat. Wenn 
bei der Speicherung eines 
neuen Strings zu wenig Spei¬ 
cherplatz vorhanden ist, wird 
bei der Flagge nachgesehen, 
ob gerade vorher schon durch 
die Müllabfuhr (Garbage Collec¬ 
tion) der Speicher entrümpelt 
worden ist. Falls das der Fall ist, 
wird OUT OF MEMORY ange¬ 
zeigt, falls nicht, wird eine Müll¬ 
abfuhr durchgeführt. 

Schließlich wird Zelle 15 auch 
bei der Umwandlung von Basic- 
Befehlen in internen Codezah¬ 
len (Tokens) eingesetzt. 

Adresse 16 ($10) 

Flagge zur Anzeige eines 
Variablen-Feldes oder einer 
selbstdefinierten Funktion 

Im Basic-Übersetzer gibt es 
eine Routine, die den Speicher 


absucht, ob es eine Variable mit 
bestimmten Namen bereits gibt. 
Wenn diese mit einer Klammer 
beginnt, wird die Flagge in Zelle 
16 gesetzt, um anzuzeigen, daß 
es sich um eine Array-Variable 
oder um eine mit DEF FN selbst¬ 
definierte Funktion handelt. 

Adresse 17 ($11) 

Flagge für INPUT, GET oder 
READ 

Die Basic-Routinen für INPUT, 
GET und READ sind zum gro¬ 


ßen Teil identisch. Um Speicher¬ 
platz zu sparen, verwendet der 
Basic-Übersetzer die identi¬ 
schen Teile nur einmal. Um in die 
nichtidentischen Teile verzwei¬ 
gen zu können, wird in Zelle 17 
angezeigt, um welchen der drei 
Befehle es sich gerade handelt. 
Die Flagge steht auf 0 für 
INPUT, auf 64 ($40) für GET 
und auf 152 ($98) für READ. 

Mit dem folgenden kleinen 
Programm können wir das leicht 
nachprüfen. 


Texteinschub Nr. 4 
Zeiger, Vektoren und Flaggen 

Zeiger und Vektoren sind Zahlenwerte, die jeweils in zwei 
benachbarten Speicherzellen stehen und in derLow-/High-Byte- 
Darstellung eine Adresse bilden. 

Wir sprechen von einem »Zeiger«, wenn diese Adresse den 
Beginn von gespeicherten Daten angibt. 

Ein »Vektor« zeigt ebenfalls auf eine Anfangsadresse, aller¬ 
dings auf die eines Maschinenprogramms. Diese Unterschei¬ 
dung wird leider nicht immer ganz eindeutig angewendet. 

Eine »Flagge« besteht aus einem Zahlenwert in einer Spei¬ 
cherzelle, die von einem Programm dort abgelegt wird, um sich 
das Resultat einer Operation zu merken, beziehungsweise um 
es für eine spätere Verwendung bereitzuhalten. 


Texteinschub Nr. 5 
Die Zahlendarstellung bei den 
Commodore-Computern 

Gleitkomma-Zahlen 

Für diejenigen Leser, die das Thema der Zahlendarstellung 
in den Commodore-Handbüchern großzügig übersprungen 
haben, stelle ich es hier noch einmal vor. 

Sie kennen die gängigen vier Zahlentypen: 

- ganze Zahlen: 15, 21, 244 

- Brüche: $, 2e k, 

- negative Zahlen: -15, -255 

- positive Zahlen: 10, 5, 123 

Ganze Zahlen bereiten uns und dem Computer keine 
Probleme. 

Bei Brüchen sieht es schon anders aus. Erinnern Sie sich an 
die Bruchrechnungsstunden in der Schule? Wieviel ist 5, /fez + 
#!!! 

Ohne lange zu überlegen, rechnen wir natürlich um, 5 '/s 2 = 
0,9807692 und # = 0,75; addiert ist das Resultat 1,7307692 

- und schon sind Sie mitten in den Gleitkomma-Zahlen. 

Bei obigem Beispiel gleitet allerdings noch nichts. Bei sehr 
großen oder aber auch sehr kleinen Bruch-Zahlen reicht uns - 
und einem Computer - nicht der Platz, um sie darzustelien. Die 
Zahl 0,000000000000000123 sprengt jeden normalen Rah¬ 
men. 

Daher schreiben wir sie anders. Wir lassen das Komma nach 
rechts gleiten, bis es die erste Ziffer, die von 0 verschieden ist, 
findet und für jede Null, die es passiert, multiplizieren wir die Zahl 
mit 10. 

Die Zahl oben sieht dann so aus: 

0,123 x 10 hoch 15 (eine 1 mit 15 Nullen). 

Die Grundzahl vorn heißt »Mantisse«, die 10 mit Hochzahl heißt 
»Exponent«. 

Alle Commodore-Computer verarbeiten intern alle Zahlen in 
dieser Darstellung, also als Gleitkommazahl. 
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10 DATA 3 
20 READ A 
30 PRINT PEEK (17) 

40 INPUT B 
50 PRINT PEEK (17) 

60 GET C$: IF C$= ' 'THEN 60 
70 PRINT PEEK (17) 

Zeile 10 und 20, 40 sowie 60 
sind Anwendungen der drei zur 
Debatte stehenden Basic- 
Betehle. Nach der Durchfüh¬ 
rung jedes Befehls wird in den 
Zeilen 30, 50 und 70 die jewei¬ 
lige Flagge ausgelesen. 

Nach RUN erhalten wir als 
Resultat der Zeile 20 die Zahl 
152, als Resultat von Zeile 30 
die INPUT-Aufforderung mit Fra¬ 
gezeichen. Geben Sie irgend¬ 
eine Zahl und RETURN ein. Wir 
erhalten so die 0. Die GET- 
Schleife in Zeile 40 wartet auf 
einen Tastendruck, dann erhal¬ 
ten wir 64. 

Adresse 18 ($12) 

1. Flagge für Vorzeichen bei 
SIN, COS und TAN 

2. Flagge bei Vergleich 

Zuerst kommt das Vorzeichen 
der trigonometrischen Funktio¬ 
nen an die Reihe 
Die Routinen des Basic-Über- 
setzers (Interpreter), welche die 
drei trigonometrischen Funktio¬ 
nen SIN, COS und TAN berech¬ 
nen, verwenden die Speicher¬ 
zelle 18 zur Bestimmung des 
Vorzeichens. 

Zur Erinnerung: Die trigono¬ 
metrischen Funktionen haben in 
den vier »Quadranten« des Krei¬ 
ses (0-90, 90-180, 180-270, 
270-360 Grad) nicht unbedingt 
dieselben Vorzeichen. Die Vor¬ 
zeichen ändern sich allerdings 
nur an den Grenzen der Qua¬ 
dranten, wie in Bild 2 zu sehen 
ist. Die Flagge in Zelle 18 gibt 
das Vorzeichen nicht direkt an, 
sondern auf Umwegen. Die Dar¬ 
stellung ist in der folgenden 
Tabelle zusammengefaßt. 


Weit doi Funktion 



> — Sinus 

.Cosinus 

— Tangens 


90" 


180" 270" 380" (Grad) 


1.58 3.14 4.72 6,3 (Bogenmaß) 


Bild 2. Trigonometrische Funktionen SIN, COS, TAN 


und den Wert der Funktion mit 
Vorzeichen ausdruckt. 

10 FOR 1=0 TO 10 STEP 0.01 
20 PRINT PEEK(18); INT 
(I#100)/100;SIN(I):NEXT 
Diese etwas umständliche 
Art, den Wert von I auszu¬ 
drucken, vermeidet Rundungs¬ 
fehler und begrenzt den Aus¬ 
druck auf zwei Dezimalstellen. 
Wenn Sie die Winkelwerte von I 
in Graden ausgedruckt haben 
wollen, können Sie eine andere 
Zeile 20 verwenden, welche die 
Umrechnungsformel vom Bo¬ 
genmaß in Grade verwendet: 
Winkel in Grad = Winkel im 
Bogenmaß * 180/ir 
20 Print PEEK(18); INT 
(I#180/7r);SIN(I):NEXT 
Statt SIN können Sie genauso 
gut COS und TAN einsetzen. 

In Bild 2 sind nicht nur die Kur¬ 
ven und die Bereiche der Vor¬ 
zeichen, sondern auch die Win¬ 
kelbereiche sowohl im Bogen¬ 
maß als auch in Graden dar¬ 
gestellt. 

Die Speicherzelle 18 wird 
auch noch von anderen Routi¬ 


WINKEL 

0-90 

90-180 

180-270 

270-360 

SIN 

gleich 

Wechsel 

Wechsel 

gleich 

COS 

255 

255 

0 

0 

TAN 

0 

255 

255 

0 


Dabei bedeutet »gleich«: 
0-0-0-0 oder 255-255-255 
»Wechsel«: 0-255-0-255 
Da die Erklärung mit »gleich« 
beziehungsweise »Wechsel« 
nicht gerade einleuchtend ist, 
schlage Ich vor, daß Sie sich das 
Ganze mit dem folgenden klei¬ 
nen Programm selbst anschau¬ 
en, welches für viele Werte des 
Winkels im Bogenmaß - und in 
kleinen Schritten - den Wert der 
Flagge, daneben den Winkel I 


nen des Basic-Interpreters 
beansprucht und zwar von 
allen, die einen Vergleich wie 
<, >, >= und so weiter 
durchführen. Entsprechend 
der Art des Vergleichs steht 
dann in der Zelle 18 eine Ziffer 
von 0 bis 6. 

Das folgende Programm 
macht das deutlich. 

10 A=2 

20 FOR 1=1 TO 3 

30 IF 1= A THEN PRINT Ij 


PEEK(18); * = ” 

40 IF IOA THEN PRINT I; 
PEEK(18);' > <' 

50 IF I> ATHEN PRINT I; 
PEEK(18); * >' 

60 IFI< ATHEN PRINT Ij 
PEEK(18); * <' 

70 IF I>=A THEN PRINT I; 
PEEK(18); *>'='" 

80 IFI<=A THEN PRINT I; 
PEEK(18);'<*=' 

90 IF T < A OR I=A THEN 
PRIN'I i,PEEK(18); " < OR =* 
100 NEXT I 

Kurz zur Erklärung dieser Zel¬ 
len: In der FOR..NEXT-Schleife 
wird die Variable I mit der Kon¬ 
stanten A=2 verglichen. In den 
Zeilen 30 bis 90 werden alle 
möglichen Vergleichsoperato¬ 
ren durchgeprüft. Jeder der 
zutrifft, druckt den Wert von I, 
den Wert der dann in Zelle 18 
stehenden Flagge und schließ¬ 
lich den Vergleichsoperator aus. 
Aus dem Resultat dieses Pro¬ 
gramms läßt sich folgende 
Tabelle zusammenstellen: 

Vergleich Flagge 
in 18 


< OR = 
> OR = 
> 

> = 
< 

< > 

<- 


0 

0 

1 

2 

3 

4 

5 

6 


Sie sehen, die Flagge für die 
kombinierten Vergleichsopera¬ 
toren entspricht der Summe 
ihrer Einzelwerte. Nur die Ver¬ 
knüpfung über OR nicht, denn 
die ergibt 0. 

Adresse 19 ($13) 

Flagge zur Kennzeichnung 
des laufenden Ein-/Ausgabe- 
gerätes 


Immer dann, wenn von Basic 
Daten ein- oder ausgegeben 
werden, schaut die entspre¬ 
chende Routine des Überset¬ 
zers in Zelle 19 nach, um wel¬ 
ches Peripheriegerät es sich 
handelt. Zur Debatte stehen 
Tastatur, Datasette, RS232- 
User-Port, Bildschirm, Drucker 
und Floppy-Laufwerk. 

Die Flagge ihrerseits ist aus¬ 
schlaggebend für die feinen 
Unterschiede, wie zum Beispiel 
das Fragezeichen, bei Eingabe 
von der Tastatur (INPUT) oder 
die Anweisung »Press Play on 
Tape« bei Eingabe von der 
Datasette. 

Beim Einschalten des Rech¬ 
ners setzt die Initialisierungs¬ 
routine des Betriebssystems, 
die beim VC 20 ab Adresse 
58276 (SE3A4), beim C 64 ab 
58303 ($E3BF) beginnt, die 
Flagge in Zelle 19 auf 0. Die Null 
bedeutet Eingabe über Tastatur 
und Ausgabe über Bildschirm. 

Wenn Sie einen Disassembler 
haben, drucken Sie doch einmal 
das Assemblerlisting aus. Sie 
werden in Adresse 58324/ 
58325 (SE3D4/E3D5), beim 
C 64 in 58354/58355 ($E3F2/ 
E3F3) den Befehl finden, der 
eine Null nach Zelle 19 ($13) 
bringt. 

Immer dann, wenn ein Pro¬ 
gramm nicht Tastatur und Bild¬ 
schirm, sondern eines der oben 
genannten anderen Peripherie¬ 
geräte anspricht (indem mit 
OPEN.... eine Datei = Logical 
File eröffnet wird), wird in Zelle 

19 die Nummer der gerade 
bearbeiteten Datei eingetragen, 
mit den bereits beschriebenen 
Konsequenzen. 

Ich will hier nicht weiter darauf 
eingehen, da wir den Inhalt von 
Zelle 19 selbst nicht auslesen 
können. Er wird nämlich immer 
gleich wieder auf Null gesetzt. 

Wir können ihn aber durch 
POKE verändern. Durch POKE 
19,1 gaukeln wir dem Rechner 
vor, daß Ein- und Ausgabe über 
»externe« Geräte läuft, selbst 
wenn nur die Tastatur und der 
Bildschirm betrieben werden. 

Wenn zum Beispiel der Rech¬ 
ner der Meinung ist, daß ein 
INPUT von der Datasette 
kommt, druckt er kein Fragezei¬ 
chen aus; auch kein EXTRA 
IGNORED als Fehlermeldung 
bei zu zahlreicher Eingabe und 
das alleinige Drücken der 
RETURN-Taste ignoriert er 
auch, im Gegensatz zum »nor¬ 
malen« INPUT. 

Probieren Sie es aus: 

10 INPUT 'TEST';A$ 

20 PRINT A$ 
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ln diesem Normalfall erscheint 
nach RUN darunter die Auffor¬ 
derung TEST? 

Eine Eingabe, zum Beispiel 
XX, erscheint mit einem 
Abstand daneben, und nach 
RETURN wird XX an den Anfang 
der nächsten Zeile gedruckt. 
Alle falschen Eingaben werden 
mit den üblichen Fehlermeldun¬ 
gen quittiert. 

Jetzt fügen wir ein: 

5 POKE 19,1 

Nach RUN erscheint wieder 
die Aufforderung TEST, aber 
ohne Fragezeichen. Die Ein¬ 
gabe XX wird ohne Abstand 
daneben gesetzt und nach 
RETURN mit einem Abstand in 
derselben Zeile weiterge¬ 
schrieben. 

Das Drücken der RETURN- 
Taste setzt den Cursor nicht wie 
üblich in die nächste Zeile, son¬ 
dern schiebt ihn in derselben 
Zeile weiter. 

Diesen zusätzlichen Effekt 
muß man beachten, da er sehr 
störend für den Verlauf eines 
Programms sein kann. 

Man kann ihn natürlich auch 
nutzbringend einsetzen, hat er 
doch die Eigenschaft eines 
automatischen »Cursor UP«. 
Eine pfiffige Anwendung dieser 
Art wurde von Brad Templeton 
für den PET erfunden und ist 
von Jim Butterfield für eine 
MERGE-Routine mit dem 
Namen »Magic Merge« veröf¬ 
fentlicht worden. 

Da diese Routine aber primär 
auf der Eigenschaft der Spei¬ 
cherzelle 153 basiert, werde ich 
sie dann erläutern, sobald wir 
bei der Zelle 153 angelangt 
sind. 

Zurück zur Flagge in Zelle 19. 

Umgekehrt können wir POKE 
19,0 leider nicht nutzen, da die 
betroffenen Befehle GET, 
GET#, INPUT, INPUT# und 
PRINT # die Flagge sofort auf 
den richtigen Wert setzen. Nur 
PRINT und LIST tun das nicht, 
wie wir bei dem PRINT-Befehl 
oben ja gesehen haben. 

Adresse 20 und 21 
($14 und $15) 

Zellennummer für LIST, GOTO, 
GOSUB und ON, Zeiger der 
Adresse bei PEEK, POKE, SYS 
und WAIT 

In diesen Speicherzellen wird 
die Zeilennummer der Sprung¬ 
befehle GOTO, ON..GOTO und 
GOSUB sowie die Zeilenan¬ 
gabe beim LIST-Befehl gespei¬ 
chert. Da die Werte bis maximal 
65535 gehen können, braucht 
der Computer 2 Byte zur High-/ 


Low-Byte-Darstellung. 

Die GOTO-Routine (im VC 20 
ab 51360 = SC8A0, im C 64 ab 
43168 = SA8A0) vergleicht die 
Zahl in 20 und 21 mit der laufen¬ 
den Zeilenzahl. Wenn sie kleiner 
ist, wird ab der ersten Zeile des 
Programms gesucht. Ist sie 
aber größer, dann beginnt die 
Suche ab der laufenden Zeilen¬ 
zahl. Die Suche geht solange, 
bis die in 20 und 21 angege¬ 
bene Zeilenzahl gefunden ist. 
Dann fährt das Programm mit 
dieser Zeile fort. 

LIST speichert in 20 und 21 
die höchste auszulistende Zei¬ 
lennummer ab, falls keine Anga¬ 
be beim LISTen gegeben wor¬ 
den ist, den Wert 65535 
(SFFFF). 

Die Befehle PEEK, POKE, 
SYS und WAIT verwenden diese 
Speicherzellen zur Angabe der 
Adressen, die dem Befehl 
immer folgen müssen. 

Leider können wir die Spei¬ 
cherzellen 20 und 21 mit Basic- 
Programmen nicht bearbeiten; 
ihr Inhalt wird immer gleich auf 
20 zurückgesetzt. 

Adresse 22 ($16) 

Zeiger auf den nächsten 
freien Speicherplatz im »Tem- 
porary String Descrlptor 
Stack« 

Dieser Zeiger bezieht sich in 
seiner Wirkung auf die über¬ 
nächsten Speicherzellen 25 bis 
33 ($19 bis $21). 

Diese werden als Stapelspei¬ 
cher (Stack) für Angaben über 
vorläufige Zeichenketten - auf 
englisch »Temporary String 
Descrlptor« - verwendet. 

Die Speicherzelle 22 ($16) 
ihrerseits enthält einen Zeiger 
auf den jeweils nächsten verfüg¬ 
baren Platz in diesem Speicher 
ab Zelle 25. Da er eine Kapazität 
von 3*3 Byte hat, zeigt der Zei¬ 
ger auf die Zelle 25 ($19), wenn 
er leer ist. Bei einem Eintrag 
zeigt er auf 28 ($1C), bei zwei 
Einträgen auf 31 ($1F) und 
schließlich auf 34 ($22), wenn 
der Speicher voll ist. 

Eine Zeichenkette ist dann 
»vorläufig«, wenn sie noch nicht 
einer Stringvariablen zugeord¬ 
net worden ist, zum Beispiel 
»Mahlzeit« in dem Basic-Befehl 
PRINT 'MAHLZEIT'. 

Beim Einschalten setzt das 
Betriebssystem mit der Ein¬ 
schaltroutine ab Adresse 
58303 ($E3BF) im C 64, beim 
VC 20 ab 58276 ($E3A4) den 
Zeiger auf 25. Die Stringverwal¬ 
tungsroutine ab 46215 
($B487) im C 64 beziehungs¬ 


weise ab 54407 ($D487) im 
VC 20 fragt bei String-Eingaben 
die Flagge ab. Nach jeder Ein¬ 
tragung in den Speicher ab Zelle 
25 wird der Zeiger um 3 weiter¬ 
gesetzt. 

Sie können die Leerflagge 25 
mit 

PRINT PEEK (22) 
leicht nachprüfen. 

Die anderen Eintragungen 
können nicht nachgeprüft wer¬ 
den, weil sie sofort auf 25 
zurückgesetzt werden. 

Wir können sie aber durch 
POKE beeinflussen; ob das 
sinnvoll ist, ist eine andere 
Frage. 

10 POKE 22,34 
20 PRINT 'MAHLZEIT" 

Die Zahl 34 in Zelle 22 sagt 
dem Programm, daß der Spei¬ 
cher ab Zelle 25 voll ist. Wir 
bekommen statt der MAHLZEIT 
eine Fehlermeldung serviert. 

Mit einem POKE-Befehl, der 
als Argument die für den vorge¬ 
sehenen Zweck ungültige Zahl 
35 verwendet: 

POKE 22,35 

erreichen wir allerdings zwei 
interessante »Dreckeffekte«. 
Zum einen unterdrückt der 
Befehl die Ausgabe des READY, 
zum anderen aber bewirkt er, 
daß uui LIST ein Listing ohne 
Zeilennummern ausgedruckt 
wird, sowohl auf dem Bildschirm 
als auch mit dem Drucker. 

Das billigste 
editierfähige Textver¬ 
arbeitungssystem 

Die Idee dazu habe ich von 
Mike Apsey’s Hinweis in »Com- 
modore User« Juli 1984. Mit 
Zeilennummern versehen, läßt 
sich jeder beliebige Text schrei¬ 
ben, verbessern, verschieben, 
abspeichern, aber nicht RUN- 
enü 

Der POKE-Befehl von oben 
(POKE 22,35) gefolgt von 
einem CMD und LIST, druckt 
dann alles brav als reinen Text 
aus. Die maximale Zeilenlänge 
entspricht der Zeilenlänge des 
jeweiligen Computers. 

Probieren Sie es aus: 

10 DER COMPUTER BIETET 
INDER 

20 DATENFERNÜBER¬ 
TRAGUNG 
30 UNGEAHNTE 
MÖGLICHKEITEN. 

40 ABER DIE GEFAHR 
50 USW. USW. 

60: 

Jede Zeile wird mit der 
RETURN-Taste abgeschlossen. 
Damit auch alles gedruckt wird, 


muß - zumindest bei meinem 
Drucker (1526) - eine »Leer¬ 
zeile« folgen (Zeile 60). Mit 
POKE 22,35: OPEN 1,4: CMD 
1:LIST 

wird der Text ohne Zeilennum¬ 
mern ausgedruckt. Sie können 
ihn vorher nach Belieben 
verändern. 

Wie gesagt, nur nicht mit RUN 
starten, denn das bringt unwei¬ 
gerlich eine Fehlermeldung. 

Adresse 23 und 24 
($17 und $18) 

Zeiger auf die Adresse der 
letzten Zeichenkette Im »Tem¬ 
porary String Stack« 

Der Inhalt dieser 2 Byte zeigt 
auf den zuletzt benutzten Spei¬ 
cherplatz innerhalb der Adresse 
22 bis 33. Das heißt, daß der 
Wert in 23 ($17) immer um 3 
kleiner ist als der in 22 ($16), 
während der Wert in 24 ($18) 
eine Null ist. 

Adresse 25 bis 33 
($19 bis $21) 

Stapelspeicher für Angaben 
über vorläufige Zeichenketten 

Das ist also der Speicherbe¬ 
reich, von dem In den beiden 
vorigen Abschnitten dauernd 
die Rede war. Ich gebe zu, 
»Descriptor Stack for Tempo¬ 
rary Strings« drückt die Sache 
präziser aus als der deutsche 
Text. 

Die Bedeutung eines »vorläu¬ 
figen« Strings habe ich oben in 
der Beschreibung der Spei¬ 
cherzelle 22 erklärt. 

Was ein Stapelspeicher 
(Stack) ist, entnehmen Sie bitte 
dem Texteinschub 6. Jeder der 
3 Byte langen Angaben im 
Stack von 22 bis 33 enthält die 
Länge sowie die Anfangs- und 
Endadressen eines vorläufigen 
Strings, ausgedruckt als Ver¬ 
schiebung im Basic-Speicher- 
bereich. 

Adresse 34 bis 37 
($22 bis $25) 

Verschiedene Zwischenspei¬ 
cher 

Diese vier Speicherzellen 
werden vom Basic-Übersetzer 
(Interpreter) für verschiedene 
Zwischenergebnisse und Flag¬ 
gen benutzt, die aber dem Pro¬ 
grammierer nichts nutzen. 

Adresse 38 bis 42 
($26 bis $2A) 

Arbeitsspeicher für arithmeti¬ 
sche Operationen 

Diese Speicherzellen werden 
von den Basic-Routinen bei der 
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Multiplikation und Division als 
»Notizblatt« verwendet. Auch 
die Routinen, welche die erfor¬ 
derliche Speichergröße beim 
Definieren eines Zahlenfeldes 
(Array) ausrechnen, benutzen 
diesen Bereich. 

Adresse 43 und 44 
($2B und $2C) 

Zeiger auf den Anfang der 
Basic-Programme im Spei¬ 
cher 

Dieser Zeiger, in der Low-/ 
Hlgh-Byte-Darstellung, gibt 
dem Basic-Übersetzer an, ab 
welcher Speicherzelle das 
Basic-Programm beginnt. Nor¬ 
malerweise ist diese Adresse 
fest vorgegeben. Beim C 64 
zum Beispiel zeigt der Zeiger 
auf 2049 ($801). Beim VC 20 
ist die Lage schon schwieriger, 
denn der Speicherbeginn hängt 
davon ab, welche Speicherer¬ 
weiterung eingesetzt ist. Die fol¬ 
gende Tabelle 3 gibt darüber 
Auskunft. 

Tabelle 3: Beginn des Programm¬ 
speichers 

C 64 2049 ($801) 

VC 20 (QV) 4097 ($1001) 

VC 20 (+3 K) 1025 ($401) 

VC 20 (+ 8 K) 4609 ($1201) 


Mit dem Befehl 

PRINT PEEK (43) + PEEK 

(44)*256 

läßt sich der jeweilige Beginn 
des Programmspeichers leicht 
feststellen. Mit einem POKE- 
Befehl kann der Programmierer 
diese Anfangsadresse verän¬ 
dern. Wozu das gut ist, fragen 
Sie? 

Anwendung #1: 

Nun, wenn Sie zum Beispiel 
ein Maschinenprogramm mit 
einem Basic-Programm ge¬ 
meinsam betreiben wollen, 
brauchen Sie einen Speicher¬ 
bereich für das Maschinenpro¬ 
gramm, der vom Basic-Pro¬ 
gramm nicht belegt wird. Wir 
sprechen vom »Schützen des 
Maschinenprogramms vor dem 
Überschreiben durch das 
Basic«. Der Speicherbereich 
eines Maschinenprogramms Ist 
Immer bekannt. Nach seinem 
letzten Speicherplatz kann das 
Basic-Programm beginnen. 

Die Verschiebung der An¬ 
fangsadresse erfolgt in vier 
Schritten: 

1. Schritt: In den Speicherplatz 
vor dem neuen Basic-Bereich 
muß eine Null gePOKEt werden. 
Die Null dient zum Abgrenzen. 

2. Schritt: Die Adresse der 
ersten Speicherzelle wird in die 
Low-/High-Byte-Darstellung um¬ 


gerechnet. Ich verweise dazu 
auf die Erklärung dieses Vor¬ 
gangs im Texteinschub Nr. 1. 

3. Schritt: Das Low-Byte wird in 
die Speicherzelle 43, das High- 
Byte in die Zelle 44 gePOKEt. 

4. Schritt: Die Operation muß 
unbedingt mit dem Befehl NEW 
abgeschlossen werden, um 
sicherzustellen, daß auch alle 
anderen Zeiger auf ihren An¬ 
fangszustand gesetzt werden. 

Im folgenden kleinen Pro¬ 
gramm wird angenommen, daß 
der Speicher bis zur Adresse 
5000 ($1388) durch ein Ma¬ 
schinenprogramm belegt ist. 
Das Basic-Programm kann 
daher ab 5002 ($138A) an¬ 
fangen, denn in 5001 muß ja 
eine Null stehen. Die Adresse 
5002 teilt sich auf in ein High- 
Byte von INT (5002/256) = 19 
und ein Low-Byte von 5002- 
(19*256) = 138. 

10P0KE 5001,0 
20 POKE 43,138 
30P0KE 44,19 
40 NEW 

Der Effekt einer solchen »Ver¬ 
biegung« des Zeigers in 43 und 
44 wird im Texteinschub Nr. 7 
»Der sichtbare Basic-Speicher« 
demonstriert. 

Neben der oben erwähnten 
Anwendung der Zeigerverbie¬ 
gung gibt es noch andere Mög¬ 
lichkeiten: 

Anwendung #2: 

Christoph Sauer hat in seinem 
Kurs »Der gläserne VC 20« in 
Ausgabe 10/84 auf Seite 158 
gezeigt, wie man mehrere Pro¬ 
gramme gleichzeitig im Spei¬ 
cher unterbringen und zwi¬ 
schen ihnen umschalten kann. 
Anwendung #3: 

Man kann zwei oder mehrere 
unabhängige Programme genau 
hintereinander in den Speicher 
bringen, um sie aneinander zu 
hängen, was dem im Commo- 
dore-Basic fehlenden Befehl 
MERGE entspricht. Dabei dür¬ 
fen die Zeilennummern sich 
allerdings nicht überschneiden. 
Anwendung #4: 

Durch Hinaufschieben des 
Basic-Bereichs kann Platz 
geschaffen werden für selbst¬ 
definierte Zeichen oder hoch¬ 
auflösende Grafik. 

Die Speicherzellen-Paare von 
45, 46 bis 55, 56 ($37 bis 
$38) zeigen auf weitere für 
Basic-Programme wichtige 
Speicherbereiche, die deswe¬ 
gen gemeinsam betrachtet wer¬ 
den sollten. Bild 5 stellt den 
Zusammenhang grafisch dar. In 
diesem Bereich werden alle 
Variablen eines Programms 
gespeichert. Zur Erinnerung: 


Texteinschub Nr. 6 
Was ist ein Stapelspeicher (Stack)? 

Der normale Arbeitsspeicher des Computers, auf englisch 
»Random Access Memory« oder kurz RAM genannt, hat für jede 
Speicherzelle eine eigene Adresse, die beim Schreiben in den 
Speicher oder beim Lesen aus dem Speicher angegeben wer¬ 
den muß. 

Als Analogie möge eine Aktenablage dienen, bei der jeder Akt 
(Brief, Papier, Zeichnung) in einen Ordner kommt, mit Nummer 
versehen. 

Um einen Akt herauszuholen, muß man die Nummer (Adresse) 
kennen, unter der er abgelegt ist. 

Ein Stapelspeicher, auf englisch »Stack« genannt, funktioniert 
wie eine Aktenablage, bei der jeder Akt einfach oben auf einen 
Stapel gelegt wird, daher der Name. Diese Ablage erfolgt ohne 
Kennzeichnung oder Nummer, einfach immer der Reihe nach. 

Einen Akt kann man aus einem Stapelspeicher nicht beliebig 
herausholen, da immer nur der oberste Akt zugänglich ist. 

Die Methode der Stapelspeicher bietet sich überall dort an, wo 
es auf die Reihenfolge der gespeicherten Daten ankommt. Basic 
merkt sich zum Beispiel der Reihe nach die Adressen, von denen 
aus mit GOSUB ein Unterprogramm angesprungen wird. Wenn 
mehrere GOSUBs hintereinander eingesetzt werden, liegt auf 
dem Stapel immer die letzte Absprungadresse bereit zum 
Rücksprung. 

Ein Stapelspeicher hat demnach nur eine einzige Adresse, die 
sowohl zum Abspeichem als auch zum Auslesen dieselbe ist. 

Voraussetzung eines Stapelspeichers ist natürlich eine Rou¬ 
tine, welche alle gespeicherten Daten im Stapelspeicher um 
einen Platz weiterschiebt, wenn eine neue Information »oben auf 
den Stapel gelegt wird«. 

Das Basic der Commodore-Computer verwendet mehrere die¬ 
ser 3;. oelspeicher. 

Die Programmiersprache Förth ist völlig auf dem Prinzip des 
Stapelspeichers aufgebaut. 


Texteinschub Nr. 7 
Der sichtbare Basic-Speicher 

Wenn wir den Variablen A die Adresse des Speicherbeginns 
der Basic-Programme zuordnen und dann mit einer FOR..NEXT- 
Schleife den Inhalt dieser und der nächsten 100 Speicherplätze 
ausdrucken, sehen wir in dezimaler Darstellung die ersten 101 
Zahlenwerte, mit denen der Computer ein Basic-Programm 
speichert. 

Ein Verbiegen des Zeigers in Speicherzelle 43/44 kann auf 
diese Weise in seiner Wirkung sichtbar gemacht werden. 

Als Demo-Programm wähle ich zwei Zeilen, welche die Zahlen 
1 bis 9 und die Buchstaben A bis I ausdrucken. 

10 PRINT "123456789" 

20 PRINT "ABCDEFGHI* 

100 A=2049 : REM*C 64 

4097 : REM*VC 20 ohne Erweiterung 
1025 : REM*VC 20 mit 3 KByte 
4609 : REM*VC 20 mit 8 KByte oder mehr 
110 PRINT CHR$(147) 

Zeile 100 definiert den Speicheranfang. Zeile 110 löscht den 
Bildschirm. 

120 FOR J=A TO A+100 
130 PRINT PEEK (J); 

140 NEXT J 

Die Befehle in den Zeilen 120 bis 140 drucken den Inhalt der 
ersten 101 Zellen dieses Basic-Programmsaus. SAVEn Sie bitte 
dieses kleine Programm, denn wir brauchen es noch einmal. 
Dann geht es los mit RUN. In Bild 3 ist der Bildschirm-Ausdruck 
des VC 20 mit 8 KByte dargestellt, der des C 64 zeigt praktisch 
dieselbe Information. 
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Überspringen Sie bitte zunächst die ersten beiden Zahlen. Die 
dritte und vierte Zahl ist 10 und 0. Das ist (als Low- und High- 
Byte) die Nummer der ersten Zeile des Basic-Programms. Dann 
folgt 153, das ist der interne Codewert für PRINT. Diese Codes 
für alle Basic-Befehlswörter heißen »TOKEN«, sie sind im Textein¬ 
schub Nr. 32 angegeben. 

Die nächste Zahl auf dem Bildschirm ist die 34, sie ist der 
ASCII-Code für den Gänsefuß. Danach folgen in aufsteigender 
Reihenfolge die ASCII-Codes der Ziffern 1 (48) bis 9 (57). 
Danach sehen Sie wieder den Gänsefuß (34). Schließlich kommt 
eine Null als Abstandszeichen zur nächsten Basic-Zeile. 

Machen Sie bitte folgendes Experiment: Ausgehend von der 
Adresse der ersten auf dem Bildschirm ausgedruckten Spei¬ 
cherzellen - zum Beispiel 4609 beim VC 20 mit 8 KByte - zählen 
Sie die Zellen weiter bis zur Abgrenzungs-Null. In meinem Bei¬ 
spiel steht die Null in Zeile 4625. Das heißt, daß die nächste 
Basic-Zeile in 4626 anfängt. Und das ist genau die Zahl, die in 
den ersten beiden Zellen steht, die wir vorhin übersprungen 
haben; in meinem Beispiel steht da 1818. Machen wir die Probe: 
18 + 256 * 18 = 4626. 

Jede Basic-Zeile im Speicher beginnt also mit der Adresse der 
nächsten Zeile (sie heißt Koppeladresse) und endet mit einer 
Null. 

Ab 4626 folgt dann die nächste Koppeladresse, danach mit 
20 0 die Zeilennummer, und Sie erkennen jetzt sicher die Codes 
der Angaben von Zeile 20 wieder. 

So, jetzt wollen wir den Zeiger in 43 und 44 verbiegen. Ich 
schlage vor, daß wir den Basic-Beginn um zehn Adressen höher 
schieben. Sie müssen jetzt die in Zeile 100 oben verwendete 
Zahl für A in die High-/Low-Byte-Darstellung umrechnen und das 
Low-Byte um 10 erhöhen. Dieses Zahlenpaar POKEn wir in die 
Zellen 43 und 44. Vorher müssen wir aber noch in Zelle (A + 10) 
-1 eine Abstands-Null POKEn. 

Wir geben diese Befehlssequenz im Direktmodus ein: 

□ für den C 64: 

POKE 2058,0:P0KE 43,11:POKE 44,8:NEW 

□ für den VC 20 (GV): 

POKE 5006,0: POKE 43,143: POKE 44,19: NEW 

□ für den VC 20 (= 3 KByte): 

POKE 1034,0:POKE 43,11:POKE 44,4:NEW 

□ für den VC 20 (> 8 KByte) 

POKE 4618,0:POKE 43,11:POKE 44,18: NEW 

Jetzt ist der Anfang des Basic-Speichers versetzt. Um das zu 
prüfen, geben wir das kleine Programm von oben nochmal ein 
und lassen es mit RUN laufen. Der resultierende Bildschirmaus¬ 
druck ist in Bild 4 dargestellt. 

Die ersten Zahlen sind genauso wie vorher. Es sind auch die 
Reste von vorher, da wir den Speicher nicht auf Null gesetzt 
haben. Aber zählen Sie bitte die ersten zehn Adressen hoch. Da 
finden Sie unser Programm von vorhin genau wieder, beginnend 
mit der Abstands-Null. Aber Vorsicht, lassen Sie sich nicht ver¬ 
wirren, denn die Koppeladressen sind natürlich jetzt auch jeweils 
um 10 höher. Aber hinter den Koppeladressen finden wir wieder 
unser Programm, in gleicher Weise dargestellt wie beim ersten 
Mal. Da der Zeiger in 43 und 44 von allen entsprechenden Routi¬ 
nen des Übersetzers und des Betriebssystems abgefragt wird, 
läuft ein verschobenes Programm fehlerfrei, solange natürlich 
der Zeiger nicht wieder verändert wird. 


Wir unterscheiden zwischen 
»normalen« Variablen (numeri¬ 
sche und String-Variable) und 
Feld-Variablen (Arrays). Dabei 
ist wichtig zu wissen, daß ein 
Basic-Programm während des 
Eintippens oder Einladens von 
Disk beziehungsweise Kassette 
in den 1. Block kommt. Während 
des Programmlaufs werden alle 
normalen Variablen in den 2. 
Block geschrieben, alle Felder 


(Arrays) in den 3. Block und 
schließlich der Text der Zei¬ 
chenketten (Strings) sozusa¬ 
gen rückwärts vom Ende des 
Arbeitsspeichers in den 4. 
Block. Je nach Größe des Pro¬ 
gramms und nach Anzahl der 
Variablen wandern die Block¬ 
grenzen nach oben bezie¬ 
hungsweise die von Block 4 
nach unten. Wenn sie sich tref¬ 
fen beziehungsweise über¬ 



Bild 3. Ausdruck vom VC 20 mit 8 KByte Speicher¬ 
erweiterung 



schneiden, gibt es »OUT OF 
MEMC.iY«. 

Diese Blockbewegung ist in 
Bild 5 durch die Pfeile dar¬ 
gestellt. 


Adresse 45 und 46 
($2D und $2E) 

Zeiger auf die Anfangsadres¬ 
se des Speicherbereichs für 
Variable 

Dieser Zeiger, in der Low/ 
High-Byte-Darstellung, gibt 
dem Basic-Interpreter an, ab 
welcher Speicherzelle die Varia¬ 
blen eines Basic-Programms 
gespeichert sind. Da die Varia¬ 
blen direkt an das Basic- 
Programm anschließen, zeigt 
dieser Zeiger natürlich gleich¬ 
zeitig auf das Ende des Basic- 
Programms. 

Es muß betont werden, daß 
es sich nur um den Bereich der 
»normalen« Variablen handelt, 
also nicht um Felder (Arrays). 
Anders als der Zeiger in 43 und 
44, der auf fest definierte Spei¬ 
cherzellen zeigt, liegt der Zeiger 
für den Variablen-Beginn nicht 
fest. Je nach Länge des Pro¬ 
gramms wandert er nach oben. 

Sobald ein Programm einge¬ 
tippt oder aus einem externen 
Speicher (Diskette, Kassette) 
eingelesen ist, wird der Zeiger 


in 45 und 46 durch RUN auf ein 
Byte hinter das Programmende 
gesetzt und alle Variablen wer¬ 
den in der Reihenfolge ihres 
Auftretens gespeichert. Da nor¬ 
malerweise die Länge eines 
Basic-Programms während des 
Ablaufs konstant bleibt, werden 
die Variablen in Ihrer Position 
auch nicht gestört. 

Das bedeutet, daß sie sowohl 
vom Programm als auch vom 
Programmierer nach einer 
Unterbrechung abgefragt wer¬ 
den können. Nur wenn das Pro¬ 
gramm modifiziert wird, wandert 
der Zeiger zusammen mit den 
Variablen entsprechend weiter. 

Denselben Effekt wie das 
oben erwähnte RUN haben übri¬ 
gens auch die Befehle NEW, 
CLR und LOAD. Eine Ausnahme 
bildet das LOAD innerhalb eines 
Programms, welches den Zei¬ 
ger nicht zurücksetzt. Dadurch 
wird ein Aneinanderhängen von 
mehreren Programmen samt 

Variablen-Weiterverwendung 
unter bestimmten Vorausset¬ 
zungen ermöglicht. 

Die Bearbeitung der Variablen 
durch das Basic-Programm und 
die daraus resultierenden Koch¬ 
rezepte für den Programmierer 
sind Im Texteinschub Nr. 8 »Nor¬ 
male Variable in BASIC« separat 
erläutert. 

Die verschiedenen Typen der 
Variablen und ihre Darstellung 
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Adressen 
der Zeiger 




Letzter eingegebener 
String-Text 


53/54 - 


Ende der 
String-Texte 



Ende des Anwendungsspeichers 
= Beginn der String-Texte 


C 64. 40959 
VC 20: (ohne 
Erweiterung) 
7679 


der Felder 

1 Beginn der Felder 
(= Ende der Variablen) 

1 Beginn der Variablen 
(= Ende des Basic-Programms) 


i des Anwendungsspelchers 
(Beginn des Basic-Programms) 


C 64 1024 

VC 20 (ohne Erweiterung): 4096 


Bild 5. Eine schematische Aufteilung des Speichers des C64/VC20 


im Speicher finden Sie im 64’er, 
Ausgabe 10/84, Seite 157 und 
noch ausführlicher in Ausgabe 
11/84, Seite 124, dargestellt 
und erklärt. 

Für diejenigen Leser, welche 
kein Monitor- beziehungsweise 
Disassembler-Programm haben 
oder benutzen können, ist im 
Texteinschub Nr. 9 »Darstellung 
der normalen Variablen im Spei¬ 
cher« eine kleine Anleitung 
gegeben, wie sie die Variablen¬ 
darstellung mittels Basic 
anschauen können. 


Adresse 47 und 48 
($2F und $30) 

Zeiger auf die Anfangsadres¬ 
se des Speicherbereichs für 
Felder (Arrays) 

Dieser Zeiger, in der Low-/ 
High-Byte-Darstellung, gibt 
dem Basic-Übersetzer (Inter¬ 
preter) an, ab welcher Speicher¬ 
zelle die Felder (Arrays) eines 
Basic-Programms gespeichert 


Texteinschub Nr. 8 
Normale Variable in Basic 

Alle Daten, die in einem Basic-Programm nicht in Form von 
READ-DATA-Anweisungen Vorkommen, werden als »Variable« 
unmittelbar nach dem Basic-Programm abgespeichert. Wir 
unterscheiden dabei zwei Typen: 

- normale Variable 

- Felder (Arrays) 

Wir betrachten hier nur die »normalen« Variablen. 

Sie erscheinen in dem Speicherbereich, dessen Beginn durch 
den Zeiger in den Zellen 45 und 46 und dessen Ende durch den 
Zeiger in 47 und 48 angegeben wird, in derselben Reihenfolge, 
in welcher sie während des Ablaufes des Basic-Programms auf- 
treten. Wenn Basic dann auf eine der bereits definierten (und 
abgespeicherten) Variablen zurückgreifen soll, muß es den 
gesamten Variablenbereich von Anfang an absuchen, bis es den 
Namen der gesuchten Variablen gefunden hat. Wenn diese 
Variable ganz am Ende des Bereiches steht, kann dieser Such¬ 
prozeß recht lange dauern. 

Regel 1: 

Häufig vorkommende Variable sollen am Anfang des Variablen¬ 
bereichs stehen. Das wird dadurch erreicht, daß sie als erste 
Variable in einem Programm »definiert« werden. Falls sie erst 
später im Programm gebraucht werden (aber dann häufig), wer¬ 
den sie trotzdem am Anfang des Programms angegeben, notfalls 
mit einem beliebigen Wert, der später dann keine Rolle mehr 
spielt und ersetzt wird. Man nennt das einen »Dummy«-Wert. 

Die Felder-Variablen stehen direkt nach den »normalen« Varia¬ 
blen. Auch hier kann der gewiefte Programmierer Gutes tun. 
Wenn nämlich nach einer Definition eines Feldes später im Pro¬ 
gramm noch normale Variable dazukommen, ist natürlich zuerst 
kein Platz für sie da. Das Betriebssystem des Computers muß 
erst alle Felder-Variablen weiterschieben, bevor die Neuan¬ 
kömmlinge in dem dadurch erweiterten Variablenbereich gespei¬ 
chert werden können. Auch das kostet unnötig viel Zeit. 

Regel 2: 

Alle normalen Variablen sollen als erste In einem Programm 
definiert werden. Wer also drauflos programmiert, sollte zumin¬ 
dest am Ende das Programm so umbauen, daß diese simple 
Regel erfüllt wird. 


Texteinschub Nr. 9 
Darstellung der normalen Variablen 
im Speicher 

Die i .ormalen Variablen kommen in drei Arten vor: 

- ganzzahlige Variablen 

- Gleitkomma-Variablen 

- String-Variablen (Zeichenketten) 

Der Unterschied zwischen den drei Typen ist in den 
Commodore-Handbüchern gut erklärt, und ich verzichte hier auf 
eine Wiederholung. Ich will vielmehr direkt zeigen, wie die Varia¬ 
blen im Speicher abgelegt sind. 

Wir können den Speicher direkt sichtbar machen. 

Einmal geht das in Maschinencode mittels eines Monitors 
beziehungsweise Disassemblers. 

Zum anderen aber geht das auch in Basic und zwar mit folgen¬ 
dem Trick, den ich Th. und M.L. Beyer (MC 10/1983) abgeschaut 
habe. 

Wir verlegen den Beginn des Basic-Variablenspeichers ein¬ 
fach auf den Beginn des Bildschirmspeichers. Auf diese Weise 
können wir zwar kein vernünftiges Programm laufen lassen, aber 
alle direkt eingegebenen Variablen-Definitionen werden sofort 
sichtbar, weil sie eben im Bildschirmspeicher stehen. 

Wir erreichen die Verlegung des Speichers durch »Verbiegen« 
der Zeiger in den Zellen 45 und 46 und 47 und 48. Die Bedeu¬ 
tung dieser Zeiger ist ja im Kurs erklärt. 

Die Speicherverlegung beziehungsweise die Methode dazu 
ist für den C 64 anders als für den VC 20. 

■ VC 20: 

Alle Angaben gelten für den VC 20 ohne Speichererweite¬ 
rung, also ziehen Sie bitte alle Speichermodule heraus. Der Spei¬ 
cherbereich für Programme und deren Variablen beginnt jetzt ab 
Adresse 4096, das ist Block 1 im Bild 5. Der Bildschirmspeicher 
beginnt ab 7680. Wir verlegen jetzt den Bildschirmspeicher in 
den Block 1, so daß er ebenfalls ab Adresse 4096 beginnt. 
Danach müssen wir noch eine Farbe - am besten Schwarz - in 
den Farbspeicher POKEn, der in dieser neuen Konfiguration von 
37888 bis 38399 liegt. Warum das so ist, erklärt Christoph 
Sauer in seinem Aufsatz »Der gläserne VC 20«, Teil 4, im 64'er 
1/85, Seite 131. 

Das High-Byte der Adresse, in welcher der Bildschirmspeicher 
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beginnt, steht in der Speicherzelle 648. Sie können das jeder¬ 
zeit mit PRINT PEEK(648) nachprüfen. Umgekehrt können wir 
eine Zahl hineinPOKEn, wodurch der Bildschirmspeicher ver¬ 
schoben wird. In unserem Fall erhalten wir das High-Byte für 
4096 durch 4096/256 = 16. 

Machen Sie jetzt bitte folgende Schritte: 

1) direkt eingeben: POKE 648,16(RETURN), 

2) RUN/STOP und RESTORE drücken, bis der Cursor wieder da 
Ist, 

3) direkt eingeben: 

FÜR J = 37888: TO 38399: POKE J,0: NEXT J (RETURN), 

4) mit der DELETE-Taste (nicht mit CLR !) den ganzen Text des 
Bildschirms löschen, 

5) mit dem Cursor etwa acht Zeilen nach unten gehen, 

6) mit der Commodore- und SHIFT-Taste zusammen auf die Groß- 
und Kleinschrift umstellen. 

Schritt 1 und 3 habe ich oben schon erklärt. Schritt 4 ist nicht 
absolut notwendig, aber ein leerer Bildschirm ist für uns besser. 
Die CLR-Taste würde Schritt 3 zunichte machen. Schritt 5 
erlaubt uns, weiter unter auf dem Bildschirm Variablen einzuge¬ 
ben, ohne den oberen Teil vollzuschreiben. Schritt 6 schließlich 
erleichtert das Erkennen der Variablen-Darstelllung. 

■ C 64: 

Beim C 64 beginnt der Bildschirmspeicher ab 1024. In Low-/ 
High-Byte-Darstellung ist das 0/4 (1024/256=4, Rest 0). 
Geben Sie bitte direkt ein: 

POKE 46,4 :POKE 48,4 

Das Low-Byte in 45 und 47 können wir weglassen, da es ja in 
beiden Fällen 0 ist. Diese Methode gilt für alle neueren C 64, bei 
denen direkt ein Zeichen in den Bildschirmspeicher gePOKEt 
werden kann, ohne sich um die Zeichenfarbe kümmern zu müs¬ 
sen. Es gibt noch einige C 64 mit älteren Betriebssystemen, bei 
denen die Zeichenfarbe auch angegeben werden muß. Hier gilt: 
FOR J = OTO 1000:POKE 55296*3,14:NEXT J 

■ Alles weitere gilt für beide Computertypen gleich 

Wenn Sie jetzt den Bildschirm löschen, den Cursor ungefähr 
in die Mitte des Bildschirms fahren und wiederum direkt einge¬ 
ben: 

VARIABLE = 3 und die RETURN-Taste drücken, 
dann erscheinen oben sieben Zeichen. Bitte schalten Sie mit der 
SHIFT- und Commodore-Taste auf den zweiten Zeichensatz um, 
jetzt können wir besser lesen. 

Aus anderen Kursen wissen Sie wahrscheinlich, daß Variable 
mit 7 Byte dargestellt werden. In der Tat sehen wir oben die 
ersten beiden Buchstaben des Variablennamens VA und fünf 
weitere Zeichen. Wir wollen aber systematisch Vorgehen und 
uns zuerst die ganzzahligen Variablen anschauen. 
Ganzzahl-Variable 

Wiederholen Sie bitte den Vorgang (Löschen, Cursor auf Mitte, 
2. Zeichensatz). Jetzt geben Sie eine Ganzzahl-Variable ein: 
VA*=3 

Nach RETURN sehen wir als erstes Zeichen ein reverses V, 
dann ein reverses A, den Klammeraffen @, das kleine c und 
nochmals drei @. Die beiden ersten Zeichen des Variablenna¬ 
mens (besteht er nur aus einem Zeichen, wird mit einer 0 aufge¬ 
füllt) werden mit ihrem ASCII-Code eingegeben, zu dem bei 
Ganzzahl-Variablen zur Kennzeichnung einer solchen die Zahl 
128 addiert wird. 

Schauen Sie in einer ASCII-Tabelle (64'er, Ausgabe 7/84) 
nach: Das V hat 86, um 128 erhöht gibt das 214. Wir arbeiten 
hier aber im Bildschirmspeicher, der die Zahlen auf seine eigene 
Weise interpretiert, nämlich als Bildschirmcode. Der Bildschirm- 
code-Tabelle entnehmen wir das Zeichen für den Wert 214 und 
das ist das invertierte V. Für das A können Sie das selbst nach¬ 
vollziehen. 

Also: In unserer Darstellung erkennen wir Ganzzahl-Variable an 
den invertierten Zeichen des Namens. 

Das 3. und 4. Zeichen sind das High- und Low-Byte des Varia¬ 
blenwertes und zwar im Bildschirmcoda In unserem Beispiel der 


3 ist das High-Byte 0, also der Klammeraffe @, das Low-Byte 3, 
also das c. Die restlichen drei Byte sind mit 0 aufgefüllt. 

Wenn Sie mit dem Cursor auf die 3 fahren, es mit einer 5 über¬ 
schreiben und RETURN drücken, verwandelt sich das c in ein e. 
Beim Überschreiben mit 255 erscheint als 4. Byte das Zeichen 
für den Bildschirmcode 255. Beim Überschreiben mit 257 
ändern sich beide Bytes. Das 3. (High-)Byte springt auf a (=1), 
das 4. (Low-)Byte ebenfalls auf a. Nun, 1 * 256+1 = 257. 

Während, wie bewiesen, das Low-Byte von 0 bis 255 gehen 
kann, sind beim High-Byte nur Werte zwischen 0 und 127 zuge¬ 
lassen. Die Werte ab 128 signalisieren negative Zahlen. Probie¬ 
ren Sie es aus: 

127 * 256*255=32767 

Ein Überschreiben mit 32767 resultiert in einer Darstellung 
der Zeichen für den Bildschirmcode 127 und 255. Der Wert 
32768 wird nicht mehr akzeptiert. Dasselbe machen wir noch 
schnell für negative Zahlen. 

Überschreiben Sie bitte die letzte Zahl mit 0. Wie zu erwarten 
war, sind Byte 4 und 5 jetzt 0 (Klammeraffe). 

Wenn Sie jetzt mit -1 überschreiben, erscheint für beide Bytes 
das Zeichen mit dem Bildschirmcode 255. Bei -2 sehen wir die 
Zeichen mit den Code-Werten 255 und 254. 

Sie sehen also, daß die negativen Zahlen für ganzzahlige Varia¬ 
ble sozusagen vom Ende der Tabelle her dargestellt werden, 
wobei die höchste negative Zahl wieder 32767 ist. Diese »Rück¬ 
wärtszählung« ist bedingt durch die Methode der negativen Zah¬ 
lendarstellung im Zweierkomplement. Der Platz und die Gele¬ 
genheit verbieten es mir, näher darauf einzugehen. Aber ich 
glaube, unser kleines Experiment hat Ihnen zumindest von der 
Darstellung her den Zusammenhang gezeigt. In Bild 6 ist diese 
Darstellung der ganzzahligen Variablen im Speicher wiederge¬ 
geben. 
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Zeichen des 
Varlablen-Namens 
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Byte des Varia- 
blenwertes 

0 0 
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Bild 6. So stehen ganzzahlige Variable Im Speicher 


Gleitkomma-Variable 

Ich hoffe, Sie verzeihen mir, wenn ich diese Darstellung an die¬ 
ser Stelle überspringe. Sie ist nämlich nicht ganz leicht zu verste¬ 
hen, und ich möchte sie lieber dann im Detail erklären, wenn wir 
zur Diskussion der Speicherzellen 97 bis 101, nämlich des 
Gleitkomma-Akkumulators kommen. Da geht es in einem Stück. 
Als Vorgeschmack gebe ich jetzt in Bild 7 nur die Zusammenfas¬ 
sung an. 


1 

2 

3 

4 5 6 7 

Erstes 

Zweites 

Exponent 
+ 129 

Mantisse mit Genauig¬ 
keit von 32 Dualstellen. 
1. Bit des 1. Bytes ist 
das Vorzeichen 

Zeichen des 

Variablen-Namens 

(ASCII-Wert) 


Bild 7. Der FAC = Gleit- oder Fließkomma-Akkumulator 


String-Variable 

Zuerst ist es erforderlich, den Computer in den Anfangszu¬ 
stand zurückzusetzen. Wenn Sie einen RESET-Schalter haben, 
bitte diesen drücken, sonst aber aus- und einschalten. Wir 
geben nach Löschen des Bildschirms in der unteren Hälfte direkt 
ein: 

ZX$= *A* <RETURN> 

Wir erhalten ein Z, ein invertiertes X, ein kleines a, ein grafi¬ 
sches Zeichen, eine Leerstelle und zwei Klammeraffen. 

Fahren Sie bitte jetzt mit dem Cursor auf das A und ändern den 
String um in BC. Nach RETURN verwandelt sich das a in das b, 
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das 4. Zeichen ändert sich ebenfalls. Die ersten beiden Zeichen 
sind also wieder der Name der Variable. 

Um zu kennzeichnen, daß es eine String-Variable ist, erscheint 
das 2. Zeichen des Namens invertiert. Wie oben entsteht es 
dadurch, daß zum ASCII-Code die Zahl 128 addiert wird. Diese 
Zahl wird aber wieder als Bildschirmcode interpretiert und ent¬ 
sprechend angezeigt (vergleichen Sie es mit den ASCII- und 
Bildschirmcode-Tabellen). 

Das 3. Zeichen gibt die Länge des Strings an, also im ersten 
Fall mit a (=1 im Bildschirmcode), im 2. Fall mit b (=2). Zeichen 
4 und 5 geben als Low- und High-Byte die Adresse an, bei der 
begonnen wird, den Text des Strings zu speichern. Das können 
wir nachprüfen. 

Wir hatten die beiden Fälle: 

1. ZX $ = "A- 

4. Zeichen: (Bildschirmcode: 255) und 5. Zeichen: (Bildschirm¬ 
code 156) ergibt als Adresse 40959. 

2. ZX$ = "BC" 

4. Zeichen: (Bildschirmcode 253) und 5. Zeichen: (Bildschirm¬ 
code 156) ergibt als Adresse 40957. 

Der Text der Zeichenketten wird am Ende des Arbeitsspei¬ 
chers (40959 beim C 64, 7679 beim VC 20 ohne Erweiterung) 
abgelegt und zwar von hinten nach vorn. 

Mit PRINT PEEK ( 40957 ); PEEK ( 40958 ); PEEK ( 40959) 
drucken wir den Inhalt dieser Speicherzellen aus und erhalten: 
66 67 65. Im ASCII-Code ist das: B C A. Die Zusammenfassung 
für String-Variable (Bild 8) sieht so aus: 
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Bild 8. String-Variable 


sind. Was Felder sind und wozu 
sie gebraucht werden, ist im 
Texteinschub Nr. 10 kurz erläu¬ 
tert. Da die Felder direkt nach 
den normalen Variablen gespei¬ 
chert werden, zeigt dieser Zei¬ 
ger natürlich gleichzeitig auf das 
Ende des Speichers für normale 
Variablen. 

Durch POKEn einer Adresse 
in die Speicherzellen 47 und 48 
kann der Speicherbereich am 
Anfang eines Programms bei¬ 
nahe beliebig verschoben wer¬ 
den. Beinahe deswegen, weil 
die Verschiebung im Zusam¬ 
menhang mit den anderen 
Bereichen (siehe Bild 5) einen 
Sinn haben muß. Im übrigen gilt 
für diesen Zeiger dasselbe, was 
schon für den Zeiger in 45 und 
46 gesagt worden ist. Die Dar¬ 
stellung der Feld-Variablen 
selbst kann mit der Methode 
angesehen werden, die im Text¬ 
einschub Nr. 11 erklärt ist. 

Wie aus den Erklärungen her¬ 
vorgeht, wird bei Feldern mit 
Zeichenketten (Strings) in dem 
von Zeiger 47 und 48 bezeich- 
neten Speicherbereich nur die 


Definition beziehungsweise die 
Dimensionierung gespeichert. 
Die eigentlichen Zeichenketten 
stehen wie bei den normalen 
Variablen im vierten Block, vom 
Speicherende rückwärts ange¬ 
ordnet. 


Adresse 49 und 50 
($31 und $32) 

Zeiger auf die Endadresse 
(+1) des Speicherbereichs für 
Felder (Arrays) 

Der Inhalt dieser Speicherzel¬ 
len zeigt auf die Adresse, wo der 
Speicherbereich für Felder auf¬ 
hört. Wie aus Bild 5 hervorgeht, 
werden die Zeichenketten vom 
Ende des verfügbaren RAM- 
Speichers rückwärts gespei¬ 
chert. Man kann also auch 
sagen, daß der Zeiger in 49 und 
50 die letzte mögliche Adresse 
für Zeichenketten angibt. Wenn 
in einem Programm neue Varia¬ 
blen definiert werden, rutscht 
diese Adresse weiter nach oben 
und nähert sich dem Ende der 
Zeichenketten, die durch den 


Zeiger in 51 und 52 angegeben 
wird. 

Wenn sich die Speicherberei¬ 
che der Felder und Zeichenket¬ 
ten berühren, bleibt der Compu¬ 
ter stehen und führt die »Gar- 
bage Collection* (Müllabfuhr) 
durch - ein Prozeß, in dem nicht 
mehr gebrauchte Zeichenket¬ 
ten entfernt und der Zeichen- 
ketten-Speicher reduziert wird. 
Ist danach immer noch kein 
Platz, wird OUT OF MEMORY 
gegeben. 

Der Befehl FRE löst immer 
eine solche Garbage Collection 
aus und gibt dann die Differenz 
zwischen den Adressen in den 
Zeigern 49 und 50 und 51 und 
52 als verbleibenden, noch ver¬ 
fügbaren, Speicherbereich aus. 

Adresse 51 und 52 
($33 und $34) 

Zeiger auf die untere Grenze 
des Speicherbereichs für den 
Text der Zeichenketten-Varia- 
blen 

Der Inhalt dieser Speicherzel¬ 
len zeigt in Low-/High-Byte-Dar- 
stellung auf das jeweilige untere 
Ende (siehe Bild 5) des Text¬ 
speichers von Zeichenketten. 
Er b° 7 eichnet aber zugleich 
auch uaö obere Ende des frei 
verfügbaren RAM-Bereichs. 
Das entsteht dadurch, daß der 
Text der Zeichenketten vom 
Ende des RAM-Bereichs nach 
unten gespeichert wird. In Bild 5 
ist das durch den Pfeil darge¬ 
stellt. 

Beim Einschalten des Com¬ 
puters und nach einem RESET 
wird dieser Zeiger auf das ober¬ 
ste Ende des RAM-Bereichs 
gesetzt. Beim C 64 ist das 
40960 ($A000). Beim VC 20 
hängt es von den eingesetzten 
Speichererweiterungen ab, ohne 
Erweiterung ist die Adresse 
7680 ($1E00). 

Der Befehl CLR setzt den Zei¬ 
ger auf die Adresse, welche 
durch den Zeiger in den Spei¬ 
cherzellen 55 und 56 als das 
Ende des Basic-Speichers an¬ 
gegeben wird. Wozu das dient, 
erkläre ich Ihnen bei der Be¬ 
schreibung dieses Zeigers wei¬ 
ter unten. 

Adresse 53 und 54 
($35 und $36) 

Zeiger auf die Adresse der 
zuletzt eingegebenen Zei¬ 
chenkette 

In diesen Speicherplätzen 
steht die Adresse (im vierten 
Block, siehe Bild 5) der Zei¬ 


chenkette, die als letzte von 
Routinen (Programme, Direkt¬ 
eingabe) zur String-Manipula¬ 
tion abgespeichert worden ist. 
Mit dem folgenden kleinen Pro¬ 
gramm können Sie das genau 
sehen: 

10 PRINT PEEK (53)+ 

256*PEEK(54), 

20 PRINT PEEK(51)+256# PEEK 

(52) 

30 INPUT A$ 

40 GOTO 10 

Zeile 10 druckt uns zuerst 
(links) den Zeiger auf die zuletzt 
eingegebene Zeichenkette aus, 
Zeile 20 rechts daneben den 
Zeiger auf die untere Speicher¬ 
grenze der Zeichenketten. Zeile 
30 fordert zur Eingabe einer 
Zeichenkette auf. 

Wenn Sie bei frisch einge¬ 
schaltetem Computer das Pro¬ 
gramm starten, sehen Sie eine 0 
(=vorher noch kein String ein¬ 
geben) und daneben die 
Adresse dezimal 40960 (C 64) 
beziehungsweise dezimal 7680 
(VC 20 ohne Erweiterung). 
Wenn Sie auf das Fragezeichen 
des INPUT hin zum Beispiel ein 
A eintippen, erhalten Sie links 
den vorigen Wert von rechts 
und rechts jetzt eine um 1 klei¬ 
nere Zahl. Eine weitere Eingabe 
von zum Beispiel XXXXX schiebt 
die alte rechte Zahl nach links 
und die neue wird um die Anzahl 
der Zeichen, also 5, verringert. 

Adresse 55 und 56 
($37 und $38) 

Zeiger auf das Ende des für 
Basic-Programme verfügba¬ 
ren Speichers 

Dieser Zeiger, in der Low-/ 
High-Byte-Darstellung, gibt dem 
Basic-Übersetzer an, welches 
die höchste von Basic verwend¬ 
bare Speicheradresse ist. Wie 
aus Bild 5 ersichtlich, ist diese 
Adresse zugleich der Anfang 
der als Variable abgespeicher¬ 
ten Zeichenkette (Strings). 

Normalerweise ist diese 
Adresse fest vorgegeben. Die 
folgende Tabelle 4 gibt darüber 
Auskunft: 

Tabelle 4. 

Ende des Programmspeichers 

Adresse Zeiger 
in 

55 56 


C 64 40960 0160 

VC 20 

(Grundv.) 7680 030 

VC 20 

(+3 KByte) 7680 030 

VC 20 

(+8 KByte) 16384 064 
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VC 20 

(+16 KByte) 24576 096 

VC 20 

(+24 KByte) 32768 0128 


Beim Einschalten des Com¬ 
puters überprüft das Betriebs¬ 
system den gesamten RAM- 
Speicher, bis es zur ersten 
ROM-Speicherzelle kommt, 
setzt den Zeiger in 55 und 56 
auf diese Adresse und druckt 
den bekannten Kopf mit der ver¬ 
fügbaren Speicherangabe auf 
den Bildschirm. 

Normalerweise wird dieser 
Zeiger nicht geändert. 

Es gibt aber zwei Gelegenhei¬ 
ten, bei denen eine Änderung 
dieses Zeigers sinnvoll bezie¬ 
hungsweise notwendig ist. 

Anwendung 1: 

Es kommt oft vor, daß der ge¬ 
samte Speicher nicht aus¬ 
schließlich für Basic benötigt 
wird, sondern daß ein freier 
Speicherbereich geschaffen 
wird, um zum Beispiel Maschi¬ 
nenprogramme, selbst definier¬ 
te Zeichen oder hochaufgelöste 
Grafik unterzubringen, die aber 
nicht vom Basic-Programm 
überschrieben werden können. 

Bei der Besprechung der Zei¬ 
ger in 43 und 44 haben wir das 
auch schon gemacht, allerdings 
durch »Hochschieben« des 
Speicheranfangs. Mit dem Zei¬ 
ger in 55 und 56 erreichen wir 
denselben Effekt, diesmal 
durch »Herunterdrücken« des 
Speicherendes. Gegenüber 
den vier Schritten beim Hoch¬ 
schieben ist das Herunterdrük- 
ken einfacher. Mit dem Befehl: 
POKE 56,PEEK(56)-1:CLR 
schieben wir das Speicherende 
um 256 Byte nach unten, egal 
für welchen Computer und wel¬ 
che Speichererweiterung. Mit 
-2 verschiebt sich das Ende um 
512, mit-4 um 1 024 Byte (also 
1 KByte) nach unten. Wenn Sie 
eine feinere Verschiebung als 
Vielfache von 256 benötigen, 
kommen Sie mit dem High-Byte 
in 56 allein nicht aus, sondern 
Sie müssen auch einen entspre¬ 
chenden Wert in 55 hinein- 
POKEn. 

Der Befehl CLR ist notwendig, 
denn er setzt den Zeiger der 
Zellen 51 und 52 (siehe dort), 
das heißt das untere Ende des 
Speicherbereichs für Zeichen¬ 
ketten auf dieselbe Adresse wie 
Zeiger 55 und 56. Dadurch wird 
erzwungen, daß die Zeichen¬ 
kette sozusagen als Ausgangs¬ 
lage unterhalb des herunterge¬ 
drückten Speicherendes abge¬ 
legt wird. 
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Anwendung 2: 

Ober den User-Port (Stecker¬ 
leiste an der Rückseite, neben 
dem Datasetten-Anschluß) kön¬ 
nen VC 20 und C 64 mit ande¬ 
ren Geräten verbunden werden. 
Der Datentransfer über diese 
Verbindung - sie heißt 
RS232-Schnittstelle - muß 
allerdings programmiert wer¬ 
den. Diese RS232-Schnittstel- 
le hat die Gerätenummer 2 (so 
wie der Drucker Nummer 4 und 
das Diskettengerät die Nummer 
8 hat). 

Wenn nun ein Gerät Nummer 
2 mit einem OPEN-Befehl ange¬ 
wählt wird, wird automatisch der 
Zeiger in 55 und 56 und der Zei¬ 
ger in 643 um 512 Byte herun¬ 
tergedrückt, um je einen Ein¬ 
gangs- und Ausgangspuffer¬ 
speicher zu erzeugen. Da der 
Inhalt dieser Pufferspeicher alle 
Variable in diesen 512 Byte 
überschreiben würde, wird auch 
der CLR-Befehl automatisch 
gegeben. 

Es gilt daher als Vorschrift, 
daß bei RS232-Verbindungen 
zuerst der Datenkanal durch 
OPEN eröffnet werden muß, 
bevor Variable, Felder und Zei¬ 
chenketten definiert werden. 


Adresse 57 und 58 
($39 und $3A) 

Nummer der laufenden Basic- 
Programmzeile 

Diese Speicherzellen enthal¬ 
ten die Zeilennummer in Low-/ 
High-Byte-Darstellung derjeni¬ 
gen Basic-Anweisung, welche 
gerade ausgeführt wird. 

Ein kurzes Programm macht 
das deutlich: 

10 PRINT 'ZEILE 10', 
PEEK(57)+256#PEEK(58) 

20 A=3:PRINT A,PEEK(57)+ 
256#PEEK(58) 

30 B=5: PRINT B, PEEK (57)+ 
256*PEEK(58) 

40 PRINT A*B,PEEK(57)+ 
256*PEEK(58) 

In jeder Zeile wird zuerst 
etwas gePRINTet, nämlich Text, 
Variable und ein Rechenresul¬ 
tat. Durch das Komma getrennt 
wird in der 2. Bildschirmhälfte 
(VC 20) beziehungsweise Bild¬ 
schirmviertel (C 64) der Inhalt 
der Speicherzellen 57 und 58 
ausgedruckt. Das Resultat zeigt 


Texteinschub Nr. 10 
Felder in Basic 

Zur Wiederholung: Es gibt zwei Arten von Variablen, normale 
Variable und Felder. Jede der beiden Arten ihrerseits kann aus 
Gleitkomma-Zahlen, ganzen Zahlen oder Zeichenketten 
bestehen. 

Eine normale Variable kann immer nur einen Wert haben, ein 
Feld enthält gleichzeitig viele Werte, alle unter demselben 
Variablen-Namen. 

Wir können uns ein Feld mit dem Namen KARLSTRASSE als 
eine Liste vorstellen, in der jedes Element zwar auch den Namen 
Karlstraße hat, sich aber von den anderen Elementen durch eine 
eigene Hausnummer unterscheidet. Jede Variable in einer Haus¬ 
nummer hat einen bestimmten Wert. 

Während eine normale Variable einfach mit A=3 einen Wert 
zugewiesen bekommt, muß ein Feld erst definiert werden, näm¬ 
lich wie viele Elemente es enthält. Wir machen das mit dem 
Befehl 

DIM KARLSTRASSE (12) 

Dieses Feld hat 13 Elemente (von 0 bis 12). Jedem Element 
kann nun ein Variablenwert zugewiesen werden durch 
KARLSTRASSE (0)=25 
KARLSTRASSE (l)=56 

Das Feld KARLSTRASSE hat in der Klammer nur eine Zahl, 
mt. 1 . -agt. es hat nur eine Dimension. 

Ein zweidimensionales Feld entspricht einem Schachbrett, mit 
Zahlen in der einen und Buchstaben in der anderen Dimension. 
Wir definieren es mit: 

DIM AX (7,7) 

AX ist der Name, jede Dimension hat acht Elemente, insgesamt 
kann das Feld 64 Werte enthalten. 

Ein dreidimensionales Feld entspricht einem Quader, oder bei 
gleicher Elementenzahl pro Dimension (Seite) einem Würfel. 
Dieses wird dimensioniert mit 
DIM BY (125,6,2) 

Die Anzahl der Dimensionen wird nur begrenzt durch den ver¬ 
fügbaren Speicherplatz. Wieviel Bytes pro Feld gebraucht wer¬ 
den, entnehmen Sie bitte der Erklärung bei der Darstellung der 
Feld-Variablen (Texteinschub Nr. 11). 

Ein Feld, das wie bisher gezeigt dimensioniert wird, enthält 
Gleitkomma-Zahlen. 

Ein Feld mit ganzen Zahlen wird durch das Zeichen % nach 
dem Namen gekennzeichnet, also: 

DIM CZf (•»..■) 

Ein Feld mit Zeichenketten dagegen hat nach dem Namen das 
übliche Zeichen $, also: 

DIM DT$(. 

»Wozu brauche ich Felder, wenn ich auch normale Variable ver¬ 
wenden kann?«, werden Sie vielleicht noch fragen. 

Felder haben den großen Vorteil, daß immer dann, wenn viele 
Variable in einem Programm Vorkommen, die alle einen gewissen 
Zusammenhang haben, viel Speicherplatz gespart werden kann. 

Eine normale Variable braucht 7 Byte, eine Feld-Variable nur 5 
oder bei ganzen Zahlen sogar nur 2 Byte. Zugegeben, vorher 
steht noch ein längerer Kopf, aber halt nur einmal. Und das zahlt 
sich bei vielen Variablen sehr rasch aus. 

Und schließlich muß ich noch darauf hinweisen, daß die »Haus¬ 
nummern« oder Indizes der Elemente innerhalb eines Pro¬ 
gramms durch mathematische Operationen verändert und mani¬ 
puliert werden können. Aber das ist natürlich höhere Program¬ 
mierkunst und geht über diese kurze Einführung hinaus. 
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C 64/VC 20 


Texteinschub Nr. 11 

Darstellung der Felder-<Array>Variablen 
im Speicher 

Die Felder-Variablen kommen in drei Arten vor: 

- als ganze Zahlen, 

- als Gleitkomma-Zahlen, 

- als Zeichenketten. 

Sie sind in dem Texteinschub Nr. 10 »Felder in Basic« kurz 
beschrieben. 

Wir wollen sie uns hier mit den Methoden anschauen, welche 
ich für den C 64 und für den VC 20 in dem Texteinschub Nr. 9 
»Darstellung der normalen Variablen im Speicher« beschrieben 
habe. 

Beim C 64 ist allerdings ein Zusatz dabei. Sie müssen, am 
besten gleich am Anfang, noch eingeben: 

POKE 44,4:NEW 

Ein eventuell auftretender SYNTAX ERROR soll uns nicht wei¬ 
ter stören. 

Wenn Sie also das jeweilige Kochrezept ausgeführt und damit 
den Bildschirm- und den Variablenspeicher auf dieselbe 
Adresse gelegt haben, können wir anfangen. 


Gleitkomma-Feld 


Geben Sie direkt ein: 

DIM AB(1,2,3) 

Wir dimensionieren also ein Feld mit dem Namen AB, es hat 
drei Dimensionen, die erste Dimension hat zwei (0,1) Werte, die 
zweite hat drei und die dritte hat vier Werte. Sobald Sie die 
RETURN-Taste drücken, erscheint das Feld auf dem Bildschirm. 
Wir sehen folgende Zeichen: 

A, B,invertiertesC, @c@d@c@bplus 120Klammeraffen 
Die ersten zwei Stellen sind der Name des Feldes in der Dar¬ 
stellung für Gleitkomma-Variable, wie in der letzten Folge 
beschrieben wurde. Die dritte und vierte Stelle geben im Bild¬ 
schirmcode als Low- und High-Byte die Länge des Feldes an (das 
inverse C = 131, das @ = 0. bitte nachzählen). Die fünfte Stelle 
zeigt die Anzahl der Dimensionen (c = 3) an. Ab der sechsten 
Stelle stehen die Anzahl der Elemente der Dimension (diesmal 
als High- und Low-Byte) und zwar beginnend mit der letzten 
Dimension. In unserem Falle ist das also in Stelle 6 und 7 ein @ 
und d (0 - 3 =4=d), Stelle 8 und 9 sind dasselbe für die zweite 
Dimension und schließlich Stelle 10 und 11 für die erste Dimen¬ 
sion (0 - 1=2=b). Danach folgen entsprechend der Anzahl der 
dimensionierten Elemente (2*3*4=24) 5 Byte pro Element 
(24*5=120). die vorerst auf 0 = @ stehen, die aber mit den 
Werten der Elemente aufgefüllt werden. 

Dieses Auffüllen wollen wir nachvollziehen. Geben Sie bitte 
direkt ein: 

AB(0,0,0)=5 

Wir weisen damit dem allerersten Element des Feldes den 
Wert 5 zu. 

In der oberen Darstellung des Feldes AB ändern sich dadurch 
Byte 12 und 13. Das neu erschienene inverse C und die Leer¬ 
stelle mit den drei nachfolgenden @ ist die Gleitkomma- 
Darstellung (Mantisse und Exponent) der Zahl 5. Auf diese Dar¬ 
stellung werde ich später im Verlauf dieses Kurses bei der 
Besprechung der Speicherzelle 97 noch genauer eingehen. 

Wenn wir jetzt (durch Überschreiben der vorigen Anweisung) 
zusätzlich noch eingeben: 

AB (1,0,0) =6 

erreichen wir eine entsprechende Änderung der Bytes 17 und 
18, also des zweiten Elements des Feldes. 

In Bild 9 sind die Stellen eines Gleitkomma-Feldes grafisch dar¬ 
gestellt. 


Ganzzahliges Feld 

Im Vergleich zu dem Gleitkomma-Feld dimensionieren wir als 
nächstes ein ganzzahliges Feld: 

DIM AB*(1,2,3) 

Jetzt erscheint auf dem Bildschirm gleich anschließend an das 
erste Feld eine neue Darstellung: invertiertes A, invertiertes B,;, 
@, c@, d, @, c, @b plus 48 Klammeraffen ®. 

Die ersten 11 Byte haben dieselbe Bedeutung wie beim 
Gleitkomma-Feld, aber nur deswegen, weil wir dieselben drei 
Dimensionen mit identischer Elementenzahl dimensioniert 
haben. Bei mehr Dimensionen wäre dieser Kopf natürlich länger. 
Die inverse Darstellung des Feldnamens signalisiert ein ganzzah¬ 
liges Feld. Die dritte Stelle zeigt das »;« - Im Bildschirmcode ist 
das die 59. In der Tat ist das Feld nur 59 Byte lang, also wesent¬ 
lich weniger als das Gleitkomma-Feld. Die 2*3*4=24 Elemente 
benötigen in der Ganzzahl-Darstellung nur je 2 Byte 
(24*2=48 + 11 = 59). Womit bewiesen ist, daß eine Ganzzahl- 
Darstellung mit dem Zeichen % erheblich Speicherplatz spart - 
allerdings nur bei Feldern! 

Jetzt wollen wir noch den Inhalt des Feldes füllen, so wie vor¬ 
her mit: 

AB*(0,0,0)=5 

... und prompt ändert sich Byte Nummer 13 in ein e (e = 5). 

Eine Eingabe für das zweite Element: 

ABX(1,0,0)=6 

verändert das 15. Byte in ein f. 

In Bild 10 ist der Inhalt eines Ganzzahl-Feldes grafisch dar¬ 
gestellt. 
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Bild 10. Ganzzahliges Feld 


Felder mit Zeichenketten 

Die Dimensionierung eines Feldes mit Zeichenketten sieht so 
aus: 

DIM AB$(l,2,3) 

Auf dem Bildschirm erscheint jetzt ein Feld: 

Auch hier zeigen die ersten elf Stellen dieselbe Information wie 
bei den anderen Feldern. Zur Kennzeichnung des 
Zeichenketten-Feldes ist das zweite Zeichen des Feldnamens 
invers dargestellt. Zeichen 3 und 4 geben wieder die Länge des 
Feldes an. Das S hat den Bildschirmcode 83. (Vorsicht! Da wir 
im Groß-/Kleinbuchstaben-Modus sind, müssen wir die jeweils 
rechte Seite der Spalten in der Code-Tabelle nehmen). Die Länge 
83 minus 11 Kopfstellen ergibt 72 Byte, geteilt durch 24 
(2*3*4 = 24 Elemente) erhalten wir 3 Byte zur Darstellung 
eines Elements. 

Das erste Byte gibt die Länge der Zeichenkette an, das zweite 
und dritte Byte (Low-/High-Byte) die Adresse, ab der die Zei¬ 
chenkette im vierten Block gespeichert ist. 

Die Methode ist also dieselbe wie bei den »normalen« 
Zeichenketten-Variablen. Das wollen wir uns auch noch anse- 
hen. Geben Sie direkt ein: 

AB$ (0,0,0) = "A AA A A A " 

In der Darstellung des Feldes ändern sich dadurch die Stellen 
12, 13 und 14 und wir sehen 

— beim C 64: 

— beim VC 20: 

Im Bildschirm steht dafür: 

— C 64: 6 250 159 das heißt 6 Zeichen, 

ab Adresse 250+159*256=40959 

— VC 20: 6 250 29 das heißt 6 Zeichen 

ab Adresse 250+29*256=7674 
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Jetzt weisen wir dem letzten Element auch noch eine Zeichen¬ 
kette zu: 

AB$(l,2,3)'"BB* 

Die letzten drei Stellen des Feldes ändern sich ebenfalls, 
wobei die erste mit dem b eine Zeichenkettenlänge von 2 angibt, 
dementsprechend muß die Anfangsadresse um 2 niedriger sein 
als die vorher definierte Kette: Das Low-Byte 250 - 2 = 248, in 
der Codetabelle finden wir dafür das, was auch im Feld steht. Das 
High-Byte bleibt unverändert. 

Bild 11 zeigt die grafische Darstellung des Zeichenketten- 
Feldes. 

Als letztes zeige ich Ihnen noch die im vierten Block gespei¬ 
cherten Zeichenketten. Wir drucken einfach den CHR$-Wert 
der in den betreffenden Speicherzellen stehenden Codezahlen 
aus mit: 

— VC 20: 

FOR 1 = 248 TO 255:PRINT CHR$(PEEK(29‘256 + l));:NEXT 

— C 64: 

FOR 1=248 TO 255:PRINTCHR$(PEEK(159*256+I));:NEXT 
... und wir erhalten die beiden Zeichenketten in umgekehrter Rei¬ 
henfolge, also vom Speicherende her eingespeichert. Interes¬ 
sant ist, daß sich vor die Felder - wenn Sie sie noch auf dem Bild¬ 
schirm hatten - die neu definierte Gleitkomma-Variable l@ 
geschoben hat. Auch das ist eine Demonstration des Speicher¬ 
verfahrens der Variablen, genauso wie ich es Ihnen In der letzten 
Folge erklärt habe. 
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Bild 11. Zelchenketten-Feld 


in der Tat die jeweilige Zeilen¬ 
nummer an. 

Die Basic-Befehle GOTO, 
GOSUB-RETURN. FOR-NEXT, 
END, STOP, CONT und die Betä¬ 
tigung der STOP-Taste während 
eines Programmlaufes verwen¬ 
den alle den Inhalt dieser Spei¬ 
cherzellen, um entweder zu der 
laufenden Zeile zurückzufinden 
oder um die Unterbrechung mit 
BREAK IN... anzuzeigen. Auch 
die meisten Fehlermeldungen 
verwenden diese Zellen. 

In vielen Basic-Erweiterungen 
und Programmierhilfen wird ein 
Befehl TRACE oder STEP ange- 
boten, welcher ein schrittwei¬ 
ses Abarbeiten eines Pro¬ 
gramms bei gleichzeitiger 
Anzeige der gerade aktiven Zei¬ 
lennummer erlaubt. Dieses 
TRACE verwendet natürlich 
auch den Inhalt der Zellen 57 
und 58. 

Schließlich sei noch erwähnt, 
daß im direkten Modus, also bei 
direkt eingetippten Aktionen 
des Computers ohne Pro¬ 
grammzeilen, in der Zelle 58 
immer die Zahl 255 steht. Dieje¬ 
nigen Basic-Befehle, welche im 
direkten Modus nicht erlaubt 
sind (INPUT, GET, DEF). prüfen 


in Zelle 58, ob sie im direkten 
Modus oder während eines Pro¬ 
grammlaufes aufgetreten sind. 

Adresse 59 und 60 
($3B und $3C) 

Zeilennummer der letzten Pro¬ 
grammunterbrechung 

Immer dann, wenn ein Pro¬ 
grammablauf durch die Befehle 
END oder STOP oder aber mit 
der STOP-Taste abgebrochen 
wird, wird die Nummer der 
gerade ausgeführten Pro¬ 
grammzeile nach 59 und 60 
gebracht und bleibt dort 
solange, bis eine neue Unter¬ 
brechung erfolgt. 

Das läßt sich am besten mit 
der STOP-Taste und nachfolgen¬ 
dem CONT zeigen. Nehmen Sie 
bitte dazu das kleine Demo- 
Programm der Zellen 57 und 58 
und ändern Sie alle PEEK- 
Adressen in 59 und 60 um. 
Fügen Sie außerdem noch eine 
Zeile 50 hinzu: 

50 GOTO 10 

Den dadurch erzeugten konti¬ 
nuierlichen Lauf des Programms 
bremsen Sie dann mit der STOP- 
Taste und lassen ihn danach mit 
CONT weiterlaufen. 


Auf der rechten Seite er¬ 
scheint jetzt die Zeilennummer, 
bei der das Programm vorher 
unterbrochen worden ist. 

Adresse 61 und 62 
($3D und $3E) 

Zeiger auf die Adresse, ab wel¬ 
cher der Text der laufenden 
Baslc-Zeile gespeichert Ist. 

Die Abarbeitung der einzel¬ 
nen Basic-Zeilen während eines 
Programmlaufs wird von einem 
kleinen Maschinencode-Pro¬ 
gramm, welches in den Spei¬ 
cherzellen 115 bis 138 steht 
(wir kommen noch dahin), ge¬ 
steuert. In den Zellen 122 und 
123 enthält es die Adresse des 
letzten Bytes des gerade aus¬ 
geführten Basic-Befehls. 

Sobald eine neue Basic-Zeile 
verarbeitet wird, holt das 
Betriebssystem diese Adresse 
aus 122 und 123 und speichert 
sie in den hier zur Diskussion 
stehenden Speicherzellen 61 
und 62 ab, wie üblich als Low-/ 
High-Byte. 

Dasselbe geschieht bei 
jedem Befehl END, STOP, bei 
Fehlern mit dem Befehl INPUT 
und durch das Drücken der 
STOP-Taste. Der Befehl CONT 
hingegen schaut in 61 und 62 
nach und bringt die darin befind¬ 
liche Adresse zurück in die 
Speicherzellen 122 und 123 
zur Fortsetzung des Pro¬ 
gramms. Wenn aber in Zelle 62 
inzwischen eine 0 steht - und 
das geschieht bei einem LOAD- 
Befehl, durch Programm-Ab¬ 
bruch mit Fehlermeldung und 
durch Eingabe neuer Basic- 
Zeilen beziehungsweise deren 
Veränderungen mit abschlie¬ 
ßender RETURN-Taste - dann 
wird der CONT-Befehl nicht 
ausgeführt. 

Zur besseren Erklärung die¬ 
ser in 61 und 62 als Zeiger ste¬ 
henden Adresse einer Basic- 
Zeile möchte ich Sie an den Tex¬ 
teinschub Nr. 7 erinnern, in dem 
ich den Basic-Programmspei¬ 
cher »sichtbare gemacht habe, 
um die Wirkung der Verschie¬ 
bung des Zeigers in den Zellen 
43 und 44 zu demonstrieren. 

Wir nehmen dazu bitte noch 
einmal das kleine Demo-Pro¬ 
gramm für die Adressen 57 und 
58 oben her und ersetzen die 
PEEK-Werte durch 61 und 62. 
Das Ausdrucken des Inhalts von 
61 und 62 legen wir aber an den 
Anfang jeder Zeile. Das Pro¬ 
gramm sieht dann so aus: 

10 PRINT PEEK(6l)+256*PEEK 
(62),"ZEILE 10' 

20 PRINT PEEK(61) +256*PEEK 


(62),:A=3:PRINT A 
30 PRINT PEEK(61) +256#PEEK 
(62),:B=5:PRINTB 
40 PRINT PEEK(61) +256*PEEK 
(62) ,A#B 

Nach RUN erhalten wir jetzt 
auf der linken Seite Zahlen, die 
den jeweiligen Basic-Speicher 
angeben, ab dem diese Zeile 
gespeichert ist. Wenn Sie ab 
diesen Adressen mit der gerade 
erwähnten Methode aus Text¬ 
einschub Nr. 7 nachschauen, 
finden Sie genau die Zeilen des 
kleinen Demo-Programms wie¬ 
der. 

Zur Anwendung dieses Zei¬ 
gers kann ich wenig sagen. Ihn 
durch POKE zu verändern, geht 
in Basic nicht, weil das Betriebs¬ 
system die richtigen Werte 
immer neu eingibt. Man kann ihn 
allerdings abfragen, wenn man 
sich für die Speicheradressen 
der Basic-Zeilen interessiert. 
Die einzige Anwendung dafür 
kenne ich von S. Leemon, wel¬ 
che bei den Adressen 65 und 
66 eingesetzt wird. 

Adresse 63 und 64 
($3F und $40) 

Zellennummer eines gerade 
laufenden DATA-Befehls 

Diese Speicherzellen enthal¬ 
ten die Nummer der Basic-Zeile, 
in der gerade ein DATA-Befehl 
mit READ gelesen wird. Sobald 
in einer DATA-Zeile ein Fehler 
gefunden wird, kommt diese 
Zeilennummer aus 63 und 64 in 
die Speicherzellen 57 und 58, 
um in der Fehlermeldung die 
fehlerhafte DATA-Zeile und nicht 
die laufende READ-Zeile anzu¬ 
zeigen. Auf diese Weise werden 
Syntax-Fehler in einer DATA- 
Zeile angezeigt. Um andere 
Fehler, wie zum Beispiel ein feh¬ 
lendes Komma zwischen zwei 
DATA-Angaben anzuzeigen, 
können die Speicherzellen 63 
und 64 eingesetzt werden. 

In dem folgenden Programm 
wird in Zeile 20 geprüft, ob die 
DATA-Angaben größer als 255 
sind. Da bei einem fehlenden 
Komma die beiden Zahlen als 
eine Zahl gelesen werden, wird 
dieser Fall erkannt und mit 
einem F versehen die Nummer 
der DATA-Zeile ausgedruckt, in 
der das Komma fehlt. 

10 FOR X=1 T0 10: READ 
A:PRINT A 

20 IFA >255 THEN PRINT 
'F'PEEK(63) + 256*PEEK 
(64) 

30 NEXT X 
40 DATA 10,20,30 
50 DATA 40,50,60 
60 DATA 70,80,90,100 
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C 64/VC 20 


Sie können jetzt in den DATA- 
Zeilen Kommafehler einbauen, 
die vom Programm angezeigt 
werden. Ein anderer häufiger 
Fehler, nämlich ein Komma am 
Ende einer DATA-Zeile, kann 
damit leider nicht erkannt wer¬ 
den. Aber vielleicht fällt Ihnen 
eine Prüfformel dazu ein. 

Adresse 65 und 66 
($41 und $42) 

Zeiger auf die Adresse, ab der 
die laufende DATA-Angabe 
gespeichert Ist 

Diese Speicherzellen enthal¬ 
ten in der Low-/High-Byte-Dar- 
stellung die Adresse im Basic- 
Programmspeicher, ab welcher 
der READ-Befehl nach der 
nächsten DATA-Zeile sucht. 

Zu Beginn eines Programms 
steht in 65 und 66 als Adresse 
der Beginn des Basic-Spei- 
chers, also derselbe Wert wie in 
den Speicherzellen 43 und 44. 
Der Befehl RESTORE setzt den 
Zeiger Immer auf diesen An¬ 
fangswert zurück. Ein Demo- 
Programm zeigt uns das an (die 
Kommata sind wichtig für das 
Format der Darstellung auf dem 
Bildschirm!): 

10 PRINT, PEEK(65)+256* 
PEEK(66) 

20 FOR X=1 TO 10: READ A 
30 PRINT A,PEEK(65)+ 
256#PEEK(66) 

40 NEXT X 

50 DATA 10,20,30,40,50,60, 
70,80,90,100 
60 RESTORE 

70 PRINT,PEEK(65)+256*PEEK 
( 66 ) 

Durch Verändern dieses Zei¬ 
gers in 65 und 66 kann die Rei¬ 
henfolge, mit der DATA-Angaben 
gelesen werden, verändert wer¬ 
den, allerdings nur zeilenweise. 

Wir brauchen dazu die oben 
beschriebenen Speicherzellen 
61 und 62, deren jeweiligen 
Inhalt wir ja mit PEEK abfragen 
können. Wenn wir das vor jeder 
DATA-Zeile machen und diesen 
Wert einer Variablen zuweisen, 
haben wir die Adresse gespei¬ 
chert, hinter welcher die DATA- 
Zeile kommt. Durch POKEn die¬ 
ser Adressen in die Speicher¬ 
zellen 65 und 66 vor einem 
READ-Befehl, wird diesem 
READ die nächste DATA-Zeile 
vorgegeben und wir können so 
die Reihenfolge der DATA-Zeilen 
ändern. 

10 A1=PEEK(61)+PEEK(62)*256 
20 DATA DAS IST DIE 1. ZEILE 
30 A2=PEEK(6l)+PEEK(62)#256 
40 DATA DAS IST DIE 2.ZEILE 
50 A3=PEEK(6l)+PEEK(62)#256 
60 DATA DAS IST DIE 3.ZEILE 


70P0KE 65, A3 AND 255: 

POKE 66.A3/256: 

READ A$: PRINT A$ 

80 POKE 65, Al AND 255: 

POKE 66.A1/256: 

READ A$: PRINT A$ 

90 POKE 65,A2 AND 255: 

POKE 66.A2/256: 

READ A$: PRINT A$ 

Mit den Zeilen 70 bis 90 wer¬ 
den für jede DATA-Zeile eigene 
READ-Anweisungen gegeben. 
Welche DATA-Zeile gelesen 
werden soll, wird durch die 
Variablen Ax und Bx (x= 1,2,3) 
bestimmt, mit denen der Zeiger 
in 65 und 66 »verbogen« wird. 
Auf ein Detail will ich hier 
hinweisen: 

Die Adresse 61 und 62 darf 
nicht mit zwei Befehlen, son¬ 
dern muß mit einem Befehl aus¬ 
gelesen werden, da bei einem 
möglichen Page-Wechsel zwi¬ 
schen den zwei Befehlen der 
Zeiger nicht verbogen, sondern 
abgeknickt wird. 

Was passiert in der ersten 
Zeile des Demo-Programms? 

10 Al=PEEK(6l):B1=PEEK(62) 
Mit »A1 = PEEK(61)« wird der 
Variablen AI der Wert des Low- 
Bytes des Zeigers 61 und 62 
zugewiesen. Dieser zeigt am 
Anfang einer Zeile auf das Null- 
Byte vor der Linkadresse (hier 
2048), so daß AI den Wert 
(2048 AND 255)=0 erhält. Mit 
»Bl=PEEK(62)« wird der Varia¬ 
blen Bl der Wert des High- 
Bytes des Zeigers 61 und 62 
zugewiesen. Dieser zeigt aber 
inzwischen auf das Trennzei¬ 
chen (»:«) zwischen den beiden 
Befehlen (hier 2061), so daß Bl 
den Wert (INT(2061/256)) = 8 
erhält. Als Zeiger auf das 
aktuelle DATA-Element erhalten 
wir die erwartete Adresse 
(A1+B1 *256)=2048. 

Was aber, wenn Zeilenanfang 
und Trennzeichen nicht in der¬ 
selben Page liegen? Dazu set¬ 
zen Sie bitte den Basic-Anfang 
um eine Stelle zurück: 

POKE43,0: POKE 2047,0: NEW 
Die Zeiger auf den Zeilenan¬ 
fang und das Trennzeichen wer¬ 
den dadurch ja ebenfalls verän¬ 
dert, so daß AI jetzt den Wert 
(2047 AND 255)=255 und Bl 
den Wert (INT(2060/256))=8 
erhält. Als Zeiger auf das 
aktuelle DATA-Element erhalten 
wir nun die völlig unbrauchbare 
Adresse (AI -FBI * 256)=2303. 


Adresse 67 und 68 
($43 und $44) 

Zeiger auf die Adresse, aus 
welcher die Befehle INPUT, 


GET und READ die Zei¬ 
chen/Zahlen holen 

INPUT und GET verlangen 
Angaben, die per Tastatur ein¬ 
gegeben werden. Tastatur-Ein¬ 
gaben im direkten Modus, also 
wenn kein Programm läuft, wer¬ 
den im Eingabe-Pufferspeicher 
des Editors (der Teil des 
Betriebssystems, welcher für 
die Zeilendarstellung auf dem 
Bildschirm verantwortlich ist) ab 
Speicherzelle 512 bis 600 zwi¬ 
schengespeichert. 

Der Zeiger in 67 und 68 zeigt 
auf die jeweilige Adresse in die¬ 
sem Eingabe-Pufferspeicher. 
Bei READ ist 67 und 68 iden¬ 
tisch mit 65 und 66. Der Inhalt 
dieser Speicherzellen kann mit 
PEEK ausgelesen werden. 

Adresse 69 und 70 
($45 und $46) 

Name der gerade aufgerufe¬ 
nen Basic-Varlablen 

Wenn beim Ablauf eines Pro¬ 
gramms eine Variable auftaucht, 
muß ihr derzeitiger Wert im 
Variablen-Speicher gesucht 
werden. Während dieses Such¬ 
vorgangs wird der Name der 
Variablen in 69 und 70 zwi¬ 
schengespeichert. Die Form 
der /v.-; chenspeicherung ist 
dieselbe 2-Byte-Darstellung 
wie im Variablenspeicher, be¬ 
schrieben bei der Behandlung 
der Speicherzellen 45 und 46. 

Adresse 71 und 72 
($47 und $48) 

Zeiger auf die Adresse des 
Wertes der gerade aufgerufe¬ 
nen Basic-Variablen 

Ähnlich wie bei 69 und 70 
wird hier während des Anrufes 
einer Variablen durch ein Pro¬ 
gramm ein Wert zwischenge¬ 
speichert, diesmal aber nicht 
der Name der Variablen, son¬ 
dern der 2-Byte-Wert, welcher 
direkt hinter dem Variablenna¬ 
men steht. Nähere Einzelheiten 
sind im Text der Speicherzellen 
45 und 46 beschrieben. 

Davon ausgenommen sind 
selbstdefinierte Funktionen. 
Wie im Texteinschub Nr. 12 
»Darstellung der Variablen einer 
selbstdefinierten Funktion« 
gezeigt Ist, erscheinen diese 
ebenfalls im Variablenspeicher 
in einer Darstellung, welche den 
normalen Variablen sehr ähnlich 
ist. 

Damit nun eine normale oder 
Feld-Variable denselben Namen 
haben kann wie eine Funktion, 
wird die oben genannte Zwi¬ 
schenspeicherung in 69 und 
70 bei Funktionen unterdrückt. 


Adresse 73 und 74 
($49 und $4A) 

Zwischenspeicher für Varia¬ 
ble einer FOR-NEXT-Schleife 
und für diverse Basic-Befehle 

Die Adresse einer Schleifen¬ 
variablen wird zuerst hier 
gespeichert, bevor sie auf den 
Stapelspeicher ab Speicher¬ 
zelle 256 ($100) gebracht wird. 
Die Funktion und Arbeitsweise 
des Stapelspeichers werden 
wir bei diesen Adressen behan¬ 
deln. Etliche Basic-Befehle, wie 
LIST, WAIT, GET, INPUT, OPEN, 
CLOSE und andere, verwenden 
die Speicherzellen 73 und 74 
für Zwischenspeicherungen. 
Diese Adressen sind für den 
Basic-Programmierer daher 
nicht verwendbar. 

Adresse 75 und 76 
($4B und $4C) 

Zwischenspeicher für Zeiger 
bei READ und mathemati¬ 
schen Operationen 

Während der Auswertung 
eines mathematischen Aus¬ 
drucks durch die Routine 
FRMEVL des Basic-Überset- 
zers, wird der Platz des betroffe¬ 
nen mathematischen Operators 
in einer Tabelle, hier in 75 und 
76, zwischengespeichert. Die¬ 
ser Platz wird dabei als Abstand 
zum Beginn der Tabelle darge¬ 
stellt. Außerdem verwendet der 
READ-Befehl diese Adressen 
als Zwischenspeicher für einen 
Programmzeiger. Die Speicher¬ 
zeilen 75 und 76 sind in Basic 
nicht verwendbar. 

Adresse 77 ($4D) 

Hilfsspeicher für Vergleichs- 
Operationen 

Die bei 75 und 76 schon 
erwähnte Auswertungs-Routine 
FRMEVL erzeugt in der Spei¬ 
cherzelle 77 einen Wert, der 
angibt, ob es sich bei einer Ver¬ 
gleichsoperation um den Fall 
»kleiner als« (<), »gleich wie« 
(=) oder »größer als« (>) han¬ 
delt. Diese Speicherzelle ist nur 
im Maschinencode erreichbar. 

Adresse 78 und 79 
($4E und $4F) 

Zeiger auf Adresse, ab wel¬ 
cher der Wert der Variablen 
einer selbstdefinierten Funk¬ 
tion gespeichert ist 

Basic erlaubt es bekanntlich, 
mit dem Befehl DEF selbst 
erfundene Funktionen zu defi¬ 
nieren, welche die Form FN 
gefolgt von einem Variablenna¬ 
men haben, zum Beispiel 
DEF FNAA(X). 
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Im Texteinschub Nr. 12 »Dar¬ 
stellung von Variablen selbstde¬ 
finierter Funktionen« wird 
gezeigt beziehungsweise sicht¬ 
bar gemacht, wie derartige 
Funktionen und ihre Variablen 
gespeichert werden. Während 
der Definition einer Funktion 
steht in 78 und 79 die Adresse, 
ab welcher die Funktion und der 
Wert ihrer Variablen gespei¬ 
chert ist. Der Inhalt dieser 
Adressen ist identisch mit den 
Zeichen hinter dem Namen der 
Funktion (1. Gruppe im neben¬ 
stehenden Beispiel). 

Nach der Ausführung der 
Funktion steht in 78 und 79 
allerdings die Adresse, ab wel¬ 
che der Zahlenwert der Funk¬ 
tion selbst gespeichert ist. Er ist 
identisch mit den Zeichen der 

2. Gruppe. 

Diesen Zusammenhang kön¬ 
nen Sie überprüfen, indem Sie 
im Programm des Texteinschu¬ 
bes folgende Zeilen hinzufügen: 

25 PRINT PEEK(78)-t256* 


PEEK(79) 

35 PRINT PEEK(78)+256* 
PEEK(79) 

Nach RUN erhalten Sie zwei 
Adressen, die Sie mit direkter 
Eingabe abfragen: 

FÜR 1=0 TO 4: PRINT PEEK 
(l.Adresse+I);:NEXT I: 

FOR J=0 TO 4: PRINT PEEK 
(2.Adresse+J);:NEXT J 
Sie werden sehen, daß der 
Inhalt der beiden Adressen 
genau den Werten der Zeichen 
3 bis 7 der beiden Gruppen ent¬ 
spricht, allerdings im Bild¬ 
schirmcode. 

Adresse 80 bis 82 
($50 bis $52) 

Zeiger auf einen provisori¬ 
schen Speicherplatz einer 
Zeichenkette, die gerade 
bearbeitet wird 

Die Teilprogramme (von Pro¬ 
grammierern »Routinen« ge¬ 
nannt) des Basic-Übersetzers 
im ROM des Computers, wel¬ 


che Zeichenketten (Strings) 
behandeln, verwenden die 
ersten beiden Bytes dieser drei 
Speicherzellen, nämlich 80 und 
81, um in Low-/High-Byte-Dar- 
stellung diejenige Speicher¬ 
adresse anzugeben, ab der die 
Zeichenkette im Programmspei¬ 
cher zu finden ist. 

Das dritte Byte (82) enthält 
die Länge der Zeichenketta 
Wegen der provisorischen 
Natur dieses Zeigers ist er für 
Basic-Programme nicht geeig¬ 
net. 

Adresse 83 ($53) 

Flagge für die Garbage Col¬ 
lection 

In dieser Speicherzelle steht 
während der sogenannten Gar¬ 
bage Collection (Müllabfuhr) 
eine Zahl, die angibt, ob die 
Variable der zur Überprüfung 
anstehenden Zeichenkette eine 
Länge von 3 oder 7 Byte hat. 

Der Vorgang der Garbage 
Collection ist von B. Schneider, 


64’er-Ausgabe 1/85, ausführ¬ 
lich beschrieben worden. Anga¬ 
ben über die Bedeutung der 
Variablen einer Zeichenkette 
finden Sie in den Texteinschü¬ 
ben Nr. 9 und Nr. 11. 

Adresse 84 bis 86 
($54 bis $56) 

Sprungbefehl auf die Adres¬ 
sen der Baslc-Funktionen 

Jede Basic-Funktion, wie zum 
Beispiel SGN, INT, ABS. USR 
und so weiter, wird durch ein 
spezielles Teilprogramm (Rou¬ 
tine) des Basic-Übersetzers 
ausgeführt. Die Anfangsadres¬ 
se jeder dieser Routinen sind in 
einer Tabelle im ROM fest einge¬ 
speichert. Im VC 20 steht diese 
Tabelle von 49234 bis 49279 
($C052 bis SC07F), im C 64 
von 41042 bis 41087 (SA052 
bis $A07F). 

In der Speicherzelle 84 steht 
der Sprungbefehl JMP in 
Maschinencode, dargestellt 


Texteinschub Nr. 12 
Darstellung der Variablen einer 
selbstdefinierten Funktion 

Ich habe Ihnen gezeigt, wie im Programmspeicher abgelegte 
normale Variablen und Felder-Variablen sichtbar gemacht wer¬ 
den können. Damit konnten wir den Aufbau und die Darstellung 
der einzelnen Variablenarten studieren. 

Heute will ich einen weiteren Variablentyp vorstellen, nämlich 
den der selbstdefinierten Funktionen. 

Sie erinnern sich vielleicht, mit dem Basic-Befehl »DEF FN 
(Name)(Variable)« können wir komplizierte Funktionen selbst 
erfinden, definieren und später als »FN (NameJ(Variable)« weiter 
verarbeiten. Diesen Typ wollen wir uns anschauen, wie er im 
Speicher steht. 

Im Prinzip verwenden wir dieselben Methoden zur Sichtbar¬ 
machung wie die letzten Male. 

Aber ein Unterschied kommt noch dazu. Der Befehl DEF kann 
leider nicht direkt eingegeben werden, sondern muß immer als 
Teil einer Programmzeile mit einer Zeilennummer versehen sein. 

Deshalb schreiben wir zuerst ein kleines Programm zur Defini¬ 
tion der Funktion plus Variable, bevor wir den Variablenspeicher 
mit dem Bildschirmspeicher Zusammenlegen: 

10 DEF FNAA(X)=3*SIN(X)+C0S(X) 

20 X=5 

30 PRINT FNAA(X) 

Die Funktion hat also den Namen »AA«. Bevor wir weiterma¬ 
chen, überprüfen Sie bitte mit RUN, ob alles stimmt. Nun wird der 
Speicher verschoben. 

Für den C 64 gilt: 

1. POKE 46,4:POKE 48,4 

2. Bildschirm löschen mit CLR-Taste 

3. Cursor auf die Mitte fahren 

4. LIST (es erscheint das Programm) 

5. auf den 2. Zeichensatz umschalten (mit C= und SHIFT-Iäste) 

6 . RUN 

Für den VC 20 (ohne Erweiterung) gilt: 

Nur den Bildschirm auf 4096 zu verschieben, wie das letzte 
Mal, geht diesmal nicht, da wir ja für DEF ein kleines Programm 
schreiben müssen. 

Also legen wir Bild- und Variablenspeicher ab Adresse 5120 


(5120/256=20). 

1. POKE 46,20:CLR 

2. POKE 648,20 

3. STOP/RESTORE-Tasten, bis Cursor wieder da ist 

4. Bi!d?''hirm löschen mit CLR-Taste 

5. die eisten vier bis sechs Zeilen mit SPACE-Taste überfahren 

6 . Cursor ein paar Zeilen nach unten 

7. LIST (es erscheint das Programm) 

8 . mit Commodore- und SHIFT-Taste auf 2. Zeichensatz 
umschalten 

9. RUN 

Wir sehen jetzt oben zwei Gruppen mit je sieben Zeichen, wie 
üblich. 

Die erste Gruppe stellt die Funktion FNAA(x) dar. Sie ist 
gekennzeichnet durch das invertierte erste Zeichen des 
Namens, während das zweite Zeichen normal erscheint. 

Das dritte und vierte Zeichen gibt in Low-/High-Byte- 
Darstellung (im Bildschirmcode) die Adresse an, ab der die Funk¬ 
tion FNAA(x) im Programmspeicher abgelegt ist. Mit 
PEEK (3. Zeichen)+256*PEEK (4. Zeichen) kann das abgefragt 
werden. 

Das fünfte und sechste Zeichen nennt die Adresse, an welcher 
der Zahlenwert der Funktions-Variablen X anfängt. Das siebente 
Zeichen schließlich ist das erste Zeichen der Funktion selbst (in 
unserem Beispiel die 3). 

Die zweite Gruppe beschreibt die Variable X der Funktion. Die 
normale Darstellung der beiden ersten Zeichen, die den Namen 
darstellen, gibt uns an, daß es sich um eine Gleitkomma-Variable 
handelt, deren Wert als Mantisse und Exponent dargestellt ist. 
Der Aufbau einer Funktion ist in Bild 12 zusammengefaßt: 
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Bild 12. Selbstdefinierte Funktion 
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durch die Zahl 75 ($4C). In den 
beiden anderen Zellen 85 und 
86 steht dann in Lx>w-/High- 
Byte-Darstellung die jeweilige 
Adresse in der Tabelle, welche 
der vom Programm gerade ge¬ 
brauchten Basic-Funktion ent¬ 
spricht. Dieser gesamte Befehl 
JMP plus Adresse entspricht in 
Basic der GOSUB-Zeilennum- 
mer. 

Ein Beispiel soll das verdeutli¬ 
chen. Geben Sie direkt ein: 
PRINT PEEK(84);PEEK(85)i 
PEEK(86) 

Wir erhalten 
beim C 64: 7613184 
beim VC 20: 7613216 

Die erste Zahl ist genauso wie 
oben beschrieben. Die beiden 
anderen Zahlen ergeben zu¬ 
sammen die Adresse 47117 
($B80D) beziehungsweise 
55309 ($D80D). Wenn Sie ein 
Buch mit ROM-Listing haben, 
werden Sie unter dieser 
Adresse die Routine für die 
Funktion »PEEK« finden. Das ist 
natürlich nicht erstaunlich, 
haben wir doch gerade vorher 
als letzten Befehl genau diese 
Funktion eingegeben. 

Leider ist das auch die einzige 
Funktion, die ich Ihnen vorfüh¬ 
ren kann, denn zum Vorführen 
muß ich eben immer PEEKen, 
so daß beim besten Willen 
immer nur die oben angegebe¬ 
nen Zahlen erscheinen können. 

Adresse 87 bis 96 
($57 bis $60) 

Arbeitsspeicher für diverse 
Arithmetik-Routinen des 
Baslc-Übersetzers 

Diese zehn Speicherplätze 
werden von verschiedenen Teil¬ 
programmen (Routinen), beson¬ 
ders bei arithmetischen Opera¬ 
tionen, als Zwischenspeicher 
verschiedener Werte, Flaggen 
und Zeiger benutzt. 

Adresse 97 bis 102 
($61 bis $66) 

Gleitkomma-Akkumulator Nr.1 

»Akkumulator» heißt seit der 
Zeit der mechanischen Rechen¬ 
maschinen eine Speicherzelle, 
welche bei Rechenoperationen 
dadurch im Mittelpunkt steht, 
daß laufend Daten in sie hinein¬ 
geschrieben beziehungsweise 
aus ihr herausgelesen werden. 

Normalerweise trägt diesen 
Namen das zentrale Rechenre¬ 
gister des Mikroprozessors. 
Leser des Assembler-Kurses 
kennen diesen Akkumulator 
Inzwischen zur Genüge. 

Die Speicherzellen 97 bis 
102 werden deswegen eben¬ 


falls Akkumulator genannt, weil 
sie bei der Verarbeitung von 
Gleitkommazahlen eine ähnli¬ 
che zentrale Rolle spielen. 

Zelle 97 enthält den Expo¬ 
nenten. Die Zellen 98 bis 101 
enthalten die Mantisse. 

Zelle 102 enthält das Vorzei¬ 
chen der Gleitkommazahl. Eine 
0 bedeutet ein positives, die 
Zahl 255 ein negatives 
Vorzeichen. 

Mit dem Gleitkomma-Akku¬ 
mulator Nr. 1 sind zwei weitere 
Speicherzellen eng verbunden, 
nämlich 104 ($68) und 112 
($70). 

Ganz zum Schluß ist noch 
erwähnenswert, daß nach der 
Umwandlung einer Gleitkomma¬ 
zahl in eine ganze Zahl diese als 
ü>w-/High-Byte in den beiden 
Speicherzellen 98 und 99 
steht, was für Maschinenpro¬ 
gramme vielleicht recht nützlich 
sein kann. 

Adresse 103 ($67) 

Zwischenspeicher bezie¬ 
hungsweise Zählregister 

Diese Adresse wird von zwei 
Routinen verwendet. Der Basic- 
Übersetzer benutzt sie als Vor¬ 
zeichenspeicher bei der 
Umwandlung von Zahlen aus 
dem ASCII-Format in Gleitkom¬ 
mazahlen. Das Betriebssystem 
verwendet diese Adresse als 
Zähler der Abarbeitungsschritte 
bei der Berechnung eines Poly¬ 
noms der Form 
y=a0+a1*x+a2*x12+a3*x 
13+. 

Adresse 104 ($68) 

Überlauf-Speicher des Gleit¬ 
komma-Akkumulators Nr. 1 

Wenn eine Zahl so groß wird, 
daß sie mit den zur Verfügung 
stehenden Stellen nicht mehr 
dargestellt werden kann, spre¬ 
chen wir von einem »Überlauf*. 

Bei Gleitkommazahlen liegt 
diese Überlaufgrenze bei 
1,70141183 * 10 38 . 

Während einer mathemati¬ 
schen Berechnung kann es 
intern im Computer Vorkommen, 
daß ein Überlauf eintritt, der 
aber am Ende der Operation 
wieder verschwinden würde. 
Der Akkumulator Nr. 1 benutzt 
in einem derartigen Fall die Spei¬ 
cherzelle 104, um die verfüg¬ 
bare Stellenzahl um 8 Bit zu ver¬ 
größern. Für endgültige Resul¬ 
tate steht diese Erweiterung 
natürlich nicht zur Verfügung. 

Dieser Vorgang tritt beson¬ 
ders häufig bei der Umwandlung 
von ganzen Zahlen oder Zei¬ 
chenketten in Gleitkommazah¬ 
len auf. 


Adresse 105 bis 110 
($69 bis $6E) 

Gleitkomma-Akkumulator 
Nr. 2 

Spätestens jetzt verstehen 
Sie, warum der Akkumulator der 
Speicherzellen 97 bis 102 die 
Nr. 1 hat. Es gibt hier noch einen 
zweiten Gleitkomma-Akkumula¬ 
tor, der ein identischer Zwilling 
ist. Zwei Akkumulatoren sind 
immer dann notwendig, wenn 
mathematische Operationen 
ablaufen, welche mehr als einen 
Operanden verarbeiten, wie 
zum Beispiel Multiplikation, Divi¬ 
sion und so weiter. 

Aufgrund der Identität der bei¬ 
den Akkumulatoren kann ich mir 
eine weitere Beschreibung 
ersparen. 

Adresse 111 ($6F) 

Flagge für Vorzeichenver¬ 
gleich der Gleitkomma-Akku¬ 
mulatoren Nr. 1 und Nr. 2 

Wenn die Zahl in beiden Akku¬ 
mulatoren gleiche Vorzeichen 
hat, steht in Speicherzelle 111 
eine 0, bei verschiedenen Vor¬ 
zeichen eine 255. 

Adresse 112 ($70) 

Rundungsspeicher des Gleit¬ 
komma-Akkumulators Nr. 1 

Es kann Vorkommen, daß die 
Mantisse einer Gleitkommazahl 
mehr Stellen hat, als mit den vier 
Mantissen-Bytes des Akkumu¬ 
lators Nr. 1 (Zelle 97 bis 102) 
dargestellt werden können. In 
diesem Fall werden die hinter¬ 
sten, das heißt die unwichtig¬ 
sten Stellen hinter dem Komma 
in der Zelle 112 abgelegt. Von 
dort werden sie geholt, um die 
Genauigkeit von mathemati¬ 
schen Operationen zu erhöhen 
und auch um Endresultate ab¬ 
runden zu können. 

Adresse 113 und 114 
($71 und $72) 

Zwischenspeicher für ver¬ 
schiedene Routinen 

Diese Speicherzellen werden 
von sehr vielen Routinen des 
Übersetzers und des Betriebs¬ 
systems, wie zum Beispiel Zei¬ 
chenkettenverarbeitung, inter¬ 
ne Uhr (Tl$), Bestimmung der 
Größe von Feldern (Arrays) und 
etlichen anderen verwendet. 

Adresse 115 bis 138 
($73 bis $8A) 

Teilprogramm »Nächstes Zei¬ 
chen eines Baslc-Textes 
holen« (CHRGET-Routine) 


Die Problematik der Überset¬ 
zung von Basic-Befehlen und 
Anweisungen besteht darin, 
daß die Übersetzungsschritte 
durch entsprechende Pro¬ 
grammteile des Basic-Über- 
setzers im Computer fest vor¬ 
programmiert sein müssen, was 
bedeutet, daß diese Program¬ 
me natürlich im - nicht veränder¬ 
baren - ROM stehen. 

Auf der anderen Seite ver¬ 
langt aber der Übersetzungs¬ 
vorgang, daß gewisse Teile die¬ 
ser Programme sich laufend 
verändern. Als Beispiel soll der 
Zeiger herhalten, der angibt, in 
welcher Speicherzelle das 
nächste zu bearbeitende Zei¬ 
chen steht. Dieser Zeiger und 
die zusammengehörigen Pro¬ 
grammschritte dürfen natürlich 
nicht im ROM stehen, denn da 
sind sie ja nicht änderbar. 

Dieser Konflikt wird dadurch 
gelöst, daß dieses »variable« 
Teilprogramm des Übersetzers 
zwar im ROM steht (im C 64 ab 
58274 oder $E3A2, im VC 20 
ab 58247 oder $E387), von wo 
es aber direkt nach dem Ein¬ 
schalten des Computers in das 
RAM, und zwar in die Speicher¬ 
zellen 115 bis 138, umgeladen 
wird. 

Dieses Teilprogramm, wel¬ 
ches die Zeichen zur Überset¬ 
zung herbeiholt und deswegen 
»Character-Get« oder kurz 
CHARGET-Routine genannt 
wird, ist wegen seiner Veränder- 
barkeit natürlich ein beliebtes 
Objekt aller möglichen Manipu¬ 
lationen. Es ist deshalb im As¬ 
sembler-Kurs, Teil 5, im 64'er, 
Ausgabe 1/85, im Detail be¬ 
schrieben worden, allerdings 
mit Schwerpunkt auf Assembler- 
Maschinensprache. 

Für Basic-Programmierer 
möchte ich hier deshalb eine 
kurze Beschreibung der CHAR¬ 
GET-Routine einfügen. 

Die Routine beginnt mit einem 
Sprung auf den oben schon 
erwähnten Zeiger in Adresse 
122 und 123, welcher seiner¬ 
seits auf die Adresse zeigt, in 
welcher das nächste zu über¬ 
setzende Zeichen steht. Das 
Zeichen wird entsprechend 
dem Hinweis des Zeigers 
geholt, in den Akkumulator des 
Mikroprozessors geladen und 
dort verschiedenen Prüfungen 
unterzogen. Ist das Zeichen ein 
Gänsefuß, erkennt das Pro¬ 
gramm, wie es das nächste Zei¬ 
chen interpretieren und behan¬ 
deln muß. Ein Doppelpunkt leitet 
einen neuen Befehl ein, eine 
Leerstelle wird unterdrückt und 
so weiter. 
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Mit dem Befehl 

PRINT PEEK(122)+256* 
PEEK(123) 

Können wir innerhalb eines Pro¬ 
gramms ausdrucken, wohin der 
Zeiger nach dem letzten Basic- 
Zeichen deutet. Eine Überprü¬ 
fung mit den Methoden, die ich 
bei der Besprechung der Spei¬ 
cherzellen 43 bis 56 genannt 


habe, zeigt Ihnen den Zu¬ 
sammenhang. 

Normalerweise wird der Zei¬ 
ger in 122 und 123 nach jedem 
Zeichen um 1 erhöht, da ja die 
Zeichen einer Basic-Zeile hin¬ 
tereinander im Speicher stehen. 
Ein GOTO- oder GOSUB-Befehl 
kann diese Folge natürlich 
unterbrechen, ebenso wie eine 


willkürliche Änderung durch 
einen Eingriff von außen. 

Ein derartiger Eingriff, auch 
»wedge« (Keil) genannt, öffnet 
natürlich Tür und Tor für Pro¬ 
grammiertricks, insbesondere 
für Einbau von neuen, selbster¬ 
fundenen Befehlen. Man kann 
entweder den allerersten 
Sprungbefehl auf den Zeiger 


so umlenken, daß er auf ein 
eigenes Maschinenprogramm 
springt, oder man kann den Zei¬ 
ger selbst »verbiegen«, so daß 
er auf eine andere Adresse und 
damit auf ein anderes Zeichen 
zeigt. Es gibt dafür viele Mög¬ 
lichkeiten, die aber alle nur in 
Maschinencode funktionieren. 
Theoretisch können wir natür- 


Texteinschub Nr. 13 
Wie zufällig sind Zufallszahlen? 

Der Befehl RND(X) ergibt eine Zufallszahl zwischen 0 und 1 - 
so steht es im Commodore-Handbuch. 

Eine Zufallszahl ist definitionsgemäß rein dem Zufall überlas¬ 
sen. Ihr Wert kann nicht vorhergesehen werden. Wie kann aber 
ein Computer, in dem alle Vorgehensweisen und Arbeitsschritte 
fest vorprogrammiert sind, eine zufällige Zahl erzeugen? Die 
Commodore-Computer machen das so: 

Der Befehl RND nimmt eine bestimmte Ausgangszahl (auf die 
ich noch näher eingehen werde), auf englisch »seed« = Samen 
genannt, multipliziert sie mit 11879546.4 und zählt 
3.92767778 * 10° dazu. Die 5 Byte der resultierenden Gleit¬ 
kommazahl werden miteinander vertauscht und in einen positi¬ 
ven Bruch umgewandelt. Diese Manipulation ergibt die »Zufalls¬ 
zahl«, die als neuer »Samen« in den Speicherzellen 139 bis 143 
gespeichert wird. 

Es ist sicher einzusehen, daß die Zufälligkeit nicht sehr hoch 
sein kann, es sei denn, die oben genannte und noch nicht 
erklärte Ausgangszahl ist zufällig. 

Die erste Ausgangszahl hängt vom »Argument« des 
RND(X)-Befehls ab, das heißt vom Wert X, der in der Klammer 
dahinter steht. Es gibt drei Möglichkeiten für das Argument: 

- eine positive Zahl (egal, welcher Wert) 

- eine negative Zahl 

- die Zahl 0 

Eine positive Zahl 

zum Beispiel RND (1) oder RND(56) nimmt als Samen die Zahl 
0.811635157, die beim Einschalten des Computers als 5-Byte- 
Gleitkommazahl in die Speicherzellen 139 bis 143 geschrieben 
worden ist. In den fünf Zellen stehen die Zahlen 128, 79, 199, 
82, 88. 

Daraus folgt aber, daß nach dem Einschalten des Computers 
mit RND(1) immer dieselbe Sequenz von Zufallszahlen erzeugt 
wird. Schalten Sie bitte den Computer aus und ein und geben Sie 
ein: 

10 PRINT RND(l) :GOTO 10 

Notieren Sie die ersten paar Zahlen und wiederholen Sie mit 
Aus-/Einschalten die Prozedur. Sie werden immer dieselben 
Zahlen sehen. 

Zum Austesten von Programmen mit bekannten Zahlense¬ 
quenzen ist diese Methode sicher wichtig, aber echte Zufalls¬ 
zahlen sind das nicht! 

Eine negative Zahl 

zum Beispiel RND(-I) oder RND(-95) bringt als erstes das Argu¬ 
ment selbst (in meinem Beispiel -1 oder -95) als Gleitkommazahl 
in die Speicherzellen 139 bis 143, von wo sie als Samen den 
schon beschriebenen Manipulationen unterworfen wird. Nur - 
mit einem bestimmten negativen Argument erhalten Sie immer 
dieselbe Zufallszahl. Probieren Sie es aus: 

PRINT RND(-2) ergibt immer dieselbe Zahl. 

Es mag Fälle geben, wo die Vorgabe des allerersten Samens 
wünschenswert ist. Ich will aber von zufälligen Zählen sprechen. 
Wir können diese Methode des negativen Arguments dadurch 
verbessern, daß wir als Argument selbst eine Zufallszahl 
nehmen. 

Als derartige Zahl bietet sich der Wert der inneren Uhr TI an, 
die beim Einschalten des Computers losläuft und 60mal in der 


Sekunde weitergestellt wird. Da kein Mensch wissen kann, wel¬ 
chen Wert die Uhr TI gerade hat, kommt der Befehl RND(-TI) dem 
absoluten Zufall schon sehr nahe. 

Das Argument (0) 

verwendet eine andere Methode. Als Samen nimmt er eine sich 
ständig ändernde Zahl, die beim VC 20 aus vier Registerinhalten 
des VIC-lnterface-Bausteins genommen werden. Beim C 64 
wird es ähnlich gemacht, nur ist der VIC-Baustein ein anderer 
Typ. 

Mit derselben Methode nach dem Einschalten wie im ersten 
Fall oben können Sie das leicht überprüfen. 

Ich habe eingangs zitiert, daß RND(X) eine Zahl zwischen 0 
und 1 erzeugt; das gilt aber nur für ein positives Argument. Wenn 
Sie hingegen eine Zufallszahl innerhalb eines ganz bestimmten 
Bereiches brauchen, müssen Sie anders Vorgehen. 

Kochrezept Nr. 1 

Mit folgender Formel ist der Zahlenbereich beliebig vorgebbar: 

X=(RND(l)*A)+B 

Die Zahl A gibt einen Bereich von 0 bis A vor. 

Die Zchl B legt den untersten Wert des Bereiches fest. 

Beispiele: 

10 PRINT (RND(1)#6)+1:G0T0 10 erzeugt Zahlen von 1 bis 6 

10 PRINT (RND(l)*52)+l:GOTO 10 erzeugt Zahlen von 1 bis 
52 

10PRINT (RND(l)#6)+10:GOTO 10 erzeugt Zahlen von 10 bis 
16 

Mit dem Vorschalten der Funktion INT vor den Befehl RND wer¬ 
den die Zufallszahlen auf ganze Zahlen beschränkt. 

10 PRINT INT (RND1)#6)+1Ü:G0T0 10 

Noch einmal: Zufallszahlen innerhalb bestimmter Zahlenberei¬ 
che sind gekoppelt mit einem positiven Argument. Wir haben 
aber gesehen, daß gerade so keine echten Zufallszahlen 
erzeugt werden. Deshalb brauchen wir noch ein zweites 
Kochrezept. 

Kochrezept Nr. 2 

Wenn Sie in einem Programm nach dem Einschalten des Com¬ 
puters immer neue Zufallszahlen brauchen, ist es empfehlens¬ 
wert, für die allererste Zufallszahl RND(-TI) oder RND(0) zu ver¬ 
wenden, dann aber mit RND(1) fortzufahren. 

Dasselbe gilt, wenn ein Programm wegen INPUT oder WAIT 
eine Pause hat. Nach der Pause sollte zuerst ein neuer Aus¬ 
gangswert genommen werden. 

Als letztes will ich noch beschreiben, wie man Zufallszahlen 
innerhalb von Maschinenprogrammen erzeugen kann. 

Im Betriebssystem steht natürlich eine Routine für den Befehl 
RND. Im C 64 beginnt sie ab 57495 ($E097), im VC 20 ab 
57492 ($E094). 

Der Ausgangswert (Samen) wird dabei aus dem Gleitkomma- 
Akkumulator Nr. 1 geholt, dessen Vorzeichen oder Wert 0 das 
weitere Vorgehen der Routine bestimmt. 

Sie müssen also den Samen in den Akkumulator Nr. 1 laden 
und dann mit JSR auf die RND-Routine springen. Als Resultat 
können Sie einen oder mehrere Werte der Zellen 140 bis 143 
verwenden und nach Belieben weiterverarbeiten. 
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C 64/VC 20 


lieh den Inhalt des Zeigers in 
122 und 123 durch POKE ver¬ 
ändern. Aber was dann? Jeder 
nachfolgende Basic-Befehl löst 
natürlich wieder die normale 
Übersetzungsroutine aus und 
unser schöner POKE ist für die 
Katz. 

Wie ein Wedge in Maschinen¬ 
sprache gemacht wird, hat Chri¬ 
stoph Sauer im VC 20-Kurs - 
64'er, Ausgabe 9/84 
beschrieben. Allerdings ist das 
Beispiel für Anfänger nicht ver¬ 
ständlich, was mich zu der 
Überzeugung bringt, daß die 
CHARGET-Routine und ihre 
Anwendung einen eigenen Auf¬ 
satz wert wäre. 

Adresse 139 bis 143 
($8B bis $8F) 

Wert der RND-Funktlon als 
Gleitkommazahl 

Mit dem Befehl RND(X) kann 
bekanntlich eine Zufallszahl 
erzeugt werden. Was das 
bedeutet und wie »zufällig« 
diese Zahlen sind, können Sie 
dem Texteinschub Nr. 13 »Wie 
zufällig sind Zufallszahlen?« 
entnehmen. 

Belm Einschalten des Com¬ 
puters werden die Zahlen 128, 
79, 199, 82 und 88 in diese 
Speicherzellen geschrieben. 
Mit der folgenden Zeile können 
Sie das gleich nach dem Ein¬ 
schalten des Computers leicht 
überprüfen. 

FÜR X=139 TO 143:PRINT 

PEEK(X):NEXT 

Nach den Manipulationen des 
RND-Befehls wird das Resultat 
wieder in die Zellen 139 bis 143 
als neuer Ausgangswert (seed) 
für den nächsten RND-Befehl 
gebracht. 

Diese fünf Zahlen stellen eine 
Gleitkommazahl dar. Ihre Form 
entspricht dabei der Aufteilung, 
wie sie auch im Gleitkomma- 
Akkumulator (97 bis 101) ver¬ 
wendet wird. 

Eine Abfrage dieser Zahlen 
aus den Zellen 139 bis 143 ist 
natürlich möglich, aber nicht 
ergiebig, weil das Resultat von 
RND(X) direkt als Zahl verfügbar 
ist, während die 5 Byte erst in 
eine brauchbare Zahl umge¬ 
rechnet werden müßten. Eine 
Änderung durch POKEn neuer 
Werte in diese Speicherzellen 
geht leider nicht. 

Adresse 144 ($90) 

Statusvariable ST 

Diese Adresse enthält ein 
Byte, welches mit der Statusva¬ 
riablen ST von Basic identisch 


ist. Diese reservierte Variable ist 
im Texteinschub Nr. 14 
»ST-atus« näher beschrieben. 

Alle Routinen des Betriebssy¬ 
stems, die mit Ein- und Ausgabe 
zu tun haben, benutzen diese 
Speicherzelle zum Abspeichern 
und Abfragen des Status der 
Ein-/Ausgabeoperationen. 

Genauer gesagt, alle Ein-/ 
Ausgabeoperationen, die mit 
der Datasette und mit dem 
Floppy-Gerät beziehungsweise 
dem Drucker zu tun haben, 
benutzen die Adresse 144. Im 
Fachjargon sprechen wir vom 
Kassetten-Port und vom seriel¬ 
len Port. 

Der dritte Anschluß des Com¬ 
puters, nämlich der RS232 oder 
User-Port, benutzt für den Sta¬ 
tus die Speicherzelle 663. 


Jedes Bit der Zelle 144 hat 
eine eigene Bedeutung wie 
folgt. 

Alle nicht aufgeführten Bits 
sind nicht benutzt. 

Diese Speicherzelle bezie¬ 
hungsweise die Statusvariable 
ST kann recht nützlich sein. 
Einige Kochrezepte dafür wer¬ 
den im Texteinschub Nr. 14 
behandelt. 

Adresse 145 ($91) 

Zwischenspeicher für Abfra¬ 
ge der STOP-Taste 

In den Bildern 13 und 14 ist 
dargestellt, wie die Tasten des 
VC 20 und des C 64 miteinan¬ 
der über eine Matrix verbunden 
sind. 

60mal in der Sekunde unter¬ 
bricht der Computer seine 
Arbeit, merkt sich, wo er gerade 
ist und fragt dann unter ande¬ 
rem, ob die STOP-Taste ge¬ 
drückt worden ist. Dadurch wird 
erreicht, daß die STOP-Taste 
jederzeit Priorität hat. 

Die Abfrage geht so vonstat¬ 
ten, daß das Betriebssystem 
über das im Bild 13 und 14 
gezeigte Spaltenregister 56320 
(beim VC 20: 37152) diejenige 
Tastenspalte anwählt, in wel¬ 
cher sich die STOP-Taste befin¬ 
det. Aus Bild 13 und 14 sehen 


wir, daß dies die Spalte mit der 
Codenummer 127 beziehungs¬ 
weise 247 ist. Ist in dieser 
Spalte eine Taste gedrückt, wird 
an ihrer Stelle eine Null in das 
Auslese-Register 56321 (VC 
20: 37153) geschrieben. Die 
dadurch entstandene Dualzahl 
wird in die Speicherzelle 145 
gebracht. 

Es ist sicher verständlich, daß 
auf diese Weise nicht nur die 
STOP-Taste, sondern alle Tasten 
der Spalte 127 (247) abgefragt 
werden können. Ein kleines 
Demonstrationsprogramm kann 
das beweisen: 

10 PRINT PEEK (656321); 

PEEK (145) 

20 GOTO 10 

Beim VC 20 ist statt 56321 
natürlich 37153 einzusetzen. 


Das Zahlenband kann durch 
die Tasten der genannten Spalte 
- und nur durch diese - beein¬ 
flußt werden. 

Adresse 146 ($92) 

Zeltkonstante beim Lesen 
vom Band 

Die Speicherzelle enthält eine 
vom Betriebssystem einstell¬ 
bare Zahl, welche die kleinen 
Unterschiede in der Aufnahme¬ 
geschwindigkeit ausgleicht, die 
bei verschiedenen Datasetten 
Vorkommen können. 

Diese Zeitkonstante steht im 
Zusammenhang mit der Zahl, 
die in den Speicherzellen 176 
und 177 steht. 

Eine Veränderung der Kon¬ 
stante in Basic ist nicht möglich. 

Adresse 147 ($93) 

Flagge für LOAD oder VERIFY 

Diese Flagge dient dem 
Betriebssystem, um zu unter¬ 
scheiden, ob eine LOAD- 
Operation nur LOADen oder 
aber VERIFYen soll. 

Sie ist identisch mit der 
Flagge des Basic-Übersetzers 
in Speicherzelle 10. Genauere 
Hinweise bitte ich der Beschrei¬ 
bung von Zelle 10 zu entneh¬ 
men. 


Adresse 148 ($94) 

Flagge für Floppy/Drucker- 
Ausgang 

Das Betriebssystem benutzt 
diese Speicherzelle, um anzu¬ 
zeigen, daß ein Zeichen im Aus¬ 
gabepuffer steht, welches zum 
Floppy-Gerät oder zum Drucker 
geleitet werden soll. Diese 
Flagge setzt alle am seriellen 
Port angeschlossenen Geräte in 
den Zustand »Listen«, das heißt 
bereit zu sein, Daten auf¬ 
zunehmen. 

Adresse 149 ($95) 

Zeichen im Ausgabepuffer 

In dieser Speicherzelle wird 
das Zeichen abgelegt, welches 
als nächstes über den Serial- 
Port zum Floppy-Gerät oder zum 
Drucker transportiert wird, 
sobald die Flagge in 148 die 
Bereitschaft anzeigt. 

Adresse 150 ($96) 

Arbeitsspeicher für die Band- 
Leseroutine 

Diese Speicherzelle wird zur 
Zwischenspeicherung von 
Daten beim Lesen einer Kas¬ 
sette benutzt. 

Adresse 151 ($97) 

Zwischenspeicher des X-Re- 
gisters 

Maschinen-Programmierer 
kennen das X-Register des 
Mikroprozessors. Beim Lesen 
eines Zeichens von der Data¬ 
sette wird der Inhalt des X- 
Registers in dieser Adresse zwi¬ 
schengespeichert. 

Adresse 152 ($98) 

Anzahl der offenen Files 

Ein File, oder auf Deutsch 
gesagt, eine Datei, wird mit dem 
Befehl OPEN eröffnet. Nach 
OPEN folgt die Nummer der 
Datei; sie ist beliebig wählbar bis 
maximal 255. Als zweites folgt 
die Nummer des Gerätes, mit 
dem die Verbindung hergestellt 
werden soll. 

Es ist erlaubt, mehrere 
Dateien gleichzeitig geöffnet zu 
halten, vorausgesetzt die Num¬ 
mern der Dateien sind ver¬ 
schieden. 

In Speicherzelle 152 wird 
festgehalten, wieviel Dateien 
gleichzeitig geöffnet sind. Die¬ 
ses kleine Programm zeigt es 
uns deutlich: 

10 FOR K=10 TO 22 
20 PRINT PEEK (152),K 
30 OPEN K,0 
40 NEXT K 

Mit der FOR...NEXT-Schleife 
der Zeilen 10 und 40 eröffnen 


Kassette: 


Bit 2 

(Wart 4) 

Kurzer Block 

Bit 3 

(Wart 8) 

Lanoer Block 

Bit 4 

(Wert 16) 

Lesefehler (nicht korrigierbar) 

Bll 5 

(Wert 32) 

Prütsummentehler 

Bit 6 

(Wert 64) 

File-Enda 

Bit 7 

(Wert 128) 

Band-Ende 

Floppy/Drucker: 


Blto 

(Wert t) 

Fehler beim Schreiben 

Bit 1 

(Wert 2) 

Fehler beim Lesen 

BUS 

(Wert 64) 

Daten-Ende 

Bll 7 

(Wert 128) 

»Device Not Present<-Fehler 
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GRUNDLAGEN 


C 64/VC 20 



BIT 7 6 5 4 3 2 I 


Bild 13. Tastenanordnung des VC 20 



wir 13 Dateien hintereinander, 
und zwar - wie Zeile 30 uns 
deutlich macht - mit der Tasta¬ 
tur. Die Tastatur hat die Nummer 
0, der Drucker die Nummer 4, 
das Floppy-Gerät die Nummer 8 
und die Datasette die Nummer 
1. Ich habe die Tastatur gewählt, 
obwohl es keinen Sinn ergibt, 
weil sie die vielen Eröffnungen 
ohne zu unterbrechen 
akzeptiert. 

Nach RUN sehen wir links 
untereinander den Inhalt von 
152, also die Anzahl der eröff- 
neten Dateien. Rechts steht 
jeweils die Nummer der eröffne- 


ten Datei. 

Nach der 10. Datei bricht das 
Programm ab und druckt uns die 
Fehlermeldung TOO MANY 
FILES aus. 

Das heißt es sind gleichzeitig 
nur 10 Dateien betreibbar. 
Wenn wir oben in Zeile 10 die 
Zahl 22 durch 19 ersetzen, läuft 
das Programm fehlerfrei. 

Eine Datei, die unter einer 
bestimmten Nummer eröffnet 
ist, kann nicht noch einmal eröff¬ 
net werden. Fügen Sie bitte 
dem Programm noch die fol¬ 
gende Rücksprungzeile hinzu: 

50 GOTO 10 


In der 10. Zeile sehen wir jetzt 
die 10 als Inhalt von 152 und als 
neue Dateinummer (Schleifen¬ 
variable K) wieder die 10. Das 
Programm bleibt aber stehen 
und meldet FILE OPEN. Es hat 
recht, denn die Datei 10 ist 
bereits als erste eröffnet, aber 
nicht wieder geschlossen 
worden. 

Das Betriebssystem macht 
das so, daß jede der Dateinum¬ 
mern in eine Tabelle geschrie¬ 
ben wird, die in den Speicher¬ 
zellen 601 bis 610 stehen. Bei 
jedem OPEN-Befehl wird dort 
nachgeschaut, ob die Filenum¬ 
mer existiert. Wenn ja, wird die 
Fehlermeldung FILE OPEN ER¬ 
ROR ausgegeben. Bei jedem 
CLOSE-Befehl wird die entspre¬ 
chende Nummer aus der Tabelle 
gelöscht. 

Wir können aber auch eine 0 
in die Speicherzelle 152 
POKEn, wodurch dem Betriebs¬ 
system vorgegaukelt wird, daß 
keine Datei eröffnet ist. Schie¬ 
ben Sie im Programm einfach 
die Zeile ein: 

45 POKE 152,0 

und das Programm läuft ewig 
weiter. 

Die Speicherzelle 152 ist also 
derVv... 'iter über die Anzahl der 
eröffneten Dateien. Steht sie 
auf 0, dann wird eine Neueröff¬ 
nung am Anfang der Tabelle ab 
601 eingetragen. Die Tabelle 
ihrerseits ist der Wächter über 
Exklusivität der Dateinummern. 
Ich zeige Ihnen das noch ge¬ 
nauer, wenn wir zu 601 kom¬ 
men. 

Sie werden vielleicht fragen, 
warum ich das so ausführlich 
beschreibe. Nun, in einem Pro¬ 
gramm kann es sicher sehr nütz¬ 
lich sein, die Zelle 152 mit PEEK 
nach der Datei-Lage abzufragen 
und entsprechend Maßnahmen 
zu treffen, ehe die Fehlermel¬ 
dung das Programm abbricht. 

Mit POKE 152,0 aber müssen 
Sie aufpassen. Es ersetzt näm¬ 
lich nicht (I!) den CLOSE- 
Befehl. Probieren Sie es aus: 
Um das kleine Programm oben 
per Drucker auszudrucken, 
brauchen wir: 

OPEN 1,4: CMD 1: LIST 

Wenn Sie jetzt die Zeile 152 
auf 0 POKEn und dann LIST ein¬ 
tippen, wird trotzdem wiederauf 
dem Drucker gelistet und nicht 
auf dem Bildschirm. Die vorge¬ 
schriebene Schließmethode mit 

PRINT #1:CLOSEI 
geht jetzt aber auch nicht mehr, 
denn das Betriebssystem ist ja 
im Glauben, daß keine Datei 
eröffnet ist - schöner 
Schlamassel! 


Erst eine Neueröffnung bringt 
alles wieder in die Reihe. Also 
Vorsicht mit der Anwendung der 
Speicherzelle 152. Eine Mög¬ 
lichkeit, alle Dateien auf einen 
Schlag zu schließen, gibt es 
aber doch. 

SYS 65511 besorgt das so¬ 
wohl beim C 64 als auch beim 
VC 20. 

Adresse 153 ($99) 

Nummer des Eingabe-Gerätes 

Das Betriebssystem verwen¬ 
det diese Speicherzelle, um 
festzuhalten, welches Gerät zur 
Eingabe verwendet werden soll. 

Die Nummern sind wie folgt 
festgelegt: 

0 = Tastatur 

1 = Datasette 

2 = RS232 (User-)Port 

3 = Bildschirm 

4, 5 = Drucker 

8-11 = Floppy-Laufwerke 
Nach dem Einschalten oder 
nach RESET des Computers 
steht in 153 eine 0 (Tastatur). 
Nach jedem Einsatz eines ande¬ 
ren Gerätes wird diese Spei¬ 
cherzelle wieder auf 0 gesetzt, 
so daß wir immer die Tastatur zur 
Verfügung haben. 

Für Maschinenprogrammierer 
ist diese Adresse sicherlich 
wertvoll. Die Routine, welche 
die Eingabegeräte festlegt, 
sobald der Befehl INPUT # 
beziehungsweise GET# aus¬ 
geführt wird, heißt CHKIN und 
beginnt beim C 64 ab Adresse 
61966 (SF20E), beim VC 20 ab 
62151 ($F2C7). 

Für Basic-Programmierer 
habe ich in der Literatur nur eine 
Anwendung gefunden, und die 
wurde bereits bei der Bespre¬ 
chung der Speicherzelle 19 
angekündigt. 

Es ist dies eine MERGE-Rou- 
tine. Leider funktioniert dieses 
Verfahren nicht bei dem 1541- 
Floppy-Laufwerk. Erfunden 
wurde die Routine von Brad 
Templeton und ist von Jim But- 
terfield unter dem Namen 
»Magic Merge« für den VC 20/ 
C 64 adaptiert worden. Ich 
gebe zu, in der Zwischenzeit 
sind noch andere, vielleicht 
auch kürzere MERGE-Routinen 
veröffentlicht worden. Aber 
diese hier verwendet gleich drei 
interessante Ingredienzen, näm¬ 
lich die Speicherzellen 19 und 
153 und außerdem die soge¬ 
nannte »Dynamische Tastenab¬ 
frage«. Wer die letztere nicht 
kennt, sollte sich zum Verständ¬ 
nis den Texteinschub Nr. 15 
gleichen Namens ansehen. 

Ein MERGE (deutsch: zusam¬ 
menführen, verschmelzen) be- 
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GRUNDLAGEN 


steht darin, ein auf Band gespei¬ 
chertes Programm zu einem im 
Computer stehenden anderen 
Programm so dazuzuladen, daß 
dieses nicht überschrieben, 
sondern ergänzt wird. Wichtig 
ist dabei, daß das Programm 
vom Band höhere Zeilennum¬ 
mern hat als das Programm im 
Computer. Außerdem muß das 
Programm auf dem Band als 
Datei gespeichert sein. Das 
wird so erreicht: 

1. Programm eintippen 

2. Direkt eingeben: 

OPEN 1,1,1, 'Name": 
CMD1:LIST 

3. Erst wenn READY kommt, 
direkt eingeben 
PRINT # 1:CLOSEI 

Damit ist das Programm auf 
dem Band gespeichert. Nun 
kommt der eigentliche MERGE- 
Vorgang. 

4. Es steht ein Programm im 
Computer 

5. Band mit dem Programm 
»Name« einlegen 

6. Direkt eingeben: 

POKE 19,1: OPEN 1 

7. Sobald READY 
erscheint, Bildschirm 
löschen (SHIFT-CLR). 

8. Dreimal Cursor-Down 

9. Direkt eingeben: 

PRINT CHR$(l9): 

POKE 198,1: 

POKE 631,13: 

POKE 153,1 

10. Das Band beendet den 
Ladevorgang mit einer 
Fehlermeldung, die wir 
ignorieren. 

11. Nach CLOSE 1 sind beide 
Programme zusam¬ 
mengefügt. 

Wie gesagt, Schritt 6 verwen¬ 
det Zelle 19 (bitte dort nachle- 
sen), Schritte 8 und 9 sind die 
»Dynamische Tastenabfrage«, 
und Schritt 9 verwendet zusätz¬ 
lich die hier zur Diskussion ste¬ 
hende Speicherzelle 153, um 
die Datasette als Eingabegerät 
zu definieren. 

Adresse 154 ($9A) 

Nummer des Ausgabe-Gerä¬ 
tes 

Diese Speicherzelle ent¬ 
spricht der Zelle 153, nur steht 
hier die Nummer des Gerätes, 
über das die Ausgabe läuft. 

Nach dem Einschalten und 
nach Ausgabeoperationen wird 
der Wert immer auf 3 gesetzt. 
Das ist entsprechend der oben 
genannten Zuordnung der 
Bildschirm. 

Für Maschinenprogrammierer 
sei erwähnt, daß Basic bei den 
Befehlen PRINT# oder CMD 



die Routine CHKOUT einsetzt, 
welche die Adresse 154 belegt. 
Sie steht im C 64 ab Adresse 
62032 ($F250), im VC 20 ab 
62217 ($F309). 

Adresse 155 ($9B) 

Fehlerkontrolle bei Bandope¬ 
rationen 

Die Commodore-Datasette ist 
deswegen so zuverlässig, weil 
sie mehrere Methoden zur Feh¬ 
lererkennung beziehungsweise 
Korrektur von Lese- und 
Schreibfehlern verwendet. 

Eine der Methoden ist die 
sogenannte Parity-Prüfung. Sie 
ist nichts anderes als eine Quer¬ 
summenbildung der einzelnen 
Stellen jedes Bytes, deren 
Resultat überprüft wird. 

Die Speicherzelle 155 wird 
bei dieser Parity-Prüfung einge¬ 
setzt. 

Adresse 156 ($9C) 

Flagge für korrektes Byte vom 
Band 

In dieser Speicherzelle wird 
zwischengespeichert, ob das 
vom Band gelesene Byte die 
Prüfungen bestanden hat, also 
richtig ist oder nicht. 

Adresse 157 ($9D) 

Flagge für Meldungen 

Man muß zwischen zwei 
Arten von Meldungen unter¬ 
scheiden: 

Meldungen des 
Betriebssystems 
Meldungen des 
Basic-Übersetzers 
Die Meldungen des Betriebs¬ 
systems kennen wir als Anga¬ 
ben zum Ablauf, wie SEAR- 
CHING FOR, FOUND, PRESS 
PLAY ON TAPE und so weiter. 
Normalerweise nicht bekannt ist 
die Meldung I/O ERROR #, 
wobei nach dem Zeichen # 
Zahlen von 0 bis 29 stehen kön¬ 
nen. Diese Zahlen beziehen 
sich auf Meldungen des Über¬ 
setzers (Interpreter), die aus¬ 
schließlich Fehlermeldungen 
sind. Das mag verwirrend klin¬ 
gen, klärt sich aber sofort. Die 
Flagge in 157 kann vier Werte 
annehmen: 0,64,128 und 192. 

1. Der Wert 0 unterdrückt alle 
Meldungen des Betriebssy¬ 
stems. Dieser Modus tritt nach 
RUN beim Ablauf eines Pro¬ 
gramms ein. 

2. Der Wert 64 läßt nur Fehler¬ 
meldungen des Betriebssy¬ 
stems zu. Dieser Modus ist nor¬ 
malerweise nicht vorgesehen, 
kann aber künstlich erzeugt 
werden. 

3. Der Wert 128 unterdrückt die 


Fehlermeldung des Betriebssy¬ 
stems. Dieser Modus entspricht 
dem Normalfall. 

4. Der Wert 192 läßt alle Mel¬ 
dungen zu. Auch dieser Modus 
ist nur künstlich herzustellen. 

Das folgende Beispiel macht 
das deutlich. Geben Sie direkt 
ein: 

POKE 157,0:LOAD "$",9 
Wir versuchen, vom Gerät mit 
der Nummer 9, das ist eine 
zweite Floppy, die Directory zu 
laden. Wir erhalten entspre¬ 
chend Punkt 1 nur die Meldung 
des Übersetzers »? DEVICE 
NOT PRESENT«. 

Verändern wir den POKE- 
Befehl für Punkt 2: 

POKE 157,64: LOAD ,9 
Wir erhalten jetzt »I/O ERROR 
# 5 ? DEVICE NOT PRESENT«. 
POKE 157,128: LOAD'$',9 
ergibt die Meldung »SEAR- 
CHING FOR $ 

? DEVICE NOT PRESENT«. 

Schließlich nehmen wir noch 
den letzten Fall: 

POKE 157,192: LOAD "$", 9 
Jetzt erhalten wir alles: 
»SEARCHING FOR $ 

I/O ERROR #5 
? DEVICE NOT PRESENT« 

Da die Fehlermeldung des Be¬ 
triebssystems und die zugehöri¬ 
gen N j mern in keinem Hand¬ 


buch erwähnt sind, habe ich sie 
Interessehalber in der folgen¬ 
den Tabelle zusammengefaßt. 

# MELDUNG (ERROR) 


1 T00 MANY FILES 

2 FILE OPEN 

3 FILE NOT OPEN 

4 FILE NOT FOUND 

5 DEVICE NOT PRESENT 

6 NOT INPUT FILE 

7 NOT OUTPUT FILE 

8 MISSING FILE NAME 

9 ILLEGAL DEVICE NUMBER 

10 NEXT WITHOUT FOR 

11 SYNTAX 

12 RETURN WITHOUT GOSUB 

13 OUT OF DATA 

14 ILLEGAL QUANTITY 

15 OVERFLOW 

16 OUT OF MEMORY 

17 UNDEF’D STATEMENT 

18 BAD SUBSCRIPT 

19 REDIM'D ARRAY 

20 DIVISION BY ZERO 

21 ILLEGAL DIRECT 

22 TYPE MISMATCH 

23 STRING TOO LONG 

24 FILE DATA 

25 FORMULA TOO COMPLEX 

26 CAN'T CONTINUE 

27 UNDEF'D FUNCTION 

28 VERIFY 

29 LOAD 


Texteinschub Nr. 14 
ST-atus 

Neben den Befehlen (wie PRINT) und den Funktionen (wie 
COS) hat Basic auch noch drei fest definierte Variable, nämlich 
TI, TIS und ST. 

Von den dreien ist ST wohl am seltensten anzutreffen, Grund 
genug, hier ein wenig darüber zu berichten. 

Der Anlaß ist natürlich, daß der Wert von ST immer in der Spei¬ 
cherzelle 144 steht, die ja hier vorkommt. 

Bei der Beschreibung wurde schon erwähnt, daß ST den Sta¬ 
tus nach der letzten Ein- beziehungsweise Ausgabeoperation 
angibt, beschränkt allerdings nur auf Operationen mit der Data¬ 
sette und der an einem gemeinsamen Ausgang angeschlosse¬ 
nen Floppy und Drucker. 

Dementsprechend zeigt die Tabelle bei der Speicherzelle 144 
diese beiden Fälle. 

Wichtig ist noch zu erwähnen, daß nicht nur die in der Tabelle 
gezeigten Zahlen für ST auftreten, sondern auch Kombinationen 
davon. So ergibt zum Beispiel ein zu kurzer Block (4) und ein 
gleichzeitig aufgetretener Prüfsummenfehler (32) einen Wert 
von 36. 

Kassettenoperationen 

Zuerst testen wir mit einem Datei-Programm auf »File-Ende«. 
Geben Sie bitte folgendes Programm ein: 

10 OPEN 1,1,1, "DATEI* 

20 PRINT#1, "QWERTY* 

30 CLOSE 1 

40 END 

Zur Erinnerung: Nach dem OPEN-Befehl folgt zuerst die Num¬ 
mer der Datei (ich nehme hier 1), dann die Gerätenummer (1 = 
Datasette) und schließlich die Sekundäradresse (1= Schrei¬ 
ben). 
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Jetzt kommt der Lesevorgang: 

50 OPEN 2,1,0'DATEI' 

60 FOR K=1 TO 10 
70 GET#2,A$ 

80 PRINT A$; ST 
90 NEXTK 
100 CL0SE2 

In Zeile 50 eröffnen wir wieder eine Datei (diesmal Nummer 2) 
für die Datasette, jetzt aber zum Lesen (Sekundäradresse=0). 
Die Schleifen der Zeilen 60 und 90 schreiben uns lOmal ein Zei¬ 
chen (A$) und den Wert von ST auf den Bildschirm. 

Jetzt geht es los. Mit RUN starten wir den ersten Teil des Pro¬ 
gramms. Nach dem Schreibvorgang und der READY-Meldung 
(nach Zeile 40) müssen Sie das Band zurückspulen und mit 
GOTO 50 ab Zeile 50 weiterfahren. Jetzt wird die Datei gelesen. 

Wir erhalten untereinander die sechs Buchstaben von Zeile 
20, daneben für ST lauter Nullen. Am Ende allerdings erscheint 
eine 64. Das ist der in der Tabelle angegebene Wert von ST für 
»File-Ende«. 

Da die FOR-NEXT-Schleife zu lang ist, schießen wir mit dem 
Lesen über das File-Ende hinaus. Normalerweise kennen wir 
natürlich die Länge einer Datei nicht. Deshalb ist es besser, mit 
GOTO zurückzuspringen und das File-Ende abzufragen. 

Löschen Sie bitte Zeile 60 und 90 und fügen Sie als Rück¬ 
sprung und Prüfung ein: 

85 IF ST=64 THEN 100 
90 GOTO 70 

Statt nach ST können wir natürlich genausogut nach 
PEEK(144) fragen. 

Ein erneutes GOTO 50 bringt das erwünschte Resultat. 

Um den vorhin schon erwähnten »kurzen Block« zu sehen, 
müssen wir einen entsprechenden Fehler künstlich erzeugen. 

Löschen Sie bitte den ersten Teil des Programms bis ein¬ 
schließlich Zeile 40. Wir behalten also nur den Leseteil ab Zeile 
50. Dann laden wir dieses Programm (Band vorher am besten 
wieder zurückspulen) mit SAVE "DATEI" nicht als Datei, sondern 
als ganz gewöhnliches Programm. Wenn es geladen ist, bitte das 
Band wieder zurückspulen. 

Mit RUN starten wir jetzt das Lese-Programm, welches eine 
Datei sucht, aber nur ein Programm findet, allerdings mit dem 
richtigen Namen. Natürlich findet es einen Fehler und wir erhal¬ 
ten als Ausdruck: 

36 oder manchmal auch 4 
64 64 

Die Zahl 36 entsteht aus 32+4, das bedeutet Prüfsummen¬ 
fehler + Block zu kurz. Danach folgt wie vorher das File-Ende. 

Die normale Blocklänge entspricht der Länge des Bandpuf¬ 
fers, in den die Datasette einspeichert. Er ist 191 Byte lang. In 
unserem Fall war offenbar der Block nicht ganz voll. 

Der Prüfsummenfehler tritt dann auf, wenn eine der Überprü¬ 
fungen von Kassettenoperationen einen Fehler gefunden hat. 
Der Blockfehler, auch der des zu langen Blocks, interessiert 
wohl weniger. Aber ein durch die Prüfungen gefundener Fehler 
könnte frühzeitig, noch vor dem Ausstieg des Programms, ent¬ 
deckt, abgefangen und ausgenutzt werden. 

Die Formel dafür, ins obige Programm eingebaut, ist: 

85 IF ST<64 OR ST>8 TUEN, .(zum Beispiel LIST) 

Statt LIST kann man natürlich auch etwas anderes nehmen. 
Floppy-Operationen 

Bei der Floppy bedeutet ST=64, »Daten-Ende«, das ist etwa 
dasselbe wie bei der Datasette Um es zu überprüfen, nehmen 
wir dasselbe Programm wie vorher, nur müssen wir die Datei- 
Zeilen der Floppy anpassen. Das sieht dann so aus: 

10 0PEN1,8,1*DATEI,S,W* 

20 PRINT#1, "QWERTY* 

30 CLOSE 1 
40 END 

50 OPEN 2,8,0"DATEI,S,R* 

60 FOR K=1 TO 10 ' 


70 GET # 2,A$ 

80 PRINT A$,ST 

90 NEXTK 

100 CLOSE2 

Das Ergebnis sieht hier so aus: 

64 

66 

66 

Die 64 Ist natürlich wie erwartet der »Wert« für Daten-Ende. 
Die 66 ist 64 + 2, entstanden dadurch, daß wir über das 
Daten-Ende hinausgelesen haben. Die 2 bedeutet »Fehler 
beim Lesen« (in den englischen Beschreibungen heißt es 
»Read Time Out«), Ähnliches gilt für ST=1, das bedeutet 
»Fehler beim Schreiben« (englisch: Write Time Out), nur weiß 
ich leider nicht, wie es vorzuführen ist. Wie bei der Datasette 
kann das Überlesen natürlich mit der Abfrage IF ST=64 
THEN...und GOTO...gestoppt werden. 

Interessant ist noch der Status beim Fehler »DEVICE NOT 
PRESENT«, den wir dadurch erzeugen, daß wir ein Programm 
oder die Directory von der Diskette laden wollen, ohne daß 
dieses Gerät angeschlossen oder eingeschaltet ist. Nach der 
Fehlermeldung geben wir direkt ein: 

PRINT ST Oder PRINT PEEK(l44) 
und wir erhalten die Zahl 128. 

Wie man allerdings in einem Basic-Programm durch Abfrage 
von ST=128 die Fehlermeldung »Device Not Present« und 
den dann folgenden Programmabbruch vermeiden kann, 
bedarf einer gesonderten Maßnahme: 

Es gibt zwei Speicherzellen - 768 und 769 -, auf die wir 
bei unserer Wanderung durch die Speicherlandschaft noch 
kommen werden, In denen in Low-/High-Byte-Darstellung eine 
Adresse steht, auf die das Betriebssystem springt, wenn die 
Melde: j »DEVICE NOT PRESENT« ausgegeben werden soll. 
Diesen Zeiger kann man so »verbiegen«, daß die Meldung 
nicht ausgegeben wird und daß das Programm einfach weiter¬ 
läuft. 

Normalerweise steht in 768 die Zahl 139 (VC 20: 58), in 
769 die Zahl 227. 

Verbogen wird der Zeiger durch eine 61 (185 geht auch), 
beim VC 20 durch 52. Dadurch zeigt die Adresse auf eine 
Speicherzelle des Betriebssystems, in welcher der 
Assembler-Befehl »RTS«, das bedeutet Rücksprung, steht. 
Jetzt können wir ungestört den STatus abfragen, wir müssen 
allerdings den negativen Wert von ST, also -128 nehmen. 

Das geänderte Programm sieht dann so aus: 


10 POKE 768,61 

Fehlermeldung abschalten 

20 OPEN 1,8,15 

Gerät ansprechen 

40 CLOSE 1 


50 POKE 768,139 

Fehlermeldung einschalten 

60 IF ST= -128 THEN 100 

Sprung bei ausgeschaltetem 


Gerät 

70 PRINT »FORTSETZUNG« 

weiter im Programm 

80 END 

Ende des DEMO 

100 PRINT »GEREAT EINSCHALTEN« 

110 GET A$ : IF A$ = ** THEN 10 Warteschleifen 

120 GOTO 10 

neuer Versuch 


Drucker-Operationen 

Für den Drucker sieht die Änderung fast genauso aus. Die 
einzige Änderung ist in den Zeilen 20 und 30 

20 OPEN 1,4 

30 PRINT #1 

Unter bestimmten Umständen kann das Verbiegen des Zei¬ 
gers in 768 entfallen. 

Ich möchte nach eigenen längeren Versuchen aber dafür 
plädieren, die Fehlermeldung immer abzuschalten, um nie in 
Schwierigkeiten zu kommen. Vorsicht Ist die Mutter der Weis¬ 
heit. 




c.de 


30 
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Texteinschub Nr. 15 
Dynamische Tastenabfrage 

Jedesmal, wenn Sie eine Taste drücken, wird der ASCII- 
Codewert des Zeichens oder der Funktion dieser Taste ermittelt 
und im »Tastaturpuffer« gespeichert. Dieser Pufferspeicher liegt 
in den Speicherzellen 631 bis 640. 

Die eigentliche Abfrage und Umcodierung eines Tastendrucks 
habe ich im Kurs »Alle Tasten-, Zeichen- und Steuercodes« in den 
Ausgaben 4/84 bis 7/84 beschrieben. Er ist auch im 64er- 
Sonderheft Nr. 2/86 enthalten. Die ASCII-Codetabelle finden 
Sie da auch. Sie Ist natürlich in allen Handbüchern enthalten, lei¬ 
der aber nicht immer ganz vollständig. 

Zuerst will Ich Ihnen die Arbeitsweise des Tastaturpuffers 
zeigen. 

Der Computer holt sich den ASCII-Codewert aus dem Tastatur¬ 
puffer und wenn gerade kein Programm läuft, druckt er das Zei¬ 
chen auf den Bildschirm oder führt die Funktion der Taste aus. 
Das ist der oft zitierte »Direkt-Modus«. 

Wenn aber ein Programm läuft, dann bleiben die Codezahlen 
im Puffer so lange stehen, bis der Computer fertig ist. Dann erst 
werden sie herausgeholt und verarbeitet. Das will ich Ihnen 
beweisen. 

Tippen Sie im Direkt-Modus ein: 

FÜR K=1 TO 15000:NEXT K (RETURN) 

Während diese an sich sinnlose Zeitschleife 15000mal im 
Kreis rumrennt, haben Sie genügend Zeit, mehrere Tasten zu 
drücken, zum Beispiel die erste Buchstabenreihe 
(QWERTYUIOP® • I). Natürlich sehen Sie am Bildschirm gar 
nichts, denn das Programm der Schleife läuft ja noch. Sobald 
aber die Schleife zu Ende ist, erscheinen 10 der getippten Buch¬ 
staben. Quod erat demonstrandum! 

Warum nur 10 Buchstaben? Nun, der Tastaturpuffer hat nur 10 
Plätze, logisch? 

Jetzt müssen wir noch eine weitere Speicherzelle ins Spiel 
bringen. In die Zelle 198 kann man nämlich eine Zahl hineinPO- 
KEn, welche die Anzahl der Zeichen im Tastaturpuffer begrenzt. 

Wiederholen Sie bitte das Experiment von oben, nur soll die 
direkt eingegebene Zeile erweitert werden: 

FOR K=1 TO 15000:NEXT K: POKE 198,6 (RETURN) 

Und siehe da, jetzt werden nur die sechs Buchstaben Q bis Y 
ausgedruckt. Diese Anwendung des Tastaturpuffers nutzen wir 
für das Kochrezept »Dynamische Tastenabfrage« aus. Allerdings 
müssen wir dazu prinzipiell die ASCII-Codewerte verwenden, so 
wie im nächsten Beispiel. 

Löschen Sie bitte den Bildschirm und geben Sie ein (identisch 
für VC 20 und C 64): 

10 PRINT CHR$(65) 

20 PRINT CHR$(156) 

30 PRINT CHR$(66)CHR$(13)CHR$(67) 

65 ist der Code für A, 156 für die Farbe »purple«, 66 für B, 13 
für »RETURN« und 67 für C. Das heißt also, daß wir zuerst ein A 
drucken, dann auf »purple« umschalten, darunter dann das B 
schreiben, einmal RETURN geben und dann noch das C folgen 
lassen. 

Bild 15 zeigt den Ausdruck auf dem Bildschirm, wenn Sie diese 
Zeilen LISTen und dann mit RUN starten. 

Zur Erklärung: Die Leerzeile zwischen A und B ist bedingt 
durch die PRINT-Anwelsung in Zeile 20, welche nur die Farbe 
umschaltet. Obwohl die Codes für B und C zusammen in einer 
Zeile stehen, werden sie doch durch das »RETURN« CHR$(13) 
untereinandergesetzt. 

Anstelle der 13 können Sie alle möglichen anderen Steuer¬ 
funktionen setzen. Bild 16 zeigt das Resultat von 17, nämlich 
»Cursor down«. Wenn Sie die 8 nehmen, können Sie den Zei¬ 
chensatz nicht mehr ändern. Der Einsatz der gleichzeitig 
gedrückten SHIFT- und Commodore-Taste funktioniert erst nach 
CHR$(9) wieder. 

Als nächstes wollen wir die ASCII-Codewerte und den Tasta¬ 
turpuffer im »Programm-Modus« einsetzen. 




Das Resultat von Bild 16 wollen wir jetzt durch POKEn der 
ASCII-Werte in den Tastaturpuffer wiederholen. 

5 POKE 198,5 

10 POKE 631,65 

20 POKE 632,156 

30 POKE 633,66: POKE 634,17: POKE 635,67 

99 END 

Prinzipiell macht dieses Programm das gleiche wie das Pro¬ 
gramm in Bild 16. Trotzdem erhalten wir nach LIST und RUN ein 
anderes Ergebnis, nämlich das von Bild 17. 

Ist das ein Fehler? Natürlich nicht. Nach RUN laufen zuerst ein¬ 
mal alle POKE-Befehle ab. Zeile 5 gibt an, wieviele Zeichen im 
Puffer stehen sollen. In Zeile 99 findet das Programm das ENDe 
und meldet sich mit READY. Jetzt erst wird im Tastaturpuffer 
nachgeschaut. Dort findet der Computer zuerst das A, dann 
»purpur«, dann das B, welches sofort neben das A gesetzt wird. 
Das ist auch logisch, denn es fehlt ja jede Angabe, eine Zeile tie¬ 
fer zu gehen. Um das zu erreichen, müssen wir in der Zeile 10 
den Codewert für RETURN einschieben: 

10 POKE 631,65: POKE 632,13 

Vorsicht! Sie müssen in Zeile 20 und 30 alle POKE-Adressen 
um 1 erhöhen und auch die Zahl in Zeile 5. Nehmen Sie 10, dann 
haben Sie Platz für Erweiterungen. So, jetzt LIST und RUN einge¬ 
ben und es erscheint Bild 18 - und wir haben schon wieder ein 
Problem! Aber alles im Computer ist logisch! Nach dem A findet 
er den Wert für »RETURN«, also führt er den Befehl aus, auf dem 
der Cursor gerade steht. Der steht auf dem A. Da das kein gülti¬ 
ger Basic-Befehl ist, druckt der Computer die Fehler-Meldung 
und zeigt READY an. Danach allerdings macht er weiter wie 
oben. 

Und jetzt kommt die ASCII-Zahl 141 (SHIFT-RETURN) voll zur 
Geltung. Diese Kombination nämlich setzt den Cursor an den 
Anfang der nächsten Zeile, ohne »RETURN« auszuführen. 

Ersten Sie also die 13 in Zeile 10 durch 141, dann läuft's (Bild 

Es gibt übrigens noch eine interessante ASCII-Codezahl, die 
in keiner Tabelle steht, nämlich 131. Sie bedeutet dasselbe wie 
die geSHIFTete STOP-Taste, also die Funktion »LOAD+RUN«. 

Wenn Sie diesen Code mit PRINT CHR$(131) ausprobieren, 
funktioniert er allerdings nicht. Deshalb steht er wohl auch nicht 
in den Tabellen. 

In den Tastaturpuffer gePOKEt bringt er aber seine Wirkung. 

Setzen Sie bitte in Zeile 30 an die Stelle von 67 die Zahl 131 
und anstelle des C erscheint: 

LOAD und PRESS PLAY ON TAPE. Gut, nicht wahr? 

So, jetzt haben wir alle Zutaten für unser Kochrezept 
zusammen. 

Löschen Sie bitte alles bisherige und tippen Sie ein: 

10 PRINT CHR$( 147) 

20 FOR 1=1 TO 5: PRINT I 

30 FOR T=1 TO 500: NEXT T 

40 NEXT I 

Nach Löschen des Bildschirms (Zeile 10) drucken wir zum 
Ausschmücken die Zahlen 1 bis 5 untereinander (Zeile 20 und 
40) und damit es nicht zu schnell geht, bremsen wir mit der Zeile 


30. 



50 

PRINT "LIST* 

(Das Ist natürlich sehr einfach, aber 


jetzt kommt's 

1) 

60 

POKE 198,5 


70 

POKE 631,145: 

POKE 632,145: POKE 633,145 

80 

POKE 634,13 


90 

END 



Nach RUN erscheinen erst die fünf Zahlen, dann wird in einer 
neuen Zeile das Wort LIST geschrieben. Nach END wird erst (wie 
immer) eine Zeile ausgelassen, dann READY gedruckt und 
schließlich springt der Cursor an den Anfang der Zeile darunter. 
Während der Cursor anfangen will, drei Zeilen unter dem Wort 
LIST zu blinken, findet der Computer im Tastaturpuffer 3 den 
ASCII-Code für »Cursor up«. Also geht dieser auch drei Zeilen 
hoch und will jetzt auf dem Wort LIST blinken. 

Damit wird es aber wieder nichts, denn im Puffer steht ja noch 
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der Code für RETURN (13). Das wird ausgeführt und zwar für das 
LIST. Es hat dieselbe Wirkung, als ob Sie direkt LIST tippen und 
danach auf die RETURN-Taste drücken, nämlich das Programm 
wird ausgeLISTet. 

Alle sinnvollen Basic-Befehle, die Sie in der Zeile 50 PRINTen, 
werden durch diese dynamische Manipulation des Cursors 
ausgeführt. 

Versuchen Sie es mit 
50 PRINT-PRINT 16 *55" 

50 PRINT 'LOAD' 

50 PRINT'GOTO 10' 

50 PRINT 'RUN' 

50 PRINT 'RUN 50' 

und falls Sie dieses kleine Programm geSAVEt haben 
50 PRINT'SYS 64824' 

50 PRINT'SYS 64763' 

Die Kunst ist also, mit entsprechenden Codezahlen den Cur¬ 
sor an diejenige Stelle des Bildschirms zu bringen, wo innerhalb 
eines Programms eine geeignete Anweisung gedruckt worden 
Ist. Man kann damit getrennte Programmteile nachladen, mit 
SYS-Befehlen Maschinenprogramme aufrufen, oder gar Pro¬ 
gramme durch sich selbst ändern lassen. 



l- T ST 

i cn r=*r? i 

NT rHP*<63) t 

> < ST > 

R E P. D V . 


n 

Bild 16. CR 

E! c 

ersetzt durch 

RfTf^DY - 

»Cursor down« 



Bild 17. 

Programm (Bild 16) 
in den 

Tastaturpuffer 
gePOKEt 




Adresse 158 und 159 
($9E und $9F) 

Zwischenspeicher bei Kasset¬ 
tenoperationen 

Diese beiden Speicherzellen 
werden von Routinen des 
Betriebssystems verwendet, 
welche bei Kassettenoperatio¬ 
nen die Zeichen überprüfen, ob 
sie richtig sind, und welche bei 
aufgetretenen Fehlern Korrek¬ 
turen durchführen. 

Adresse 160 bis 162 
($A0 bis $A2) 

Interne Uhr für TI und TIS 

Das Basic der Commodore- 
Computer kennt neben der 
Variablen ST (siehe Speicher¬ 
zelle 144) noch zwei weitere 
»reservierte« Variable, nämlich 
TI und Tl$. Beide bieten eine 
interne Uhr, welche aus dem 
Inhalt der Speicherzellen 160 
bis 162 abgeleitet wird. Diese 
drei Zellen funktionieren wie der 
Kilometerzähler eines Autos, 
halt nur mit drei Stellen. 

Die hinterste Stelle ist die 
Zelle 162. Ihr Inhalt wird beim 
Einschalten des Computers auf 
0 gesetzt, dann aber 60mal in 
der Sekunde um 1 erhöht. Das 
erfolgt -urch die automatische 
Interrupt-Routine, welche auch 
die STOP-Taste abfragt und 
noch andere Hausaufgaben 
60mal in der Sekunde ausführt. 
Da ’/ä o = 0,01667 ist, zählt also 
die Zelle 162 in 0,01667 
Sekunden um 1 weiter. Sie kann 
wie alle Speicherzellen maximal 
nur die Zahl 255 enthalten, 
danach kommt wieder eine 0. 
Das heißt aber, daß sie nach 
256 * 0,01667 = 4,267 
Sekunden einmal durchgelau¬ 
fen ist. 

Nach jedem Durchlauf wird 
die davorliegende Speicher¬ 
zelle 161 um 1 erhöht. Sie zählt 
also in 4,267 Sekunden um 1 
weiter und ist nach 256 * 
4,067 = 1 092,26 Sekunden 
oder besser nach 18,2044 
Minuten einmal durchgelaufen. 
Nach dem Kilometerzähler-Prin¬ 
zip wird nach jedem Durchlauf 
von 161 der Inhalt der davorlie¬ 
genden Zelle 160 um 1 erhöht. 

Die Zelle 160 zählt also in 
18,2044 Minuten um 1 weiter 
und ist nach 256 * 18, 2044 = 
4660,34 Minuten, das sind 
77,67 Stunden, einmal durch¬ 
gelaufen. 

Diese Stundenzahl wird aller¬ 
dings niemals erreicht, da das 
Betriebssystem nach Erreichen 
des Wertes für 24 Stunden alle 
drei Zellen wieder auf 0 zurück¬ 


setzt. Wir werden das gleich 
nachprüfen. 

Zuerst aber wollen wir uns 
den dreizeiligen Zähler an¬ 
schauen: 

10 PRINT PEEK(160); 

PEEK(161);PEEK(162) 

20 GOTO 10 

Nach RUN sehen wir den 
Inhalt der drei Zellen sich ent¬ 
sprechend der oben angegebe¬ 
nen Zeiten verändern. Die Zah¬ 
len sind nicht vorherbestimm¬ 
bar, denn der Zähler ist ja nach 
dem Einschalten des Compu¬ 
ters schon losgelaufen. Er kann 
aber auf 0 gesetzt werden 
durch Einfügen der Zeile 5: 

5 POKE 160,0:POKE 161,0: 

POKE 162,0 

Jetzt beginnt der Zähler 
immer ab 0. Ich habe gerade 
gesagt, daß der Zähler auf 0 
gesetzt wird, wenn er 24 Stun¬ 
den lang gelaufen ist. Der Inhalt 
in den drei Speicherzellen, der 
24 Stunden entspricht, ist nach 
der oben angegebenen Um¬ 
rechnungsart 79-26-0. Diesen 
Wert, oder besser noch ein 
Wert kurz davor, in die Zellen 
160 bis 162 gePOKEt, zeigt 
uns den Nullsetzvorgang. Erset¬ 
zen Sie bitte die obige Zeile 5 
durch eine neue Zeile: 

5 POKE 160,79:P0KE 161,25: 

POKE 162,0 

Nach vier Sekunden Laufzeit 
schalten alle drei Zellen in der 
Tat auf 0 zurück. 

Die Umsetzung der Zahlen 
aus 160 bis 162 in die Variablen 
TI und TIS sowie deren Wir¬ 
kungsweise entnehmen Sie 
bitte dem Texteinschub Nr. 16 
»Die eingebaute Uhr«. 

Abschließend muß eines 
noch warnend erwähnt werden. 
Alle Operationen, welche den 
Interrupt-Vektor verwenden be¬ 
ziehungsweise verändern, stö¬ 
ren oder verzögern die normale 
Interrupt-Routine, die ja den 
Zähler weiterstellt. So zählt der 
Zähler nicht gleichmäßig und die 
daraus abgeleitete Uhr geht 
nicht mehr richtig. Ein Beispiel 
dafür sind alle Ein- und Ausga¬ 
ben über die Datasette, welche 
über einen Interrupt laufen. 


Adresse 163 und 164 
($A3 und $A4) 

Zwischenspeicher 

Diese beiden Speicherzellen 
werden von den Ein- und 
Ausgabe-Routinen des Be¬ 
triebssystems für Kassetten, 
Floppy-Laufwerk und Drucker 
als Zwischenspeicher für alle 
möglichen Werte benutzt. 
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Adresse 165 ($A5) 

Bit-Zähler für Kassetten-Syn- 
chronisierung 

Beim Abspeichern eines Pro¬ 
gramms auf ein Band werden 
vor den eigentlichen Daten 
mehrere Bits zusätzlich gespei¬ 
chert, die beim Einlesen dieses 
Bandes zur Synchronisierung 
dienen, das heißt zum Überein¬ 
stimmen der Geschwindigkeit 
der Datenübertragung. 

Die Speicherzelle 165 wird 
als Zähler dieses Synchron-Bits 
verwendet. 

Adresse 166 ($A6) 

Zähler der bearbeiteten Bytes 
Im Kassetten-Puffer 

Diese Speicherzelle wird als 
Zähler benutzt, welcher angibt, 
wieviele Bytes gerade in den 
Kassetten-Puffer eingeschrie¬ 
ben oder aus ihm ausgelesen 
worden sind. Der Kassetten- 
Puffer besteht aus den Spei¬ 
cherzellen 828 bis 1 019 und 
kann somit 191 Byte aufneh- 
men, was zugleich die höchste 
Zahl ist, welche sinnvollerweise 
in der Zelle 166 stehen kann. 

Nähere Erklärungen und ein 
paar Experimente mit Zelle 166 
finden Sie in dem Texteinschub 
17 »Experimente mit dem Kas¬ 
setten-Puffer«. 

Die meisten der nächsten 20 
Speicherzellen werden bei 
Operationen mit der RS232- 
Schnittstelle, die über den User- 
Port den Computer mit anderen 
Geräten verbindet, eingesetzt. 
Da die Programmierung der 
RS232-Schnittstelle noch an¬ 
dere Speicherzellen benötigt, 
die später an der Reihe sind, 
gehe ich auf die RS232- 
Schnittstelle erst bei der 
Behandlung der Speicherzelle 
659 bis 673 näher ein. 

Adresse 167 ($A7) 

Zwischenspeicher für Kasset- 
ten-Operatlonen und für Ein¬ 
gabe über die RS232-Schnltt- 
stelle 

Diese Speicherzelle wird ver¬ 
wendet, um jedes Bit. welches 
von einem RS232-Kanal über 
den User-Port eingelesen wird, 
zwischenzuspeichern. 

Außerdem verwenden meh¬ 
rere Kassetten-Routinen diese 
Adresse als Zwischenspeicher. 

Adresse 168 ($A8) 

Bitzähler für RS232-Eingabe 
und bei Band-Eln-/Ausgabe 

Die Speicherzelle 168 wird 
als Zähler verwendet, der dies- 

IrtTSfari» 


mal nicht die Bytes, sondern die 
Anzahl der Bits zählt, die sowohl 
über den User-Port als auch 
über den Kassetten-Port gelei¬ 
tet werden. Das dient dem 
Betriebssystem dazu, zu wis¬ 
sen, wann ein volles Wort abge¬ 
arbeitet worden ist. 

Adresse 169 ($A9) 

RS232-Flagge für Startblt-Prü- 
fung 

Ein RS232-Datentransfer 
prüft, ob ein Start-Bit empfan¬ 
gen worden ist. Im positiven Fall 
steht in Zelle 169 die Zahl 144, 
im negativen Fall eine 0. 

Adresse 170 ($AA) 

RS232-Eingabe- und Zwi¬ 
schenspeicher für Kassetten- 
Routinen 

Bei der Speicherzelle 165 
haben wir gesehen, daß ein 
Band Synchronisationsbits ent¬ 
hält. Die Speicherzelle 170 wird 
dabei als Flagge benutzt, die 
angibt, ob ein gelesenes Zei¬ 
chen Synchronisierungs-Bits 
oder ein Datenwort darstellt. 

Die RS232-Routinen verwen¬ 
den Zelle 170 dagegen als Spei¬ 
cher, In welchem die eingelese¬ 
nen Bits zu einem Byte zusam¬ 
mengefaßt werden, bevor sie im 
Eingabepuffer am oberen Ende 
des Programmspeichers abge¬ 
legt werden (siehe auch Spei¬ 
cherzellen 55/56). 

Adresse 171 ($AB) 

Quersummenprüfung und 
Zähler für Band-Header bei 
RS232- und Kassetten-Opera- 
tionen 

Diese Speicherzelle wird vom 
Betriebssystem benutzt, um 
festzustellen, ob während einer 
RS232-Datenübertragung Bits 
verloren gingen. Da derartige 
Prüfungen mit Parity-Bits (Quer¬ 
summenprüfung) des öfteren 
erwähnt werden, gebe ich eine 
kurze Beschreibung des Prüf¬ 
prinzips im Texteinschub 18 
»Fehlererkennung mit Parity- 
Bits«. 

Zusätzlich wird in 171 die 
Länge des Band-Vorspanns bei 
seiner Erzeugung gezählt. 

Adresse 172 und 173 
($AC und $AD) 

Zeiger auf die Anfangsadres¬ 
se für Ein-/Ausgabe, Zwi¬ 
schenspeicher für den Bild¬ 
schirmeditor 

In den Speicherzellen 193 
und 194 steht ein Zeiger, der 
auf die Adresse im Programm¬ 


speicher zeigt, wo das Pro¬ 
gramm beginnt beziehungs¬ 
weise beginnen soll, welches 
abgespeichert beziehungs¬ 
weise geladen werden soll. 

Dieser Zeiger wird am Anfang 
einer Lade- oder Abspeicher- 
Operation in die Zellen 172 und 
173 gebracht, wo er während 
der Operation laufend erhöht 
wird, bis das Ende des Pro¬ 
gramms erreicht ist; dann wird 
er wieder auf seinen ursprüngli¬ 
chen Wert gesetzt. 

Der Zeiger dient außerdem 
noch dem Bildschirmeditor als 
Zwischenspeicher während 
des Scrollens (Hochschieben) 
des Bildschirms und beim Einfü¬ 
gen zusätzlicher Zeilen. 

Dieser Zeiger kann sehr nütz¬ 
lich sein, um Programme entwe¬ 
der schon beim SAVEn oder 
aber erst beim LOADen gezielt 
auf andere als ursprünglich ver¬ 
wendete Speicherbereiche zu 
bringen. Dazu sind aber noch 
einige andere Zellen notwendig, 
bis hin zu dem schon erwähnten 
Zeiger in 193 und 194. 

Adresse 174 und 175 
($AE und $AF) 

Zeiger ?*if die Endadresse für 
Eln-/Ausgabe, Zwischenspei¬ 
cher für den Bildschirmeditor 

Dieser Zeiger ist der Zwilling 
zu 172 und 173, nur zeigt er sei¬ 
nerseits auf die letzte Adresse 
des zu bewegenden 
Programms. 

Adresse 176 und 177 
($B0 und $B1) 

Zeitkonstante 

Der Wert in dieser Speicher¬ 
zelle wird verwendet, um die 
Zeitkonstante zum Lesen vom 
Band in der Zelle 146 einzustel¬ 
len. 

Adresse 178 und 179 
($B2 und $B3) 

Zeiger auf den Kassetten- 
Puffer 

Beim Einschalten des Com¬ 
puters werden diese Speicher¬ 
zellen in Low-/High-Byte-Dar- 
stellung auf die Anfangsadresse 


des Kassetten-Puffers gesetzt. 
Beim VC 20 und C 64 ist dies 
die Adresse 828 ($33C). 

Durch Verbiegen dieses Zei¬ 
gers kann der Kassettenpuffer 
auf beliebige Plätze des Spei¬ 
chers, aber nicht unterhalb der 
Adresse 512 verschoben wer¬ 
den. Das kann durchaus sinnvoll 
sein, um im Kassettenpuffer 
abgelegte Maschinenprogram¬ 
me vor Überschreiben durch 
Kassettenoperationen zu schüt¬ 
zen. 

Adresse 180 ($B4) 

RS232-Blt-Zähler und -Zwi¬ 
schenspeicher für Kassetten- 
Operationen 

Die RS232-Routinen verwen¬ 
den die Speicherzelle 180, um 
die Zahl der übertragenen Bits 
zu zählen, außerdem für Parity- 
Berechnung (siehe Textein¬ 
schub 18) und Stop-Bit-Bear¬ 
beitung. 

Die Lade-Routinen für Kasset¬ 
tenbetrieb benutzen diese Zelle 
als Flagge, die angibt, ob der 
Computer bereit ist, Daten zu 
übernehmen. 

Adresse 181 ($B5) 

RS232-Anzelge für nächstes 
Bit, Flagge für End-of-Tape 

Bei RS232-Operationen ent¬ 
hält die Zelle 181 das jeweils 
nächste Bit, welches übertra¬ 
gen werden soll. Bandoperatio¬ 
nen entnehmen dieser Spei¬ 
cherzelle, welcher Block gerade 
gelesen wird. 

Adresse 182 ($B6) 

Ausgabe-Zwischenspeicher 
für RS232 und Kassette 

Bei Ausgabe von Daten über 
die RS232-Schnittstelle wird 
jedes Byte In seine Einzelteile 
zerlegt, bevor es über den Aus¬ 
gabepuffer seriell übertragen 
wird. Der Ausgabepuffer wird im 
obersten Teil des Programm¬ 
speichers angelegt (siehe auch 
Speicherzellen 55 und 56); die 
genaue Anfangsadresse steht 
in Speicherzelle 248. Auch die 
Ausgabe von Daten auf die Kas¬ 
sette verwendet Zelle 182 als 
Ausgabe-Zwischenspeicher. 


Texteinschub Nr. 16 
Die eingebaute Uhr 

Der VC 20 und der C 64 haben eine interne Uhr eingebaut, 
deren Stand abgefragt, ausgedruckt und somit zur Zeitmessung 
und Programmsteuerung eingesetzt werden kann. 

In der Basic-Befehlsliste der Handbücher finden wir dazu zwei 
Funktionen, TI und Tl$. 

1) TI gibt den Stand des Zählers wieder, der durch die drei Spei- 
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cherzellen 160, 161 und 162 gebildet wird. Dabei ist der Wert 
von TI nichts anderes als die Summierung des Inhalts dieser drei 
Zähler. 

Entsprechend dem dreistelligen Zählerprinzip (siehe 
Beschreibung der Speicherzellen 160 bis 162) ist die Summe: 
TI = Inhalt (162) 

+ Inhalt (161) * 256 
+ Inhalt (160) * 256 * 256 

Mit dem folgenden kleinen Programm können wir das verifizie¬ 
ren: 

10 PRINT TI; 

20 PRINT PEEK(162)+256#PEEK (161)+256#256#PEEK(160) 

30 GOTO 10 

Die beiden Zahlenbänder für TI und die Zählersumme sind 
praktisch identisch. 

2) TIS gibt ebenfalls den Stand des Zählers wieder, aber in einer 
anderen Darstellung. Während TI 60mal in der Sekunde weiter¬ 
zählt, gibt TIS direkt Stunden, Minuten und Sekunden an. 

Den Zusammenhang zwischen TI und Tl$ können Sie am 
besten mit dem folgenden kleinen Programm sehen: 

10 PRINT INT (TI/60); 

20 PRINT TI$ 

30 GOTO 10 

Zeile 10 rechnet TI in Sekunden um. Damit die Zeile nicht mit 
vielen Dezimalstellen volläuft, verwandelt sie das Resultat in eine 
ganze Zahl. Zeile 20 zeigt dazu im Vergleich die sechs Ziffern 
von TIS. 

Das erste, was beim Ablauf des Programms auffällt, ist die 
gleichzeitige Umschaltung beider Zahlenreihen. Die Umrech¬ 
nung von TIS nach TI geht am besten »zu Fuß«. Stoppen Sie den 
Lauf mit der STOP-Taste. Nehmen Sie dann den letzten Wert von 
TIS (rechts). Die ersten beiden Ziffern sind die Stunden, ihr Wert 
wird mit 3 600 multipliziert, um sie in Sekunden umzurechnen. 
Addieren Sie dazu den Wert der mittleren beiden Ziffern (Minu¬ 
ten) multipliziert mit 60, und addieren Sie zu diesem Zwischener¬ 
gebnis die Sekunden (Ziffern ganz rechts). Das Resultat Ist iden¬ 
tisch mit dem letzten Wert von TI. 

Wenn Sie übrigens den Ausdruck für TIS optisch verbessern 
wollen, dann setzen Sie zwischen die Stunden, Minuten und 
Sekunden einen Doppelpunkt. Das wird durch eine String-Mani¬ 
pulation erreicht: 

Print LEFT$(TI$,2) ' : "MID$(TI$,3,2) ' : 'RIGHT$(TI$,2) 
Eine gute Uhr muß sich stellen lassen - bei TIS erreichen wir 
das einfach mit Zuweisen des gewünschten Wertes an die Varia¬ 
ble Tl$. Zum Beispiel stellt 
TI$ = '153000' 

die Uhr auf 15 Uhr 30. Man kann sie dementsprechend auch auf 
0 zurücksetzen, was bei einem Stoppuhr-Betrieb notwendig 
wird. 

TI kann direkt nicht beeinflußt werden, nur über POKEn von 
neuen Werten in die Speicherzellen 160 bis 162 oder durch die 
Zuweisung von Werten an TIS. 

Die eleganteste Methode, TI und TIS auf 0 zu setzen, geht 
beim C 64 und VC 20 mit 
SYS 65499 

Wenn Sie noch das kleine Programm von oben im Rechner 
haben, können Sie es gleich ausprobieren. Geben Sie direkt ein: 
SYS 65499: RUN 

und die Uhr startet von Null an. 

Abschließend möchte ich Ihnen noch zwei kleine Anwen¬ 
dungsbeispiele von TI und TIS mitgeben. Das erste ist ein Koch¬ 
rezept, wie die Laufzeit eines Programms gemessen werden 
kann. Diese Programm-Stoppuhr besteht aus zwei Zeilen. 

Die erste Zeile setzt die Uhr auf 0, das kennen wir schon. 
Die zweite Zeile druckt am Ende des Programms die abgelau¬ 
fene Zeit aus. 

10 TI$ = '000000' 

10000 PRINT TI/60 'SEKUNDEN' 

Das zu messende Programm steht zwischen diesen beiden 
Zeilen. 


Das zweite Beispiel betrifft eine Uhr, die nach einer vorgege¬ 
benen Zeit ein Programm (Spiel) abbricht. Davon zeige ich zwei 
Versionen. Die eine Version ist nach allen Erklärungen von oben 
beinahe trivial: 

10 TIS = '000000' 

1000 IF TI$ > '000700" THEN STOP 

Diese beiden Zeilen setzen die Uhr auf 0 und brechen ein Pro¬ 
gramm nach genau 7 Minuten ab. 

Etwas kniffliger ist der Abbruch (oder Start) mit einer Count- 
down-Uhr. 

10 TIS = '000000' 

20 ZEIT = 300 

30 IF ZEIT-VAL(TIS) <=0 THEN STOP 

40 weiteres Programm 

Die Variable »Zeit« gibt die Dauer des Countdown in Sekun¬ 
den an. Zeile 30 überprüft den Wert von TIS, bis er 300 erreicht 
hat, indem sie den jeweiligen Wert von TIS von der vorgegebe¬ 
nen Zeit subtrahiert. Natürlich müssen in beiden Versionen die 
Prüfzeilen sinnvoll in ein Programm eingebaut werden. Aber das 
möchte ich gern Ihnen überlassen. 




Texteinschub Nr. 17 

Experimente mit dem Kassetten-Puffer 

Die Speicherzellen von 828 bis 1 019 werden als »Kassetten- 
Puffer« bezeichnet. 

Beim Speichern auf eine Kassette wird zuerst der Vorspann 
eines Bandes, der sogenannte »Header«, in diesen Puffer 
gespeichert. Ein Programm wird dann direkt auf das Band 
geschrieben. Eine Datei allerdings läuft zuerst auch in den 
Kassetten-Puffer und von dort erst auf das Band. Sie kennen 
siehe' die charakteristischen Wartezeiten des Kassettenmotors 
beim öAVEn einer Datei. 

Beim Laden von einer Kassette gilt der Unterschied zwischen 
einem Programm und einer Datei genauso, einschließlich der 
Benutzung des Kassetten-Puffers. 

Wir haben gelernt, daß in der Speicherzelle 166 die Zahl der 
Bytes gezählt wird, die in den Puffer geschrieben beziehungs¬ 
weise aus dem Puffer gelesen worden sind. Die Zahl reicht von 

0 bis 191. 

Diese Speicherzelle 166 kann während eines Programms 
abgefragt und auch mit POKE beliebig verändert werden. Was 
dabei herauskommt, ist vordergründig nur eine Spielerei. Aber 
vielleicht kann man die folgenden Experimente auch nutzbrin¬ 
gend einsetzen. 

Zuerst wollen wir die Funktionsweise von 166 erproben. Dazu 
laden wir eine simple Datei auf ein leeres Band, und zwar mit fol¬ 
gendem Programm: 

Programm # 1 

10 OPEN 1,1,1 

20 F0R 1=100 T0 150 

30 PRINT #1,1 

40 NEXT 

50 CL0SE1 

Wir eröffnen eine Datei (ohne Namen) mit der Nummer 1, für 
Kassette (die zweite 1), zum Schreiben (die dritte 1). Nach RUN 
wird der Kassetten-Puffer mit den Zahlen 100 bis 150 in mehre¬ 
ren Schüben gefüllt, wobei jeder Schub einzeln auf das Band 
geschrieben wird. 

Den Zusammenhang zwischen den Datei-Zahlen und dem 
Zähler in 166 zeigt uns das folgende Ausleseprogramm: 
Programm # 2 

10 OPEN 1,1,0 

20 GET #1,X$ 

30 Print X$; 

40 PRINT CHR$ (28) PEEK (166) CHR$ (154); 

50 GOTO 20 

Wir eröffnen wieder eine Datei, diesmal zum Lesen (die O), und 
bringen mit GET # die einzelnen Zeichen hintereinander in den 
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Puffer und dann auf den Bildschirm. Die Zeile 40 druckt nach 
jedem Zeichen in roter Farbe [CHR$(28)J den Zählerstand und 
schaltet dann mit CHR$(154) - beim VC 20 wäre das CHR$(31) 
- wieder auf die Normalfarbe zurück. 

Zuerst muß das Band zurückgespult werden, und dann geht es 
los mit RUN. Nach dem Erscheinen der ersten Zeichen auf dem 
Bildschirm stoppen Sie bitte den Ablauf mit der STOP-Taste. 

Sie sehen jetzt in Rot den Inhalt der Zelle 166, die aufwärts 
zählt, und dazwischen in Blau die Zahlen von 100 aufwärts. Inter¬ 
essant ist, daß durch Zwischenräume für eine 3stellige Zahl 
6 Byte verbraucht werden. 

Fahren Sie mit CONT so lange fort, bis der Kassettenmotor 
anläuft und der nächste Schub auf dem Bildschirm ausgedruckt 
wird. Nach erneutem STOP sehen Sie, daß die roten Zahlen nach 
190 wieder auf 0 zurückspringen. Das war der Moment, wo der 
Kassettenmotor wieder eingeschaltet wurde. 

Diese Erkenntnis verwenden wir für ein Experiment. 

Mit der in das Programm # 2 eingeschobenen Zeile 45 fragen 
wir den Inhalt von 166 ab und beeinflussen damit den Ablauf des 
Programms. Außerdem setzen wir an dieser Abfragestelle den 
Inhalt der Zelle 166 auf den Endwert 191 und zwingen damit den 
Kassettenmotor weiterzulaufen. 

45 IF PEEK(166) = 18 THEN POKE 166,191 
Die Wiederholung des Programms mit zurückgespultem Band 
bringt uns ein neues Ergebnis: 

Sobald der Zähler in 166 die 18 erreicht hat, glaubt das Pro¬ 
gramm, der Kassetten-Puffer wäre bereits ausgelesen, schaltet 
den Kassettenmotor wieder ein und liest den nächsten Zahlen¬ 
block in den Puffer. Wir erhalten jetzt nicht alle Zahlen, die auf 
dem Band stehen, sondern nur Gruppen von 18 Byte, das sind 
ungefähr drei Zahlen. 

Ich sage »ungefähr« mit Absicht, denn mit der Symmetrie 
beziehungsweise mit der richtigen Reihenfolge klappt es nicht 
immer so ganz, da ja die Länge des Kassetten-Puffers nicht 
unbedingt ein ganzzahliges Vielfaches der ausgelesenen Bytes 
ist. Da liegt also ein kleines Problem. 

Dieses Abfragen und Abändem der Speicherzelle 166 geht 
natürlich auch in der anderen Richtung, nämlich beim Abspei¬ 
chern von Zahlen. Nehmen Sie bitte noch mal das Programm 
# 1 her und ändern Sie es wie folgt ab: 

Programm # 1.a 
10 OPEN 1,1,1 

20 FOR 1=100 TO 300 

30 PRINT #1,1 

35 IF PEEK(l66)=18 THEN POKE 166,191 

40 NEXT 

50 CLOSE 1 

Wir haben jetzt die Abfrage der Speicherzelle 166 des Pro¬ 
gramms # 2 von vorhin in das Programm # 1 eingebaut. Spulen 
Sie bitte das Band zurück, und lassen Sie das Programm laufen. 

Nun wollen wir die dadurch neu abgespeicherte Datei ganz 
normal auslesen. Dazu nehmen wir das Programm #2, also 
ohne die Zeile 45. Das sieht dann so aus: 

Programm #2.a 
10 OPEN 1,1,0 

20 GET#1,X$ 

30 PRINT X$; 

40 PRINT CHR$ (28) PEEK(166) CHR$(154); 

50 GOTO 20 

Wir starten es mit RUN, nachdem das Band wieder zurückge¬ 
spult ist. Der Vorgang ist im Prinzip der gleiche wie bei Programm 
#2; halten Sie das Programm bitte auch wieder an, so wie 
vorher. 

Wir sehen aber einen großen Unterschied im Ausdruck. Es 
erscheinen nur die ersten drei Zahlen, 100 bis 102, danach steht 
nichts mehr im ganzen Block, bis der Inhalt von 166 die Endzahl 
190 erreicht hat. Erst danach, nach dem Loslaufen des Kasset¬ 
tenmotors und dem Einlesen des nächsten Schubes, erschei¬ 
nen die nächsten drei Zahlen. 

Schlußfolgerung: 

Durch POKEn der Zahl 191 in die Speicherzelle 166 zu einem 


beliebigen Zeitpunkt können wir sowohl beim Speichern als auch 
beim Einlesen einer Datei dem Computer vorgaukeln, der Kas¬ 
setten-Puffer sei bereits abgearbeitet. Dadurch wird der Kasset¬ 
tenmotor eingeschaltet und der nächste Schub ein- beziehungs¬ 
weise ausgelesen. 


Texteinschub Nr. 18 
Fehlererkennung mit Parity-Bits 

Bei der Datenübertragung zwischen Peripheriegeräten, insbe¬ 
sondere zwischen Datasette und dem Computer, kommt es 
recht häufig vor, daß Fehler auftreten. Diese Fehler haben alle 
möglichen Ursachen, und trotz aller Anstrengungen der Inge¬ 
nieure lassen sie sich leider nicht völlig vermeiden. 

An besonderen Schwachstellen werden daher Maßnahmen 
getroffen, um Fehler wenigstens zu erkennen und Programme 
abzubrechen, bevor größerer Schaden entsteht. Die mißlichen 
»LOAD ERROR«-Meldungen sprechen da eine deutliche 
Spracha 

Die einfachste Art, Fehler zu erkennen - ich sollte genauer 
sagen: einzelne Bitfehler zu erkennen geschieht über soge¬ 
nannte »Parity-Bits«. Die Methode besteht darin, daß zu einem 
Datenwort, zum Beispiel einem Byte, ein zusätzliches Bit hinzu¬ 
gefügt wird, und zwar so, daß die Quersumme immer eine gerade 
oder auch eine ungerade Zahl ergibt. 


Im binären Zahlensystem sieht das so aus: 


DEZ 

BINÄR 

PARITYBIT 

QUERSUMME 

0 

0000 

0 

0 

1 

0001 

1 

0 

2 

0010 

1 

0 

3 

0011 

0 

0 


0100 

1 

0 

Bevor ein 

Non übertragen 

wird, errechnet 

der Sender das 

Parity-Bit und 

fügt es dem Wort als zusätzliches Bit hinzu. Der 

Empfänger, der diese Prüfmethode natürlich auch kennen muß, 


rechnet die Quersumme aus. Wenn sie stimmt, nimmt er das 
Parity-Bit weg und arbeitet mit dem richtigen Wort weiter. Wenn 
die Quersumme nicht stimmt, schlägt er Alarm. 

Sie werden sicher schon bemerkt haben, daß in meinem Bei¬ 
spiel natürlich ein Doppelfehler, nämlich zwei falsche Bits, natür¬ 
lich nicht erkannt werden. Um das zu erreichen, müßte man zwei 
Parity-Bits einführen. 

Sie sehen natürlich auch, wohin das letztlich führt, nämlich zu 
einer Vergrößerung der Wortlänge. Man nennt das auch »Redun¬ 
danz«. vielleicht haben Sie dieses Wort schon einmal gehört. 
Nun, da gibt es für jeden Anwendungsfall ein Optimum, abhängig 
von der Wahrscheinlichkeit, welche Art von Fehlern in welcher 
Häufigkeit auftreten. Im Extremfall gibt es Codiersysteme - zu 
denen die Parity-Bit-Methode auch gehört -, welche in der Lage 
sind, Fehler nicht nur zu erkennen, sondern gleich zu korrigieren. 


Texteinschub Nr. 19 
Files - Geräte - Namen - Nummern 

ln den Handbüchern von Commodore und auch in anderen 
Beschreibungen wird von den Ein- und Ausgabe-Befehlen, wie 
zum Beispiel LOAD, SAVE, OPEN etc., leider ein recht verwirren¬ 
des Bild geboten. Ich beziehe mich dabei auf die hinter diesen 
Befehlen stehenden Ziffern und Namen. 

In der Bezeichnung »File-Name« und »Geräte-Nummer« sind 
sich die Autoren noch weitgehend einig. Daß die dritte Angabe 
hinter den Befehlen aber Sekundär-Adresse, Command, Spei- 
cheradressen-Flag oder gar EOT-Flag genannt wird, muß den 
Computeramateur zwangsläufig verwirren. 
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Da wir im nebenstehenden Kurs gerade die Speicherzellen 
183 bis 188 besprechen, die alle mit diesen Anhängseln der ein¬ 
gangs genannten Befehle Zusammenhängen, ist dies eine gute 
Gelegenheit, etwas Systematik in die Angelegenheit zu bringen. 

Als erstes gebe ich die Bezeichnungen der Befehle aus einem 
Commodore-Buch wieder, bevor die einzelnen Angaben im 
Detail diskutiert werden. 

- LOAD ■File-Name", Geräte-Nr„ Speicheradressen-Flag 

- SAVE "File-Name", Geräte-Nr., EOT-Flag 

- VERIFY "File-Name”, Geräte-Nr., Speicheradressen-Flag 

- OPEN File-Nr., Geräte-Nr., Sekundär-Adresse, "File-Name, Typ, 
Modus" 

- INPUT # File-Nr., Variable 

- GET # File-Nr., Variable 

- CMD File-Nr. 

- CLOSE File-Nr. 

File-Name 

»File« wird normalerweise mit »Datei« übersetzt. 

Einen Datei-Namen gibt es aber nur beim OPEN-Befehl. Bei 
den Befehlen LOAD, SAVE und VERIFY Ist der Name des Pro¬ 
gramms gemeint, der bekanntlich in Gänsefüßchen hinter diesen 
Befehlen steht. Bei Disketten als Pflicht, bei Kassetten als 
Option. Beim OPEN-Befehl steht der Name zwar auch in Gänse¬ 
füßchen, aber nicht direkt hinter dem Befehl, sondern erst an 
vierter Stelle. Auch er kann bei Kassetten-Betrieb, aber auch 
beim Drucker weggelassen werden. 

Bei Disketten-Dateien stehen hinter dem Namen - als sein 
Bestandteil - noch Typ und Modus. Typ bezeichnet die Art der 
Datei (RELative, SEQuential, USeR, PRoGramm), Modus die 
Operation (Read, Write, Append). 

Der File-Name kann bei Disketten auch eine Anweisung an das 
Betriebssystem des Disketten-Laufwerks sein (NEW, 
SCRATCH, RENAME etc). Nähere Erklärungen dazu finden Sie 
im Handbuch des Disketten-Laufwerks. 

Da in 187/188 die Adresse angegeben ist, ab der der Pro¬ 
gramm- beziehungsweise Datei-Name im Speicher steht, kön¬ 
nen wir ihn dort ansehen. 

Geben Sie direkt ein 
LOAD ”1234" 

Nach der RETURN-Taste kommt die übliche Aufforderung der 
Datasette, die wir aber mit der STOP-Taste abwürgen. In 187/188 
steht jetzt die Anfangsadresse »A« des gespeicherten Namens: 
A = PEEK(187)+256*PEEK(188) :PRINT PEEK(A) 

Wir erhalten die Zahl 49, das ist der ASCII-Codewert der Ziffer 
»1«. Durch Erhöhen der Anfangsadresse »A« im PRINT-Befehl um 
jeweils 1 kommen auch die übrigen Zeichen des Namens zum 
Vorschein. 

Die VC 20-Besitzer kennen sicher den Effekt, der entsteht, 
wenn beim SAVE-Befehl vor dem File-Namen, aber innerhalb der 
Gänsefüßchen, eine Farbtaste eingegeben wird. Die FOUND- 
Meldung druckt nämlich den File-Namen in der gewählten Farbe 
aus, was besonders bei Kassetten-Operationen sehr eindrucks¬ 
voll Ist. 

Das Disketten-Laufwerk bietet eine andere Überraschung. Die 
geSHIFTete SPACE-Taste innerhalb des File-Namens erzeugt 
das zweite Gänsefüßchen. 

SAVE'SPIEL 2 (SHIFT-SPACE) SYS 16000”,8 
erscheint in der Directory als: 

'SPIEL 2” SYS 16000 

und kann mit LOAD"SPIEL 2",8 geladen werden. 

Auf diese Weise können Sie in einer gut lesbaren Art Anwei¬ 
sungen in den Namen eines Programms einbauen. Vorsicht ist 
allerdings geboten, wenn Sie die SHIFT-SPACE-Taste vor dem 
File-Namen drücken. Dann wird nämlich der 2. Gänsefuß direkt 
nach dem ersten gesetzt, und der nachfolgende File-Name steht 
außerhalb der Gänsefüße. Ein derartiges Programm ist von 
Uneingeweihten nur sehr schwer zu laden. 

Geräte-Nummer 

Alle an den Computer anschließbaren Peripheriegeräte haben 
eine eigene Nummer, unter welcher sie »angesprochen« werden 
können. Es handelt sich eigentlich um eine Adresse, und in der 


Tat sprechen manche Autoren von der »Primär-Adresse«. In der 
Beschreibung der Speicherzelle 184 sind sie alle zusammen¬ 
gestellt. 

Bei den Befehlen LOAD, SAVE, VERIFY und OPEN steht diese 
Geräte-Nummer als zweite Angabe, vor der ersten Angabe durch 
ein Komma getrennt: 

LOAD"NAME",1.bedeutet "Laden von Datasette" 

LOAD”NAME”,8.bedeutet "Laden von Diskette" 

OPEN 12,4.bedeutet "An den Drucker" 

(Die 12 hinter dem OPEN-Befehl ist eine »File-Nummer«. Sie 
kommt weiter unten an die Reihe.) 

Die Geräte-Nummer kann auch weggelassen werden. Dann 
allerdings nimmt der Computer automatisch an, daß es sich um 
die Datasette handelt. Die Geräte-Nummer steht jeweils in der 
Speicherzelle 186 und kann von dort mit PEEK ausgelesen 
werden. 

Sekundär-Adresse 

Die dritte Angabe hinter LOAD, SAVE und OPEN hat wider¬ 
sprüchliche Namen, wohl deshalb, weil sie abhängig von der 
Gerätenummer verschiedene Aufgaben hat. Von den ganz am 
Anfang schon genannten Varianten gefällt mir »Sekundär-Adres¬ 
se« am besten. 

Tabelle 6 faßt die Funktionen der Sekundär-Adresse 
zusammen. 


Befehl 

Sekun¬ 

där¬ 

adresse 

Funktion 

LOAD 

0 

lädt Programm an den Anfang des Pro¬ 
grammspeichers 


1 

lädt ein Programm absolut, also an die 
Adresse, von der ab es gespeichert 
wurde. 

SAVt 

0 

Normales SAVE, Programm wird bei 
späterem LOAD an den Anfang des 
Programm-Speichers geladen (Basic- 
Programme) 


1 

erzwingt bei späterem LOAD des Pro¬ 
gramms die Speicherung ab der 
Adresse, wo es zur Zeit steht 
(Maschinen-Programme) 


2 

setzt am Programmende auf der Kas¬ 
sette eine »Band-Ende«-Markierung, 
die beim »Überlesen« das Band mit der 
Fehlermeldung »DEVICE NOT PRE¬ 
SENT« stoppt. 


3 

Kombination von 1 und 2 

OPEN 

0 

Daten lesen 

bei 

1 

Daten schreiben 

Kassette 


2 

Daten schreiben mit »Bandendei- 
Markierung 

OPEN 

0 

vom Betriebssystem der Floppy für 

bei 


»Laden« reserviert 

Diskette 

bei 

1 

vom Betriebssystem der Floppy für 

Diskette 


»Speichern« reserviert 


2-14 

reserviert numerierten Daten-Kanal, bis 
zu drei gleichzeitig 


15 

reserviert Kommando-Kanal 
(nähere Angaben zu diesen Sekundär- 
Adressen siehe Floppy-Handbuch) 

OPEN 

0-10 

die Funktionen sind bei den Druckern 

bei 


zum Teil verschieden. Bitte in Drucker- 

Drucker 


Anleitung nachsehen. 


Tabelle 6. Funktionen der Sekundäradressen 
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Sie sehen, die Sekundär-Adressen haben es in sich! Die 
gerade benutzte Sekundär-Adresse steht in der Speicherzelle 
185 und kann mit PEEK von dort ausgelesen werden. 

File-Nummer 

Die File-Nummer, oft auch logische File-Nummer genannt, 
steht als erste Angabe hinter dem OPEN-Befehl und den damit 
verbundenen PRINT #-, INPUT #-, GET #- und CLOSE- 
Befehlen. 

Sie gibt einer zu bearbeitenden Datei eine Nummer, die von 
den nachfolgenden, anderen Befehlen ebenfalls verwendet wer¬ 
den muß, wenn sie sich auf dieselbe Datei beziehen. Auf diese 
Weise können mehrere Dateien nebeneinander bearbeitet wer¬ 
den, und zwar fünf bei Disketten und auf alle Geräte verteilt 
insgesamt zehn. 

File-Nummern dürfen die Werte von 1 bis 255 haben. Bei Wer¬ 
ten über 127 wird bei einem PRINT#-Befehl nach jedem 
RETURN-Zeichen - CHR$(13) - zusätzlich ein ASCII-Code für 
Zeilenvorschub - CHR$(10) - an das Gerät gegeben. Diese 
Eigenschaft kann bei denjenigen Geräten nützlich sein, die nor¬ 
malerweise auf CHR$(13) ohne Zeilenvorschub reagieren (kein 
automatisches Line-Feed). 

Die File-Nummer steht jeweils in der Speicherstelle 184, von 
wo sie mit PEEK ausgelesen werden kann. Zum Beispiel, um 
nachzuprüfen, welches Gerät als letztes angesprochen worden 
ist. 

Abschließend möchte ich nochmals darauf hinweisen, daß in 
den Speicherzellen 183 bis 188 immer die gerade als letzte ver¬ 
wendete Angabe steht. Wir haben aber gesehen, daß der Com¬ 
puter sich maximal zehn File-Nummern mit dazugehörenden 
Geräte-Nummern, Sekundär-Adressen etc merken kann. 

Er tut dies in speziellen Tabellen, die in den Speicherzellen 
601 bis 630 stehen. 

Wir werden uns also noch einmal mit dieser Sache befassen, 
wenn wir bei den entsprechenden Adressen angekommen sind. 


Adresse 183 ($B7) 

Lange des derzeitigen File- 
Namens 

Die LOAD-, SAVE- und VERI- 
FY-Befehle für Disketten verlan¬ 
gen die Angabe eines Pro¬ 
gramm- oder Dateinamens, auf 
Computerdeutsch »File-Name«. 
Nähere Angaben dazu finden 
Sie im Texteinschub Nr. 19 
»Files - Geräte - Namen - Num¬ 
mern«. 

Auch der OPEN-Befehl kann 
einen File-Namen haben. Bei 
Kassettenoperationen kann der 
File-Name weggelassen wer¬ 
den. 

In der Speicherzelle 183 
steht während und nach der 
Verwendung eines der oben 
genannten Befehle eine Zahl, 
die angibt, aus wie vielen Zei¬ 
chen der File-Name besteht. 

Bei Disketten sind File- 
Namen möglich, die aus maxi¬ 
mal 16 Zeichen bestehen. 

Bei Kassetten dagegen sind 
Namenslängen von maximal 
187 Zeichen erlaubt. Allerdings 
werden vom Computer auf dem 
Bildschirm nur 16 Zeichen aus¬ 
gedruckt (siehe dazu den Text¬ 
einschub 20 »Tape-Header«). 

Für die Längenangabe in Zelle 
183 gilt dabei nur die Anzahl 

Göta? 


derjenigen Zeichen, die zwi¬ 
schen den Gänsefüßchen 
stehen. 

Diese Zahl kann nach einer 
Ein-/Ausgabeoperation, auch 
nach einer ungültigen oder 
abgebrochenen, durch PEEK 
(183) ausgelesen werden. 

Ein File-Name wird übrigens 
auch bei einem OPEN-Befehl 
der RS232-Schnittstelle ange¬ 
geben. Dieser Name, der bis zu 
vier Zeichen lang sein kann, 
wird in die Speicherzellen 659 
bis 662 übertragen und gibt 
dort die Übertragungsrate, 
Wortlänge und Parity-Prüfung 
an. 

Adresse 184 ($B8) 

Nummer der derzeitigen Datei 
(File) 

Hinter jedem OPEN-Befehl 
steht eine Zahl, die der durch 
diesen Befehl angefangenen 
Datei zugeordnet wird. Diese 
Datei- oder File-Nummer gilt als 
Referenz für alle anderen Ein- 
und Ausgabebefehle derselben 
Datei. Nähere Angaben dazu 
können Sie dem Texteinschub 
Nr. 19 »Files - Geräte - Namen 
- Nummern« entnehmen. 

Ein OPEN-Befehl ruft die ent¬ 
sprechende Routine des Be¬ 


triebssystems auf, welche die 
File-Nummer in die Speicher¬ 
zelle 184 schreibt. Vor dort kann 
sie mit PEEK(184) ausgelesen 
werden. Geben Sie die folgende 
Zeile direkt ein: 

A=30:0PEN A,3: PRINT PEEK 

(184):CL0SE A 

Um verschiedene File-Num- 
mern auszuprobieren, definie¬ 
ren wir sie als Variable A. Nach 
dem »A« des OPEN-Befehls 
steht die Zahl 3. Damit wird der 
Bildschirm angewählt (siehe 
»Sekundär-Adresse« im schon 
erwähnten Texteinschub). Das 
Anwählen des Bildschirms ver¬ 
meidet eine störende Meldung 
des Betriebssystems. 

Mit RETURN nach der oben¬ 
stehenden Zeile wird der jewei¬ 
lige Wert von A als Inhalt der 
Zelle 184 ausgedruckt. 

Adresse 185 ($B9) 

Derzeitige Sekundär-Adresse 

Die Sekundär-Adresse steht 
als dritte Angabe hinter den Ein- 
und Ausgabe-Befehlen LOAD, 
SAVE, VERIFY und OPEN. Sie 
hat bei den verschiedenen Peri¬ 
pheriegeräten spezielle Funk¬ 
tionen. Diese Funktionen sind 
im Texteinschub 19 näher erläu¬ 
tert. 

Der jeweilige Wert der Se¬ 
kundär-Adresse steht in der 
Speicherzelle 185, allerdings 
um 96 erhöht. Für Sekundär- 
Adressen stehen, über die 
Standardwerte der einzelnen 
Peripheriegeräte hinaus, die 
Zahlen von 0 bis 31 zur Verfü¬ 
gung. Ab 32 fängt in Zelle 185 
wieder der Zyklus ab 0 an. Das 
können wir uns anschauen. Ich 
wähle zur Eröffnung einer Datei 
wieder den Bildschirm als 
»nicht-störendes« Empfangsge¬ 
rät. 

A=15:0PEN 1,3,A:PRINT 
PEEK(185)-96:CLOSE 1 

Durch Verändern des Wertes 
von A können Sie alle Möglich¬ 
keiten durchspielen. 

Adresse 186 ($BA) 

Derzeitige Geräte-Nummer 

Jedes an den Computer 
anschließbare Gerät hat eine 
eigene Nummer, die zusammen 
mit den Ein-/Ausgabe-Befehlen 
LOAD, SAVE, VERIFY und 
OPEN angegeben werden muß. 
Wird keine Nummer angege¬ 
ben, nimmt der Computer auto¬ 
matisch an, daß die Datasette 
gemeint ist. 

Alle von Commodore vorge¬ 
gebenen Geräte-Nummern sind 
in der folgenden Tabelle 5 auf¬ 
gelistet. 


Geräte- angesprochenes 
Nummer Gerät 


0 

Tastatur 

1 

Datasette 

2 

RS232- (User-Port) 
Schnittstelle 

3 

Bildschirm 

4 

Drucker (normal) 

5 

Drucker (zusätzlich) 

8 

Diskelten- 
Laufwerk Nr. 0 

9 

Disketten¬ 
laufwerk Nr. 1 

10. 11 

weitere Diskotten- 
Lautwerke 


Tabelle 5. Von Commodore 
vorgegebene Geräte- 
Nummern 


Die normale Geräte-Nummer 
eines Druckers ist 4, die eines 
Disketten-Laufwerks 8. Die 
zusätzlichen Nummern müssen 
gesondert am betreffenden 
Gerät eingestellt werden. 

Nach der Ausführung eines 
der oben genannten Befehle 
steht die entsprechende 
Geräte-Nummer in der Spei¬ 
cherzelle 186, aus der sie mit 
PEEK(186) ausgelesen werden 
kann. 

Adresse 187 und 188 
($BB und SBC) 

Zeiger auf Adresse des derzei¬ 
tigen Flle-Namens 

Die Bedeutung eines Pro¬ 
gramm- oder Dateinamens - 
normalerweise kurz »File- 
Name« genannt - ist im Textein¬ 
schub Nr. 19 »File - Geräte - 
Namen - Nummern« näher 
beschrieben. In den Speicher¬ 
zellen 187 und 188 steht in der 
Low-/High-Byte-Darstellung ein 
Zeiger auf diejenige Adresse im 
Programm-Speicher, wo dieser 
Name gespeichert Ist. 

Eine Ausnahme ist hier der 
OPEN-Befehl der RS232- 
Schnittstelle. Ihr File-Name wird 
in die Speicherzellen 659 bis 
662 gebracht, wo er verschie¬ 
dene Parameter dieser Schnitt¬ 
stelle steuert. 

Adresse 189 ($BD) 

Zwischenspeicher für RS232- 
Parlty-Prüfung und für Kasset¬ 
tenoperationen 

Die RS232-Routinen benut¬ 
zen diese Speicherzellen als 
Zwischenspeicher für ein Prüf- 
Byte (Parity-Prüfung) bei der 
Ausgabe. Die Parity-Prüfung 
habe ich kurz im Texteinschub 
Nr. 18 erklärt. 

Auch die Kassetten-Routinen 
bedienen sich dieser Speicher¬ 
zelle. Sie verwenden sie als Zwi¬ 
schenspeicher für das gerade 
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gesendete oder empfangene 
Zeichen. 

Adresse 190 ($BE) 

Blockzähler für Kassetten- 
Ein-/Ausgabe 

Das Betriebssystem des 
Computers schreibt bei SAVE 
ein Programm zweimal auf das 
Band der Datasette. Beim 
LOAD-Befehl wird der erste 
Block in den Arbeitsspeicher 
des Computers geladen; der 
zweite - identische - Block wird 
dann mit dem ersten Block Byte 
für Byte verglichen, um Daten¬ 
fehler auf dem nicht immer ganz 
zuverlässigen Bandmaterial zu 
erkennen. 

In der Speicherzelle 190 wird 
dem Betriebssystem angezeigt, 
wie viele Blockteile bei diesem 
Prozeß noch gelesen oder 
gespeichert werden müssen. 
Vom Basic-Programm aus ist 
diese Speicherzelle nicht zu¬ 
gänglich. 

Adresse 191 ($BF) 

Zwischenspeicher für LOAD- 
Operationen vom Band 

Diese Speicherzelle wird 
beim Laden eines Programms 
vom Band dazu benutzt, um Zei¬ 
chen aus einzelnen Bits zusam¬ 
menzusetzen. 

Adresse 192 ($C0) 

Motorsperre der Datasette 

Die Tasten der Datasette wer¬ 
den 60mal in der Sekunde von 
der »Interrupt-Routine« des 
Betriebssystem überprüft, ob 
eine von ihnen gedrückt worden 
ist. Die Speicherzelle 192 spielt 
dabei eine entscheidende Rolle, 
beim C 64 allerdings in einer 
anderen Weise als beim VC 20. 
Wie sie diese Rolle beim C 64 
spielt, ist im Zusammenhang mit 
der Speicherstelle 1 ganz am 
Anfang dieses Kurses beschrie¬ 
ben worden. Ich habe dabei in 
zwei Beispielen gezeigt, wie 
durch Abfrage des vierten Bits 
von Adresse 1 geprüft werden 
kann, ob eine Taste der Data¬ 
sette gedrückt ist und wie der 
Motor durch Setzen und 
Löschen des Bit 5 der Zelle 1 
ein- und ausgeschaltet werden 
kann. Vorausgesetzt, der Inhalt 
der Speicherzelle 192 ist 
ungleich Null und eine Taste der 
Datasette ist gedrückt. 

Nun will ich, wie versprochen, 
denselben Vorgang für den VC 
20 beschreiben. 

Wie Sie sich vielleicht noch 
erinnern, wird die Speicherzelle 
1 beim VC 20 nicht für die 


Steuerung der Ein- und Aus¬ 
gänge des Mikroprozessors 
verwendet. Diese Rolle wird 
beim VC 20 durch zwei Register 
des »Versatile Interface Adap¬ 
ter« (VIA 652 2-A) ausgefüllt. 

Für die Abfrage der Dataset- 
ten-Tasten ist das sechste Bit 
des VIA-Registers 37151 zu¬ 
ständig. Bei gedrückter Taste 
steht es auf 1, sonst auf 0. Ein 
kleines Programm zeigt es 
Ihnen: 

10 X = PEEK(37151) 

20 PRINT X 
30 IF X = 62 THEN 50 
40 GOTO 10 
50 PRINT'TASTE 
GEDRÜCKT' 

Wenn keine Taste gedrückt 
ist, läuft ein Zahlenband mit 126 
ab. Die entsprechende Darstel¬ 
lung als Dualzahl lautet 1111 
1110. Bei einer gedrückten 
Taste steht in 37151 die Zahl 
62, als Dualzahl 0011 1110. 
Wichtig, wie gesagt ist nur das 
zweithöchste Bit. 

Mit der Abfrage der Zeile 30 
springt beim Drücken einer 
Taste das Programm auf die 
Zeile 50 und druckt den Text 
aus. 

Den Motor der Datasette kön¬ 
nen wir mit Hilfe des Registers 
37184 schalten. Wie beim C 64 
gilt auch jetzt, daß dazu die hier 
angesprochene Speicherzelle 
192, auch Interlock-Register 
genannt, eine Zahl größer als 0 
enthält und daß außerdem eine 
Taste der Datasette gedrückt 
ist. Drücken Sie auf PLAY und 
geben Sie direkt ein: 

POKE 192,255 

POKE 37148,251: DER MOTOR 
BLEIBT STEHEN. 

POKE 37148,252: DER MOTOR 
LÄUFT LOS. 

Bestimmend sind hier Bit 2, 3 
und 4. 

Zum Ausschalten muß ledig¬ 
lich Bit 2 auf 1 stehen, zum Ein¬ 
schalten die drei Bits auf 110. 
Jede Zahl, die als Dualzahl diese 
Bedingungen erfüllt, kann dafür 
hergenommen werden. Um 
unabhängig von den anderen 
Bits des Registers 37148 zu 
bleiben, die ja auch ganz 
bestimmte andere Funktionen 
haben, empfiehlt es sich, über 
Boole’sche Verknüpfungen nur 
die wichtigen drei Bits zu verän¬ 
dern. Die beiden POKE-Befehle 
sehen dann so aus: 
Ausschalten: 

POKE 37148,PEEK(37148) OR 2 
Einschalten: 

POKE 37148,PEEK(37148) 

AND 12 


Adresse 193 und 194 
($C1 und $C2) 

Anfangsadresse für Eln-/Aus- 
gabe-Operationen 

In diesen Speicherzellen 
steht In Low-/High-Byte-Dar- 
stellung die Adresse, ab der ein 
Programm gerade geladen oder 
gespeichert wird. Diese Adres¬ 
se wird übrigens von hier auch 
In die Speicherzellen 172 und 
173 gebracht, die wir schon frü¬ 
her besprochen haben. 

Bei LOAD und SAVE auf Band 
steht hier die Anfangsadresse 
des Bandpuffers (828). Im 
Bandpuffer steht allerdings nur 
der sogenannte Bandvorspann 
(auf englisch »Tape Header«), 
während der Hauptteil des Pro¬ 
gramms im Programmspeicher 
ab einer Adresse steht, auf die 
der Zeiger In den Speicherzel¬ 
len 195 und 196 hinweist. 

Adresse 195 und 196 
($C3 und $C4) 

Zeiger auf den Anfang des 
Programms hinter dem Tape 
Header 

Bei jedem LOAD- und SAVE- 
Befehl für Kassetten wird der 
Vorspann (Tape Header), In dem 
Prog-mtyp, Anfangs- und 
Endadresse aufgezeichnet 
sind, im Kassettenpuffer ab 
Adresse 828 gespeichert. Der 
eigentliche Teil des Programms 
steht dann im Programm¬ 
speicher. 

In den Speicherzellen 195 
und 196 steht in der Low-/High- 
Byte-Darstellung diese Adres¬ 
se, ab der das Programm be¬ 
ginnt. Ich habe für alle diejeni¬ 
gen, die mit der Datasette arbei¬ 
ten, im Texteinschub Nr. 20 
»Tape-Header« die Zusammen¬ 
hänge mit einem Beispiel dar¬ 
gestellt. 

Adresse 197 ($C5) 

Tasten-Code der zuletzt 
gedrückten Taste 

Bei der Behandlung der Spei¬ 
cherzelle 145 habe ich Ihnen 
mit Wort und Bild beschrieben, 
wie die Tasten des Computers 
abgefragt werden. Die dabei für 
jede Taste entstehende Dual¬ 
zahl wird in eine Dezimalzahl (0 
bis 63) umgewandelt und zuerst 
in die Speicherzellen 203 be¬ 
ziehungsweise 653 gebracht. 
Zur Umwandlung und Abfrage 
der Zellen 203 und 653 bringe 
ich bei diesen Speicherzellen 
mehr Details. Nach der Prüfung, 
welche Taste gedrückt worden 
ist, wird die Codezahl von 203 in 
die Speicherzelle 197 gebracht 
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und dort »aufgehoben*. Diese 
vermeintliche Verdoppelung 
wird vom Betriebssystem dafür 
gebraucht, um zu erkennen, ob 
die nächste gedrückte Taste mit 
der vorhergehenden identisch 
ist. Ist sie identisch, dann ent¬ 
scheidet der Inhalt der Spei¬ 
cherzelle 650, ob das Zeichen 
dieser Taste mehrfach ausge¬ 
druckt wird. In 650 steht die 
sogenannte Wiederholfunktion. 
Aber Ich will nicht vorgreifen. 
Die Codezahlen der einzelnen 
Tasten werde ich bei der 
Besprechung der Zelle 203 
auflisten. 

Adresse 198 ($C6) 

Anzahl der Zeichen Im Tasta¬ 
turpuffer 

Die Funktion des Tastaturpuf¬ 
fers, zu dem wir bei den Spei¬ 
cherzellen 631 und 640 noch 
kommen werden, habe ich 
bereits in diesem Kurs, und zwar 
im Texteinschub Nr. 15 »Dyna¬ 
mische Tastenabfrage« erklärt. 
Dabei habe ich damals schon 
sozusagen im Vorgriff die Zelle 
198 verwendet. 

In dieser Speicherzelle steht 
die jeweilige Anzahl der Zei¬ 
chen, die im Tastaturpuffer 
gespeichert sind und darauf 
warten, weiterverarbeitet zu 
werden. 

Das folgende kleine Pro¬ 
gramm zeigt es. 

10 GET A$ 

20 PRINT PEEK (198); A$ 

30 FOR J=1 3000: NEXT J 

40 GOTO 10 

Der GET-Befehl holt ein Zei¬ 
chen aus dem Tastaturpuffer - 
sofern eines dort zu finden ist. 
Die Zeile 20 druckt die Anzahl 
der Zeichen im Puffer aus, dane¬ 
ben das erste dieser Zeichen. 
Dann folgt eine Warteschleife, 
die uns erlaubt, ganz schnell ein 
paar Tasten zu drücken. Danach 
springt das Programm an den 
Anfang zurück und arbeitet 
diese eingegebenen Zeichen 
ab. Es ist dabei deutlich zu 
sehen, wie durch den GET- 
Befehl bereits ein Zeichen aus 
dem Puffer genommen und 
dadurch der Inhalt der Zelle 198 
sofort um 1 reduziert wird. 

Der Inhalt der Speicherzelle 
198 kann mit POKE auch verän¬ 
dert werden. 

Eine sinnvolle Anwendung 
dieser Beeinflussung erlaubt 
der nicht gerade sehr populäre 
WAIT-Befehl. 

Ersetzen Sie bitte im obigen 
Programm die Warteschleife der 
Zeile 30 durch: 

30 POKE 198,0: WAIT 198,1 
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Zuerst wird dem Computer 
vorgegaukelt, daß der Tastatur¬ 
puffer leer sei. Durch den WAIT- 
Befehl wartet das Programm 
danach so lange, bis ein Zei¬ 
chen im Tastaturpuffer er¬ 
scheint und springt erst dann 
auf die nächste Zeile 40. 

Wenn Sie nach dem WAIT-Be- 
fehl statt der 1 eine 2 eingeben, 
wartet diese Zeile entspre¬ 


chend auf zwei Tasteneingaben. 
Allerdings wird in der Zeile 20 
dann nur jedes zweite Zeichen 
ausgedruckt. 

Adresse 199 ($C7) 

Flagge für reverse Darstellung 
der Zeichen 

Normalerweise steht in dieser 
Speicherzelle eine 0, was mit 
PRINT PEEK (199) leicht nach¬ 


geprüft werden kann. 

Sobald in der Zelle 199 eine 
andere Zahl als 0 steht, werden 
alle Zeichen in der reversen Dar¬ 
stellung gedruckt. Das Be¬ 
triebssystem des Computers 
erhöht nämlich in diesem Fall 
den jeweiligen Bildschirmcode 
der Zeichen um 128. Ein Blick in 
eine Tabelle der Bildschirm¬ 
codes bestätigt, daß die Codes 


aller reversen Zeichen um 
genau 128 höher sind als die 
der normalen Zeichen. 

Den reversen Modus können 
wir bekanntlich direkt mit der 
Kombination der CTRL- und der 
RVS-ON-Taste oder aber mit 
PRINT CHR$(18) hersteilen. 
Wenn Sie aber versuchen soll¬ 
ten, das direkt einzugeben, um 
dann wieder mit PRINT PEEK 


Texteinschub Nr. 20 
Tape Header 

Wenn ein Programm oder eine Datei auf Band gespeichert 
wird, setzt der Computer vor das Programm einen Vorspann, der 
auf englisch »Tape Header« genannt wird. Da dieser Name weit 
verbreitet ist, will ich ihn hier beibehalten. Der Tape Header 
192 Byte lang. Er enthält alle wichtigen Angaben über das nach¬ 
folgende Programm. 

Beim Laden eines Programms wird der Tape Header im Kas¬ 
settenpuffer gespeichert, für den die Speicherstellen 828 bis 
1019 reserviert sind. Von dort kann der Inhalt des Tape Headers 
gelesen und analysiert werden. 

Bevor wir das versuchen, will ich erst seine Zusammenset¬ 
zung erklären. 

Im ersten Byte steht eine Kennzahl für den Typ des Pro¬ 
gramms. Diese Kennzahl ist abhängig von der Sekundär-Adres- 
se, die beim SAVEn eingegeben worden ist. Die Arten der 
Sekundär-Adressen und ihre Bedeutung sind im Texteinschub 
Nr. 19 »Files - Geräte - Namen - Nummern« genau beschrieben. 
Es gibt Kennzahlen von 1 bis 5. 

In Anlehnung an die Erklärung der Sekundär-Adresse kann 
man die Kennzahl generell dadurch beschreiben, daß ein Pro¬ 
gramm mit Kennzahl 1 immer an den Anfang des zur Verfügung 
stehenden Programm-Speichers geladen wird. Hauptsächlich 
kommt das für Basic-Programme in Frage. 

Eine Kennzahl 3 bewirkt, daß das Programm an diejenige 
Stelle des Programmspeichers geladen wird, wo es vor dem 
SAVEn gestanden hat. Das ist hauptsächlich der Fall bei Pro¬ 
grammen in Maschinensprache. 

In Verbindung mit der Bedeutung der Sekundär-Adresse kann 
man den Zusammenhang, wie Tabelle 7 zeigt, darstellen. 


SakundAr- 

Adresse 

Kennzahl 

Bedeutung 

0. leer 
gerade 

1 

Programm wird ab Anfang des Baslc-Spelchers 
geladen 


2 

Baslc-Programm Datenblock, gelolgt von 191 
Datenbytes 

ungerade 

3 

Programm wird ab Adresse geladen, die In 
829/830 steht 


4 

Kopf für Basic-Programm Datenblöcke, die mit 
GET n etc. eingelesen werden 


6 

logisches Bandende, das Betriebssystem sucht 
keine weiteren Programme 


Tabelle 7. Tape Header Kennziffern 


In Byte 2 und 3 steht in Low-/High-Darstellung die Adresse, ab 
der das Programm im Speicher des Computers stand, als es 
gespeichert wurde. 

In Byte 4 und <5 steht die entsprechende End-Adresse des 
Programms. 

Ab Byte 6 bis Byte 192 steht der Name des Programms. Er darf 
also maximal JÖ J Zeichen lang sein. Bei LOAD werden allerdings 
nur 16 Zeichen auf dem Bildschirm dargestellt. 

Jetzt wollen wir das alles mit einem kleinen Experiment 
überprüfen. 

Schreiben Sie bitte ein kleines Programm, es braucht nicht 


sehr sinnvoll zu sein, wie zum Beispiel: 

10 REM TAPE HEADER 

20 REM TEST PROGRAMM 

Nehmen Sie ein leeres Band und laden das Programm mit 
einem Namen, der länger sein soll als 16 Zeichen, zum Beispiel: 

SAVE 'TEST PROGRAMM FUER INHALT TAPE HEADER" 

Nach Drücken der RECORD- und PLAY-Tasten der Datasette 
meldet der Computer: 

FOUND TEST PROGRAMM FU 

Es werden also nur 16 Zeichen inklusive Leerzeichen 
gedruckt. Sobald das Programm geladen ist, schauen wir im 
Kassettenpuffer nach, was in den ersten fünf Byte steht, danach 
lesen wir die restlichen Byte des Puffers. 

Geben Sie direkt, ohne Zeilennummer, ein: 

FOR 1=0 TO 4: PRINT PEEK (828+1);: NEXT 
Sie erhalten die Zahlen 1 1 8 41 8 (beim VC 20 mit 3-K- 
Spelchererweiterung 1 1 4 41 4) 

Danach geben wir wiederum direkt ein: 

FOR 1*5 TO 192: PRINT CHR$(PEEK(82&fI));: NEXT 
Beim VC 20 geben Sie in der FOR...NEXT-Schleife eine kleine 
Zahl ein, da der Bildschirmspeicher beim VC 20 kleiner ist als 
beim C 64. 

Jetz 1 erscheint der volle Programmname, gefolgt von nicht 
sichtbaio.i Leerstellen. Wenn Sie in der letzten Direkteingabe 
den CHR$-Teil weglassen, dann druckt die Zeile die ASCII- 
Codes aus, und Sie sehen dann die Leerstellen als Zahl 32. 

Diese Resultate habe ich zur besseren Übersicht in Tabelle 8 
dargestellt. 


Adresse 

828 

829 

830 

831 

832 

833 etc. 

Byte Nr. 

1 

2 

3 

4 

5 

6 etc. 

Bedeutung 

Kenn- 

Low- 

High- 

Low- 

High- 

Namen in 


zahl 

Byte 

Byte 

ASCII-Code 

Resultat 

1 

1 

8 

41 

8 

T etc. 

bei C 64 

1 

(2089) 

(2049) 


Resultat 

1 

1 

4 

41 

4 

T etc. 

bei VC 20 


(1066) 

(1026) 



Tabelle 8. Tape Header Bytes 


Die Kennzahl in Byte »1« können Sie dadurch verändern, daß 
Sie dem oben verwendeten SAVE-Direktbefehl nach dem langen 
Namen ein ,1,1 anhängen. Im Ausdruck steht dann die Kennzahl 
»3«. 

Übrigens, wenn Sie in den Speicherzellen 195 und 196 nach¬ 
schauen, finden Sie dort denselben Wert wie in den Zellen 
829/830, so wie die Beschreibung es in der Memory Map 
erklärt. 

Vielleicht fragen Sie jetzt nach dem Nutzen dieser ausführli¬ 
chen Erklärung. Nun, hauptsächlich kann man damit Programme, 
die eigentlich wegen LOAD ERROR nicht mehr ladbar sind, ret¬ 
ten. Oder aber man kann durch Verändern der Zahlen in den 
Bytes 2 bis 5 nachträglich die Adressen ändern, in die das Pro¬ 
gramm geladen wird. Die erste Anwendung werde ich erklären, 
sobald wir zu den Adressen des Kassetten-Puffers selbst 
kommen. 

Das Problem des LOAD oder SAVE mit geänderten Adressen 
ist aber zu umfangreich für einen Texteinschub innerhalb dieses 
Kurses. Es wäre eigentlich einen eigenen kleinen Beitrag wert. 


üi'ar* 
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234367890123456789012345678901234567890 
0 
1 
1 
2 

2 PRINT PEEK<20I) PEEK<202> 

3 2 30 

3 

4 

4 

5 

5 

6 PRINT PEEK<201J PEEKI202) 

6 6 32 

7 
7 
B 
B 

Bild 20. Aufbau einer logi¬ 
schen Zelle beim C 64 


234567890123456789012 

0 

1 

1 

2 

2 

3 

3 PRINTPEEK(201> 

4 3 

4 

5 

5 

6 
6 

7 PRINTPEEK<202) 

7 19 

8 Bild 21. Aufbau einer logl- 

8 sehen Zeile beim VC 20 


(199) nachzuschauen, was jetzt 
in der Speicherzelle 199 steht, 
dann werden Sie Schiffbruch 
erleiden. Das Betriebssystem 
setzt den Inhalt der Zelle 199 
nach einem »Wagenrücklauf«, 
hervorgerufen zum Beispiel 
durch die RETURN-Taste oder 
nach einem PRINT-Befehl, der 
nicht mit einem Komma oder 
Semikolon abgeschlossen ist, 
sogleich auf 0 zurück. Natürlich 
erfolgt das auch durch Drücken 
der CTRL- und RVS-OFFTaste. 

Wir vermeiden die Rückset¬ 
zung durch einen Einzeiler: 
PRINT CHR$( 18) 'AAA' PEEK 
(199) 

Wir erhalten drei reverse As 
und als Inhalt der Zelle 199 auch 
die Zahl 18. Dasselbe Ergebnis 
erhalten wir durch POKEn einer 
Zahl größer als 0 in die Zelle 
199: 

POKE 199,4: PRINT'XX' PEEK 
(199) 

Das Ergebnis beweist, daß 
diese Adresse sehr nützlich 
sein kann, zumal ihre Abfrage 
beziehungsweise Beeinflus¬ 
sung auch innerhalb eines Pro¬ 
gramms erfolgen kann. 

Adresse 200 ($C8) 

Zeiger auf das Ende der ei nge- 
gebenen logischen Zelle 

Eine echte Zeile faßt beim 
C 64 maximal 40 Zeichen, beim 
VC 20 nur 22. 

Eine Zeile mit Anweisungen 
darf beim C 64 insgesamt 80 
Zeichen, beim VC 20 sogar 88 
Zeichen enthalten. Diese »ver¬ 
längerte« Programmzeile nennt 
man »logische Zeile«. 

Der Zeiger in Speicherzelle 
200 gibt dem Betriebssystem 
an, auf welcher Position das 
letzte Zeichen einer eingegebe¬ 
nen logischen Zeile sitzt. 
Löschen Sie den Bildschirm und 
geben Sie direkt irgendwo auf 
dem Bildschirm den Befehl ein: 
PRINT PEEK (200) 

Sie erhalten die Zahl der 
Spalte des letzten Zeichens die¬ 
ses Direkt-Befehls. 

Adresse 201 und 202 
($C9 und $CA) 

Zeiger auf Zeilen- und Spal¬ 
tenposition des letzten Zei¬ 
chens einer Zeile 

Diese beiden Speicherzellen 
werden bei GET und INPÜT ver¬ 
wendet, um die Zeile und Spalte 
des letzten Zeichens einer ein¬ 
gegebenen Zeile festzustellen. 
Die Spalten (in Zelle 201 ange¬ 
geben) zählen von 1 bis 40 (1 
bis 22 beim VC 20). Die Zeilen 

40 


(in Zelle 202 enthalten) zählen 
dagegen in Paaren von 0 bis 12, 
identisch mit der bei Zelle 200 
erläuterten »logischen« Zweier¬ 
zeile. Da dies nicht ganz einsich¬ 
tig Ist, gebe Ich einen Bild¬ 
schirmausschnitt wieder (Bild 
20), der den Sachverhalt ver¬ 
deutlichen soll. 

Der erste Direktbefehl steht in 
der zweiten Zeile, das letzte Zei¬ 
chen in der Spalte 30. Der 
zweite Befehl steht in der ersten 
Sechserzeile. Das heißt also, 
daß die Zeilenangabe dieselbe 
ist, egal, um welchen Teil der 
logischen Zeile es sich handelt. 
Das können Sie leicht nachprü¬ 
fen, indem Sie den ersten 
Direktbefehl eine Zeile höher 
schreiben. Das Resultat ist 
dasselbe. 

Die Unterscheidung, um wel¬ 
che der beiden Zeilenteile es 
sich handelt, wird in den Spei¬ 
cherzellen 217 bis 242 getrof¬ 
fen. 

Beim VC 20 sieht der Bild¬ 
schirmausdruck etwas anders 
aus (Bild 21), auch die Befehls¬ 
eingabe habe ich der Zeilen¬ 
länge wegen verändert. Interes¬ 
sant ist beim VC 20 allerdings, 
daß,dort trotz der Länge der logi¬ 
schen Zeile auch nur Zeilen¬ 
paare verwendet werden, deren 
Länge natürlich auf 22 Spalten 
reduziert ist. 

Adresse 203 ($CB) 

Tastencode der gerade ge¬ 
drückten Taste 

Bei der Speicherzelle 145 
habe ich beschrieben, wie die 
Tasten des Computers abge¬ 
fragt werden. Die dabei für jede 
der 64 Tasten (mit Ausnahme 
der RESTORE- und der SHIFT- 
LOCK-Tasten) entstehende 
Dualzahl wird in eine Dezimal¬ 
zahl (0 bis 63) umgewandelt 
und in der Speicherzelle 203 
gespeichert, einige auch in der 
Zelle 653. Diese Zahl steht 


auch ln Speicherzelle 197, um 
sie mit der vorher gedrückten 
Taste vergleichen zu können. 

Die Codezahlen jeder Taste 
lassen sich mit folgendem Pro¬ 
gramm abfragen: 

10 PRINT PEEK (203) 

20 GOTO 10 

Nach RUN sehen wir ein lau¬ 
fendes Zahlenband, zuerst mit 
der Zahl 64. Das ist die Code¬ 
zahl für »keine Taste gedrückt«. 
Die X-Taste ergibt 23 (26 beim 
VC 20), die W-Taste ergibt 9. 
Auch die Funktionstasten 
haben ihren Tastencode. Fl 
ergib' - 39 beim VC 20) und so 
weiter. 

Nur die Steuertasten CTRL, 
SHIFT, und C= (Commodore- 
Taste) zeigen keine Reaktion. 
Deren Tastencode steht näm¬ 
lich in Speicherzelle 653. Den 
Grund für diesen Separatismus 
erfahren Sie bei der Bespre¬ 
chung dieser Zelle. Hier ist nur 
interessant, daß nicht nur jede 
einzelne dieser drei Tasten 
einen eigenen Code hat, son¬ 
dern auch alle machbaren Kom¬ 
binationen von gleichzeitig 
gedrückten Steuertasten. Um 
das zu sehen, ändern Sie bitte 
die Zeile 10 so ab: 

10 PRINT PEEK (203), 

PEEK(653) 

Tabelle 9 gibt Ihnen die volle 
Übersicht. Wenn Sie sich die 
Mühe machen, die Zahlenrei¬ 
hen der Zelle 203 auf Vollstän¬ 
digkeit zu prüfen, dann werden 
Sie feststellen, daß vier Zahlen 
fehlen. Es sind die Werte, die 
eigentlich den vierSteuertasten 
CTRL, C=, rechte und linke 
SHIFT-Taste zugewiesen sind. 
Aber wie gesagt, sie werden 
gleich nach 653 umgeleitet, 
wobei allerdings kein Unter¬ 
schied mehr zwischen der lin¬ 
ken und rechten SHIFT-Taste 
gemacht wird. 

Einige Anwendungsbeispiele 


der Tastencodes sowie der 
Kombinationen der drei Steuer¬ 
tasten finden Sie im Textein¬ 
schub Nr. 21 »Abfrage der 
Tastencodes«. Wie schon 
erwähnt, haben die RESTORE- 
Taste und die SHIFT-LOCK- 
Taste keinen eigenen Code. 

Die RESTORE-Taste ist über¬ 
haupt nicht an die Tastatur- 
Matrix angeschlossen, sondern 
ist direkt mit der RESTORE- 
Leitung des Computers verbun¬ 
den. Dort löst sie einen soge¬ 
nannten NMI-Interrupt aus. Die 
SHIFT-LOCK-Taste ist lediglich 
eine mechanische Verriegelung 
der SHIFTTaste. 

Adresse 204 ($CC) 

Schalter für Cursor blinken 

Ein Wert größer 0 in dieser 
Speicherzelle schaltet das Blin¬ 
ken des Cursors ab. Diese 
Abschaltung erfolgt durch das 
Betriebssystem immer dann, 
wenn sich Zeichen im Tastatur¬ 
puffer befinden und wenn ein 
Programm ausgeführt wird. 

Im folgenden Beispiel einer 
Eingabe mit dem GET-Befehl, 
bei dem bekannterweise der 
Cursor nicht blinkt, wird demon¬ 
striert, daß durch POKE 204,0 
der Cursor trotzdem blinkt. Das 
kann für selbstgeschriebene 
Eingabe-Routinen interessant 
sein. 

10 PRINT'JA/NEIN?' ; 

20 POKE 204,0 

30 GET A$: IFA$= 

"THEN30 

40 PRINT A$ 

Umgekehrt kann man durch 
POKE 204,1 das Blinken des 
Cursors abschalten. Es bleibt 
dabei allerdings dem Zufall 
überlassen, ob er in der Ein¬ 
oder Aus-Phase abgeschaltet 
wird. Wenn Sie Pech haben, 
dann bleibt der Cursor bewe¬ 
gungslos stehen. 
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TASTE 

C 

64 

VC 

20 

203 

653 

203 

653 

nichts 

61 

0 

64 

0 

Fl 

4 

0 

39 

0 

F3 

5 

0 

47 

0 

F5 

6 

0 

55 

0 

F7 

3 

0 

63 

0 

A 

10 

0 

17 

0 

El 

20 

0 

35 

0 

c 

20 

0 

34 

0 

D 

IG 

0 

10 

0 

E 

14 

0 

49 

0 

F 

21 

0 

42 

0 

G 

26 

0 

19 

0 

H 

29 

0 

43 

0 

i 

33 

0 

12 

0 

j 

34 

0 

20 

0 

K 

37 

0 

44 

0 

L 

42 

0 

21 

0 

M 

36 

0 

36 

0 

N 

39 

0 

28 

0 

□ 

30 

0 

52 

0 

P 

41 

0 

13 

0 

O 

62 

0 

48 

0 

R 

17 

0 

10 

0 

s 

13 

0 

41 

0 

T. 

22 

0 

50 

0 

u 

30 

0 

51 

0 

V 

31 

0 

27 

0 

M 

9 

0 

9 

0 

X 

23 

0 

26 

0 

Y 

25 

0 

1 1 

0 

Z 

12 

0 

33 

0 

1 

56 

0 

0 

0 

2 

59 

0 

56 

0 

3 

8 

0 

1 

0 

4 

n 

0 

57 

0 

5 

16 

0 

2 

0 

6 

19 

0 

58 

0 

7 

24 

0 

3 

0 

G 

27 

0 

59 

0 

9 

32 

0 

4 

e 

0 

35 

0 

60 

0 


TfltSTF - 
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64 

VC 

20 


203 

653 

203 

653 

♦ 

40 

0 

5 

0 

— 

43 

0 

61 

0 

• 

49 

0 

14 

0 

/ 

55 

0 

30 

0 

- 

53 

0 

46 

0 

T 

54 

0 

54 

0 

«- 

57 

0 

8 

0 


44 

0 

37 

0 

t 

45 

0 

45 

0 


47 

0 

29 

0 

* 

50 

0 

22 

0 

e 

48 

0 

6 

0 

• g 

46 

0 

53 

0 

CRSR. 

2 

0 

23 

0 

CRSR 1 

7 

0 

31 

0 

DEL 

0 

0 

7 

0 

HOME 

51 

0 

62 

0 

STOP 

63 

0 

24 

0 

RETURN 

1 

0 

15 

0 

SPACE 

60 

0 

32 

0 

SHIFT 

64 

1 

64 

1 

C- 

64 

2 

64 

2 

CTRL 

64 

4 

64 

4 

SHIFT 

und C» 

64 

3 

64 

3 

SHIFT 

und CTRL 

64 

5 

64 

3 

C= und 

CTRL 

64 

6 

64 

6 

SHIFT 
und C= 

und CTRL 

64 

7 

64 

7 


Tabelle 9. Tabelle aller 
Tasten-Codes. Mit den bei¬ 


den Speicherzellen (203 und 653) lassen sich Insgesamt 476 
Funktionstasten erzeugen 


Adresse 205 ($CD) 

Zähler für Blinkfrequenz des 
Cursors 

Das Blinken des Cursors 
besorgt die Interrupt-Routine. 
60mal in jeder Sekunde unter¬ 
bricht sie den normalen Pro¬ 
grammablauf. Während dieser 
Zeit führt sie mehrere »Haus- 
halt<-Arbeiten durch. So wird 
hier die Tastatur abgefragt und 
das Cursorblinken gesteuert. 

Dazu wird die Zahl 20 in die 
Speicherzelle 205 geschrieben 
und bei jeder Unterbrechung 
dann um 1 reduziert. Wenn die 
Zahl in 205 den Wert 0 erreicht 
hat, wird der Cursor eingeschal¬ 
tet. Nach Adam Riese erfolgt 
das also 60/20 = 3mal pro 
Sekunde. Im Texteinschub Nr. 
22 »Cursor-Spiele oder der 
INPUT-Befehl einmal etwas 
anders« wird mit diesem Zähler 
für die Blinkfrequenz experi¬ 
mentiert. 


Adresse 206 ($CE) 

Bildschirmcode des Zeichens 
unter dem Cursor 

Im Prinzip ist der Cursor 
nichts anderes als das wieder¬ 
holte Drucken eines Zeichens in 


reverser Form, das gerade unter 
dem Cursor steht. Normaler¬ 
weise ist dies das Leerzeichen, 
deshalb sehen wir meistens das 
ausgefüllte Viereck. Fahren Sie 
aber mit dem Cursor auf einen 
Buchstaben, dann erscheint 
dieser wechselweise normal 
und revers. In Speicherzelle 
206 steht jeweils der Bild¬ 
schirmcode des Zeichens unter 
dem Cursor. Geben Sie die fol¬ 
gende Anweisung direkt ein, 
fahren aber noch vor dem 
Drücken der RETURN-Taste mit 
dem Cursor zurück auf eines 
der Zeichen, zum Beispiel auf 
ein P: 

PRINT PEEK(206) 

Nach RETURN erscheint die 
Zahl 16. Das ist also der Bild¬ 
schirmcode des Zeichens, auf 
dem der Cursor saß, als die 
RETURN-Taste gedrückt wurde. 
Sie können das mit allen ande¬ 
ren Zeichen dieser Zeile wie¬ 
derholen. 

Ich kann mir vorstellen, daß 
eine derartige Abfrage in einem 
Programm, welches mit dem 
Bildschirm arbeitet, sinnvoll sein 
kann. Die Speicherzelle 206 
wird allerdings nach jedem Blin¬ 
ken auf den neuesten Stand 
gebracht. 


Texteinschub Nr. 21 
Abfrage der Tastencodes oder 476 
Funktionstasten 

ln der Speicherzelle 203 stehen die Tastencodes der gerade 
gedrückten Taste, insgesamt 64 an der Zahl. Vier davon, die 
Steuertasten CTRL, C= (Commodore-Taste), linke und rechte 
SHIFT-Taste, erscheinen allerdings dort nicht, sondern werden 
sofort In die Speicherzelle 653 umgeleitet. Dort erhalten sie 
(allerdings ln mehrfacher Kombination) insgesamt acht Code¬ 
werte. Die Tabelle der Speicherzelle 203 zeigt alle Werte für den 
C 64 und den VC 20. 

Anfänger der Computerei sitzen oft verzweifelt an dem Pro¬ 
blem, die Funktionstasten der Commodore-Computer zum 
Leben zu erwecken. Nun, wir wissen, daß sie nur über die 
Abfrage ihrer Codewerte eingesetzt werden können. 

Als Codewerte werden normalerweise nur die ASCII-Codes 
genannt. 

Die schon erwähnte Tabelle zeigt jedoch, daß die Funktions¬ 
tasten auch Tastencodes haben. Allerdings gibt uns das nur vier 
Möglichkeiten, entsprechend der Aufschrift für die ungeraden 
Funktionstasten-Zahlen. Um auch F2 bis F8 zu erhalten, 
drücken wir ja immer gleichzeitig die SHIFT-Taste. Das können wir 
bei der Abfrage der Tastencodes natürlich auch machen, indem 
wir uns den Inhalt der Zelle 203 und 653 ansehen. Das folgende 
kleine Programm überprüft, über den Tastaturcode, ob eine der 
acht Funktionstasten gedrückt wurde. 

10 A=PEEK(203) 

20 B=PEEK(653) 

30 IF A=4 AND B=0 THEN PRINT "Fl" 

40 IF A=5 AND B=0 THEN PRINT ' F3 ' 

50 IF A=6 AND B=0 THEN PRINT " F5 * 

60 IF A=3 AND B=0 THEN PRINT "F7" 

70 IF A=4 AND B=1 THEN PRINT "F2" 

8 ” 1 ’ A=5 AND B=1 THEN PRINT ' F4 " 

90 IF A=6 AND B=1 THEN PRINT'F6" 

100 IF A=3 AND B=1 THEN PRINT'F8' 

110 GOTO 10 

Die Codezahlen gelten für den C 64, für den VC 20 müssen 
aus der Tabelle die entsprechenden Werte eingesetzt werden. 

Wenn Sie sich anschauen, was in der Speicherzelle 653 alles 
passiert, dann werden Sie sicher sehen, wie willkürlich die Defi¬ 
nition der geraden Funktionstasten Ist. Statt der Kombination der 
Funktionstasten mit der SHIFT-Taste können wir genausogut die 
CTRL-Taste nehmen, oder die Commodore-Taste oder alle zwei 
oder...oder.J 

Mit den acht Codewerten In Zelle 653 (0 bis 7) der acht mögli¬ 
chen Kombinationen der drei Steuertasten kann jede Funktions¬ 
taste acht Funktionen haben. Das ergibt insgesamt 32 
Funktionstasten und nicht acht, wie die Aufschrift vermuten läßt. 
Einige davon werden in dem kleinen Demo(nstrations)- 
Programm eingesetzt. Zweck des Programms soll das Umschal¬ 
ten auf verschiedene Rahmen- und Hintergrundfarben sein. Für 
den C 64 gilt: 

10 PRINT CHR$( 147) 

20 A=PEEK(203) 

30 B=PEEK(653) 

40 IF A=4 AND B=2 THEN P0KE 53280,6:P0KE 53281,7 
50 IF A=5 AND B=2 THEN P0KE 53280,5:P0KE 53281,2 
60 IF A=6 AND B=2 THEN P0KE 53280,1:P0KE 53281,1 
70 IF A=1 AND B=7 THEN P0KE 53280,3:P0KE 53281,1 
80 GOTO 20 
Für den VC 20 gilt: 

10 PRINT CHR$(147) 

20 A=PEEK(203) 

30 B=PEEK(653) 

40 IF A=4 AND B=2 THEN P0KE 36879,126 
50 IF A=5 AND B=2 THEN P0KE 36879,45 
60 IF A=6 AND B=2 THEN POKE 36879,25 
70 IF A=1 AND B=7 THEN POKE 36879,27 
80 GOTO 20 
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Zelle 40 schaltet mit Fl und C= die Farbkombination 
BLAU/GELB ein. 

Zelle 50 schaltet mit F3 und C= die Farbkombination 
ROT/GRÜN ein. 

Zeile 60 schaltet mit F5 und C= die Farbe Weiß ein. 

Als Spezialität schaltet Zeile 70 in den Normalzustand zurück, 
allerdings mit der seltenen Tastenkombination — (Pfeil links) und 
alle drei Steuertasten (CTRL, SHIFT, C=) gleichzeitig gedrückt. 

Jetzt aber kommt es noch ganz dick! 

Ich habe oben gesagt, daß wir nicht acht, sondern 32 Funk¬ 
tionstasten haben. Die Verwendung der vier Funktionstasten in 
Kombination mit den acht Steuertastencodes in 653 macht es 
möglich. Dasselbe gilt natürlich für jede andere Taste auch! Zeile 
70 im Demo-Programm beweist es. 

Da uns insgesamt 60 Tasten zur Verfügung stehen, können wir 
theoretisch 480 Funktionstasten erzeugen - theoretisch, weil ja 
auch die STOP-Taste eine gültige Taste ist. Diese Taste steht uns 
allerdings nur in den Kombinationen mit der SHIFTTaste zur Ver¬ 
fügung. Ohne SHIFT tut sie ihre Pflicht - sie stoppt. Mit SHIFT 
aber stoppt sie nicht, so daß wir insgesamt 472 mögliche Kombi¬ 
nationen haben - sicher mehr, als Sie je brauchen werden. 

Übrigens, von den Kombinationen sind diejenigen mit der 
CTRL- oder Commodore-Taste in Spielen oder Anwenderpro¬ 
gramme wie Vizawrite oder Programmierhilfen sehr verbreitet. 
Ich kann Ihnen nur empfehlen, diese Art der Tastenabfrage eben¬ 
falls zur Steuerung von Programm-Abläufen einzusetzen. 


Zeile 70 baut die Zeichenkette zusammen. Zeile 50 erlaubt ein 
Drücken der RETURN-Taste, wodurch lediglich die alte Zeichen¬ 
kette mit der neuen Eingabe zusammengebunden wird. Einen 
Aussprung aus der Schleife will ich Ihnen selbst überlassen. Im 
vorliegenden Beispiel geht er nur über die STOP-Taste. 


Texteinschub Nr. 22 
Cursor-Spiele oder der Input-Befehl 
einmal etwas anders 

Die Speicherzellen 204, 205 und 207 haben alle in einer 
bestimmten Weise mit dem Cursor zu tun. Da die Details bei jeder 
dieser Zellen behandelt worden sind, möchte ich hier zusam¬ 
mengefaßt ihren Einsatz an einem kleinen Demo-Programm zei¬ 
gen. Die Idee zu diesem Programm stammt von Russ Davies 
(COMPUTEI Publications). 

Russ Davies geht von der in vielen Leserbriefen geäußerten 
Unzufriedenheit mit dem INPUT-Befehl aus, der nicht beliebig 
lange Zeichenketten zuläßt und sich auch bei versehentlich 
gedrückter RETURN-Taste schlecht benimmt. 

Eine Abhilfe wäre der GET-Befehl, aber der wiederum liefert 
keinen auffordernden Cursor. In diese Marktlücke springt das 
folgende kleine Programm, welches die prinzipiellen Anweisun¬ 
gen zeigt für: 

- Eingabe langer Zeichenketten mit GET 

- blinkender Cursor trotz GET 

- veränderbares Blinken des Cursors 

10 POKE 211,0 

20 POKE 204,0:P0KE 205,5 

30 FOR 1=1 TO 40:NEXT 

40 GET A$ 

50 IF A$=CHR$(13) THEN 100 

60 PRINT A$; 

70 X$=X$+A$ 

80 GOTO 20 

100 POKE 204,0: POKE 211,0 

120 PRINT X$: PRINT:GOTO 20 

Zeile 10 verwendet die Speicherzelle 211. Dieser Befehl, auch 
in Zeile 100, setzt den Cursor auf den Anfang der logischen Zeile 
zurück. Zeile 20 müßte eigentlich klar sein. Der Wert des POKE- 
Befehls für 205 ist interessant. Durch ihn kann die Blinkfrequenz 
des Cursors verändert werden. Bei diesem Programm ergibt der 
Wert 5 zusammen mit der Warteschleife in Zeile 30 eine mäßige 
Blinkfrequenz. Der Wert 1 läßt den Cursor eifrig zappeln. 

Zeile 30, wie gesagt, dient zur Abstimmung der Cursorfre¬ 
quenz, die von der Laufzeit der Programmschleife (20 bis 80) 
abhängt. Trotz des GET-Befehls in Zeile 40 blinkt der Cursor 
wegen der Flaggen in Speicherzellen 207 und 204. 


Adresse 207 ($CF) 

Flagge für Blinkzustand des 
Cursors 

In dieser Speicherzelle wird 
festgehalten, in welcher der bei¬ 
den Blink-Phasen - normal oder 
revers - der Cursor sich gerade 
befindet. Eine 0 bedeutet rever- 
ses Zeichen, eine 1 bedeutet 
ein normales Zeichen. 

Die Abfrage innerhalb eines 
Basic-Programms funktioniert 
nicht. Denn die Interrupt- 
Routine steuert den Phasen¬ 
wechsel. 

Adresse 208 ($D0) 

Flagge für Eingabe von Tasta¬ 
tur oder Bildschirm 

Diese Speicherzelle wird von 
einer Routine des Betriebs¬ 
systems verwendet, die das 
jeweils nächste Zeichen in den 
Arbeitsspeicher holt. Für sie ist 
wichtig zu wissen, von welchem 
EingxU jerät dieses Zeichen 
geholt werden soll. 

Wenn in der Zelle 208 eine 0 
steht, wird damit die Tastatur als 
Eingabegerät bestimmt. Das ist 
der Normalfall, mit dem wir per 
Tastendruck Zeichen auf den 
Bildschirm tippen. Sobald aber 
statt einem Zeichen die RE¬ 
TURN-Taste gedrückt wird, 
ändert sich der Inhalt der Spei¬ 
cherzelle 208. Die oben 
genannte Routine überträgt 
nämlich jetzt den Inhalt der Zelle 
213, in welcher die Länge der 
derzeitigen logischen Zeile 
steht, nach 208. Dann holt sie 
das nächste Zeichen, allerdings 
nicht von der Tastatur, sondern 
vom Bildschirm, und zwar das 
erste Zeichen der gerade abge¬ 
schlossenen logischen Zeile. 
Auf diese Weise gelangen die 
Anweisungen einer Zeile in den 
Arbeitsspeicher, wo sie im 
Direkt-Modus sofort ausge¬ 
führt, im Programm-Modus aber 
gespeichert und erst nach RUN 
ausgeführt werden. 

Den Unterschied zwischen 
»logischer« und »echter« Zeile 
habe ich in dem Texteinschub 
Nr. 23 näher beschrieben. 


Adresse 209 und 210 
($D1 und $D2) 

Zeiger auf den Anfang der 


Bildschirmzeile, auf welcher 
der Cursor gerade steht 

Dieser Zeiger in Low-/High- 
Byte-Darstellung zeigt auf die 
Adresse im Bildschirmspeicher, 
in welcher diejenige Zeile 
beginnt, auf der der Cursor 
gerade steht. Das läßt sich 
leicht nachprüfen durch fol¬ 
gende Programmzeile: 

10PRINT CHR$( 147) PEEK(209) 
PEEK(210) 

Nach RUN wird erst der Bild¬ 
schirm gelöscht, der Cursor in 
die HOME-Position gebracht 
und dann der Inhalt der beiden 
Zellen ausgedruckt. Da dies 
alles in der ersten Zeile passiert, 
sehen wir als Resultat eine 0 
und eine 4. Die beiden Zahlen 
ergeben zusammen die Adres¬ 
se, in der die erste Zeile des 
Bildschirmspeichers beginnt. 
Erweitern Sie die Zeile 10 um 
ein Komma und die Low-/High- 
Byte-Berechnung: 

10 PRINT CHR$( 147) PEEK(209) 
PEEK(210), PEEK(209)+256* 
PEEK(210) 

Jetzt sehen wir als Resultat: 

0 4 1024 

Beim VC 20 erscheinen die 
der verwendeten Speicher¬ 
erweiterung entsprechenden 
Zahlen. Wir können durch einen 
TAB-Befehl den zweiten Teil der 
PRINT-Anweisung in die näch¬ 
ste Zeile schieben und sehen, 
was dann herauskommt: 

20 PRINT PEEK(209) PEEK 
(210),TAB(50) PEEK(209)+ 
256#PEEK(210) 

Das Resultat ist jetzt: 

0 4 1024 

40 4 1104 

Einen entsprechenden Zei¬ 
ger für die Adresse der dazuge¬ 
hörigen Zeile im Farbspeicher 
werden wir in den Speicherzel¬ 
len 243 und 244 antreffen. 
Durch POKEn können wir die 
Cursorposition leider nicht be¬ 
einflussen, aber Abfragen geht, 
wenn es uns interessiert. 

Adresse 211 ($D3) 

Position dos Cursors inner¬ 
halb einer logischen Zeile 

Den Inhalt der Speicherzelle 
211 könnte man auch die Spal¬ 
tenposition des Cursors nen¬ 
nen, wenn es sich nicht um die 
Position in der logischen Zeile 
handelte (siehe Texteinschub 
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Nr. 23). Beim C 64 sind daher 
die Werte von 0 bis 79, beim VC 
20 von 0 bis 87 möglich. 

Diese Speicherzelle zusam¬ 
men mit Zelle 214 wird von den 
Befehlen POS, TAB, SPC und 
vom Komma innerhalb einer 
PRINT-Anweisung verwendet, 
um den Cursor zu positionieren. 
Das können wir auch. Um den 
Cursor auf Platz 5 in der Bild¬ 
schirmzeile 18 zu bringen, 
geben wir folgende Programm¬ 
zeile ein: 

10 POKE 214,17: PRINT: POKE 
211,5: PRINT'C 64" 

Aus innerbetrieblichen Grün¬ 
den muß der Wert, den wir als 
Zeile erzielen wollen, um 1 ver¬ 
ringert in die Zelle 214 gePOKEt 
werden. Mit der Zahl 17 wird 
also der Cursor zuerst auf die 
Zeile 18 gebracht, dann in 
Spalte 5, ab der dann das Wort 
»C 64* gedruckt wird. Auf diese 
Weise erhalten wir einen Befehl, 
der in anderen Basic-Formen 
unter dem Namen PRINT AT 
sehr verbreitet ist, der bei den 
kleinen Commodore-Compu- 
tern aber fehlt. 

Der Vorgang dabei besteht 
darin, daß die Inhalte von 211 
und 214 in das X-Register 
beziehungsweise in das Y- 
Register des Mikroprozessors 
gebracht werden. Von dort kön¬ 
nen die Werte dann von einer 
Routine des Betriebssystems 
abgerufen werden. Das klingt 
alles sehr nach Maschinenspra¬ 
che Aber wir haben Glück, 
denn sowohl die beiden Regi¬ 
ster als auch die besagte Rou¬ 
tine sind von Basic aus 
ansprechbar. Das X-Register 
steht in Speicherzelle 781, das 
Y-Register in Speicherzelle 
782, die Routine beginnt 
sowohl beim C 64 als auch beim 
VC 20 ab der Adresse 58634, 
wo wir sie mit dem SYS-Befehl 
starten können. 

Für unser Beispiel sieht das 
dann so aus: 

10 POKE 781,18:POKE 782,5: 
SYS 58634:PRINT'C64" 

Wir erhalten dasselbe Ergeb¬ 
nis, nur mit dem Unterschied, 
daß die Zeile jetzt wirklich die 
Zeile 18 ist. Mit dieser Methode 
Ist jetzt auch die Zeile 0 
erreichbar. 

Die Speicherzellen 781 und 
782 bieten natürlich noch 
andere Anwendungen, auf die 
wir noch kommen werden. 

Adresse 212 ($D4) 

Flagge für Gansefuß-Modus 

Steht in dieser Speicherzelle 
eine 0, dann befindet sich der 


Computer im Gänsefuß-Modus, 
andere Zahlen bedeuten den 
Normal-Modus. 

Selbst Anfängern ist der Gän¬ 
sefuß-Modus sehr rasch geläu¬ 
fig, bietet er doch die Möglich¬ 
keit, Zeichen mit der PRINT-An¬ 
weisung auszudrucken. Genau¬ 
so bekannt sind aber auch die 
Tücken der Gänsefüße. Die Cur¬ 
sor-Tasten reagieren nicht wie 
gewohnt. Auch die Farbum- 
schaltung und andere Steuerta¬ 
sten zeigen nicht die übliche 
Wirkung, sondern drucken - 
allzu oft unerwartet - ein rever- 
ses Zeichen auf den Bildschirm. 

Eingeschaltet wird der Gän¬ 
sefuß-Modus durch Drücken 
der geSHIFTeten 2-Taste oder 
der geSHIFTeten INST/DEL- 
Taste. Abgeschaltet wird er 
nach jedem 2., 4., 6., also nach 
jeder geradzahligen Wiederho¬ 
lung der Gänsefuß-Taste inner¬ 
halb einer Zeile. Abgeschaltet 
wird er auch durch die 
RETURN-Taste. Das spezielle 
Verhalten der Steuertasten zwi¬ 
schen Gänsefüßen läßt sich für 
faszinierende Effekte ausnut¬ 
zen. 

Leider läßt sich der Inhalt der 
Speicherzelle 212 und damit 
der Status des Gänsefuß- 
Modus von Basic aus nicht be¬ 
einflussen. Doch in Maschinen¬ 
sprache unter Verwendung der 
Interrupt-Routine geht es, und 
einige Vorschläge zum Abschal¬ 
ten des Gänsefuß-Modus per 
Tastendruck sind schon veröf¬ 
fentlicht worden. 

Adresse 213 ($D5) 

Länge der Bildschirmzeile 

Im Texteinschub 23 »Logi¬ 
sche und echte Zeilen« ist der 
Unterschied zwischen den bei¬ 
den Zeilentypen beschrieben. 

Der Inhalt dieser Speicher¬ 
zelle entscheidet, wann eine 
neue logische Zeile begonnen 
werden muß oder ob die lau¬ 
fende logische Zeile um eine 
weitere echte Zeile erweitert 
werden kann. Der Bildschirm- 
Editor verwendet diese Spei¬ 
cherzelle, um komplette logi¬ 
sche Zeilen nach oben zu ver¬ 
schieben. Einige andere Routi¬ 
nen benutzen den Wert der 
Zelle bei der Rückwärtsüber¬ 
prüfung einer Zeile, bei der die 
Endposition der Zeile bekannt 
sein muß. Schließlich bezieht 
noch die bereits behandelte 
Speicherzelle 200 ihren Wert 
von der Zelle 213. 

Adresse 214 ($D6) 

Nummer der echten Zelle, auf 


der sich der Cursor gerade 
befindet 

Diese Speicherzelle ist zu¬ 
sammen mit der Speicherzelle 
211 beschrieben. 

Adresse 215 ($D7) 

Zwischenspeicher für den 
ASCII-Codewert der zuletzt 
gedrückten Taste 

Bei der Tastaturabfrage wer¬ 
den die Tastencodes (siehe 
Speicherzelle 203) in ASCII- 
Codewerte umgewandelt und in 
den Tastaturpuffer gebracht. 
Die Speicherzelle 215 dient 
dabei als Zwischenspeicher. 
Kassettenoperationen spei¬ 
chern hier auch Prüfsummen 
ab. 

Adresse 216 ($D8) 

Flagge für INSERT-Modus 

Immer wenn die geSHIFTete 
INST/DEL-Taste gedrückt wird, 
um in einer Zeile Platz für ein 
einzufügendes Zeichen zu 
schaffen, wird der Inhalt der 
Speicherzelle 216 um 1 erhöht. 
Dann wird die Zeile ab dem Frei¬ 
platz nach rechts verschoben, 
der Inhalt der Speicherzelle 213 
erhöht und schließlich der ent¬ 
sprechende Wert der Link- 
Tabellv. Jr Bildschirmzeilen ab 
Speicherzelle 217 bis 242 
verändert. 

Bei jedem Tippen eines Zei¬ 
chens in den freigewordenen 
Platz wird der Inhalt von 216 
wieder um 1 reduziert, bis mit 
der 0 das Ende des INSERT- 
Modus angezeigt wird. 

Adresse 217 bis 242 
($D9 bis $F2) 

Llnk-Tabellen der Bildschirm- 
Zeilen 

Diese 26 Speicherzellen ent¬ 
halten Angaben für jede Zeile 
des Bildschirms. Jedes dieser 
Bytes hat zwei Funktionen. 

Die ersten 4 Bit, also Bit 0 bis 
3, geben an, in welchem Spei¬ 
cherblock, man sagt auch 
»page* dazu, das erste Byte der 
betreffenden Bildschirmzeile 
sich befindet. Diese Angabe 
wird zur Berechnung des Zei¬ 
gers in der Speicherzelle 209 
(siehe dort) verwendet. Sie ist in 
dieser Form notwendig, da der 
Bildschirmspeicher beim C 64 
überall in den Arbeitsspeicher 
gelegt werden kann. Um die 
Position eines Zeichens oder 
besser gesagt eines Bytes 
davon im Bildschirmspeicher 
genau positionieren zu können, 
braucht das Betriebssystem 
noch die genaue Lage innerhalb 


des Speicherblocks. Das Low- 
Byte dieser Zahl steht in einer 
Tabelle ab Speicherzelle 60656 
(60952 beim VC 20). Das High- 
Byte wird berechnet, und zwar 
durch Addition des Wertes der 
Speicherzelle 648 mit dem 
Wert der ersten 4 Bit in Tabelle 
217 bis 242. Der Wert in Zelle 
648 gibt die Anfangsadresse 
des Bildschirmspeichers an. 

Der zweite Teil jedes Bytes in 
der Tabelle 217 bis 242 hat eine 
andere Funktion. Wie im Text¬ 
einschub 23 beschrieben ist, 
kann eine logische Zeile aus ein 
oder zwei (beim VC 20 sogar bis 
zu 4) echten Zeilen bestehen. 
Das Betriebssystem braucht 
daher eine Angabe, welche ech¬ 
ten Zeilen zu einer logischen 
Zeile verbunden sind. Dieses 
Verbinden heißt auf englisch 
»link«, daher heißt der Speicher¬ 
bereich 217 bis 242 »Link- 
Tabelle«. Diese oberen 4 Bit zei¬ 
gen mit irgendeinem Wert über 
0 an, daß die betreffende echte 
Zeile die erste oder einzige 
einer logischen Zeile ist. Sind 
die 4 Bit alle 0, dann ist sie eine 
2., 3. und 4. Zeile der logischen 
Zeile. 

Adresse 243 und 244 
($F3 und $F4) 

Zeiger auf Position des Cur¬ 
sors im Farbspeicher 

Jedem Platz im Bildschirm¬ 
speicher, in dem der Codewert 
für ein Zeichen steht, entspricht 
ein Platz im Farbspeicher, in 
dem der Codewert für die Farbe 
dieses Zeichens steht. 

Das heißt, daß den Bild¬ 
schirm-Werten der Speicherzel¬ 
len 209 bis 210 die 
Farbspeicher-Werte der Zellen 
243 bis 244 entsprechen. Die¬ 
ser Zeiger bestimmt also in der 
Low-/High-Byte-Darstellung die 
Adresse im Farbspeicher, ab 
der die echte Zeile beginnt, auf 
welcher der Cursor gerade 
steht. 

Adresse 245 und 246 
($F5 und $F6) 

Vektor auf die Decodiertabelle 
für ASCII-Codewerte der 
Tasten 

Bei der Diskussion der Spei¬ 
cherzelle 145 habe ich Ihnen 
gezeigt, wie das Drücken einer 
der 64 Tasten entschlüsselt 
wird. 

Ein entschlüsselter Wert wird 
in Speicherzelle 145 zwischen¬ 
gespeichert und gelangt dann 
als Tastencode in die Speicher¬ 
zelle 203. Bei der Besprechung 
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der Zelle 203 wurden die Code- 
werte aufgelistet. Ich habe auch 
darauf hingewiesen, daß die 
Codes der drei Steuertasten 
SHIFT, CTRL und COMMO- 
DORE (C=) separat In der Zelle 
653 stehen. 

Diese Tastencodes sind sehr 
nützlich und vom Basic aus gut 
verwendbar. Im Verkehr mit 
anderen Geräten sind sie aber 
nicht einsetzbar, da sie keiner 
internationalen Norm ent¬ 
sprechen. 

Eine derartige Norm bietet der 
sogenannte ASCII-Code. Des¬ 
halb rechnet, wo notwendig, 
das Betriebssystem die Tasten¬ 
codes in den ASCII-Code um. 

Dazu stehen im Speicher des 
Betriebssystems vier Tabellen 
(Bild 22), die die ASCII-Code- 
werte enthalten (in Klammern 
für den VC 20). 


Die Umrechnung der Tasten¬ 
codes in ASCII-Code ist sehr 
einfach. Der Tastencode wird 
lediglich zu der Anfangsadresse 
der entsprechenden Tabelle 
hinzugezählt. Die Summe ergibt 
die Adresse in der Tabelle, in der 
der ASCII-Code für das 
gedrückte Zeichen steht. 

Als Beispiel nehmen wir das 
normale »G«, sein Tastencode 
ist 26 (VC 20:19). Zur Anfangs¬ 
adresse der normalen Tabelle 
60289 (60510) dazugezählt, 
ergibt das 60315 (60529). 
Schauen wir in dieser Speicher¬ 
zelle nach: 

PRINT PEEK (60315): REH 
BEIM C 64 

PRINT PEEK (60529): REM 
BEIM VC 20 

In beiden Fällen erhalten wir 
die Zahl 71. Ein Blick in die 
ASCII-Tabelle des Handbuchs 
bestätigt die Richtigkeit. 

Der Vektor in den vorliegen¬ 
den Speicherzellen 245/246 
zeigt auf den Anfang der vier 
Tabellen, und zwar in Abhängig¬ 
keit davon, ob und welche der 
drei Steuertasten zusammen 
mit einer anderen Taste 
gedrückt worden ist. Auch das 
kann ich Ihnen zeigen mit einer 
Programmzeile, welche ein Zah¬ 
lenband erzeugt, dessen Zahl 
durch die Steuertasten verän¬ 
dert wird. Sie werden sehen, es 
sind die Anfangsadressen der 
vier Tabellen. 

10 PRINT PEEK(245)+256* 

PEEK(246):GOTO 10 


Adresse 247 und 248 
($F7 und $F8) 

Zeiger auf den Anfang des 
RS232-Eingabe-Puffers 

Immer wenn ein Kanal mit der 
Geräte-Nummer 2 (User-Port) 
eröffnet wird, werden am obe¬ 
ren Ende des Arbeitsspeichers 
zwei Pufferspeicher mit je 256 
Byte reserviert (siehe auch die 
Beschreibung der Speicherzel¬ 
len 55 bis 56). 

Der Zeiger, der In Low-/High- 
Byte-Darstellung In 247 und 
248 steht, zeigt auf die 
Anfangsadresse desjenigen 
Pufferspeichers, der die ankom- 
menden Zeichen aufnimmt. 

Ein Programm, das den User- 
Port benutzen will, sollte übri¬ 
gens immer zuerst die Geräte¬ 
nummer 2 eröffnen, bevor 
irgendwelche Variable definiert 


werden. Dadurch wird vermie¬ 
den, daß die Puffer-Reservie¬ 
rung eventuelle Variablenwerte 
überschreibt, die bereits in die¬ 
sen 512 Byte angesiedelt wor¬ 
den sind. 

Adresse 249 und 250 
($F9 und $FA) 

Zeiger auf den Anfang des 
RS232-Ausgabe-Puffers 

Dieser Zeiger ist der Zwilling 
zu dem in den Zellen 247/248 
stehenden Zeiger, diesmal aber 
für den Ausgabe-Puffer. 

Adresse 251 bis 254 
($FB bis $FE) 

Vier freie Byte für Anwender¬ 
programme 

Diese 4 Byte sind frei, und da 
sie von Basic nicht gestört 
beziehungsweise verändert 
werden, eignen sie sich in idea¬ 
ler Weise für Flaggen, Register 
oder andere Zwischenspeicher. 

Adresse 255 ($FF) 

Zwischenspeicher für Daten 
bei der Umwandlung von 
Gleitkomma-Zahlen in ASCII- 
Werte 

Der Titel dieser Speicherzelle 
sagt schon alles. 

Jetzt haben wir eine erste 
Etappe unserer Wanderung 
durch die Speicherlandschaft 
hinter uns, nämlich den Bereich 
von 0 bis 255. Man nennt ihn 
»Zero-Page«, und er hat in der 


Maschinensprache-Program¬ 
mierung beziehungsweise in 
der Adressierung eine spezielle 
Bedeutung. Für Basic-Program- 
mierer ist diese Seiteneinteilung 


bedeutungslos, und wir werden 
deshalb unbeirrt als nächstes 
mit einem größeren Speicher¬ 
block, nämlich von 256 bis 511 
weitermachen. 


ab 

60289 

(60510): 

normale Zeichen 

ab 

60354 

(60575): 

Zeichen mit SHIFT 

ab 

60419 

(60640): 

Zeichen mit C= 

ab 

60536 

(60835): 

Zeichen mit CTRL 


Bild 22. Anfangsadressen der 4 Tabellen 


Texteinschub Nr. 23 
Logische und echte Zeilen 

Der Bildschirm des C 64 besteht aus 25 Zeilen. Jede davon 
enthält 40 Stellen. Der VC 20 hat 23 Zeilen mit je 22 Stellen. 
Diese Zeilen des Bildschirms werden »echte Zeilen« genannt. 

Der Begriff »Zeile« kommt auch beim Programmieren vor. Dort 
bedeutet er die Reihe der Anweisungen und Befehle, die hinter 
einer Zeilennummer zusammengefaßt sind. Diese Programmzei¬ 
len werden »logische Zellen« genannt. 

Wozu dient dieser Unterschied? 

Der Grund ist ganz einfach der, daß sehr oft eine Programm¬ 
zeile mehr Zeichen enthält, als in eine (echte) Zeile des Bild¬ 
schirms hineinpassen. Besonders Texte innerhalb einer 
PRINT-Anweisung sind häufig viel länger als 40 Zeichen, erst 
recht als die 22 Zeichen beim VC 20. 

Deshalb läßt es das Betriebssystem des Computers zu, daß in 
einer (logischen) Programmzeile mehr als 40 (22) Zeichen 
stehen. 

Beim C 64 kann eine logische Zeile aus zwei echten Zeilen 
bestehen mit einer maximalen Zeichenzahl von 80. 

Der VC 20 erlaubt in einer logischen Zeile maximal 88 Zeichen 
und braucht dazu 4 echte Zeilen. 

Dieses Zusammenfügen von mehreren echten Zeilen zu einer 
logischen Zeile hat natürlich Konsequenzen. Am meisten davon 
betroffen ist der Editor, das ist der Teil des Betriebssystems, der 
uns erlaubt, auf dem Bildschirm zu arbeiten, zu ändern, zu 
lösc ha n und fertige Zeilen mit RETURN einzugeben. 

Ich will Ihnen nur ein paar Beispiele nennen, die Sie sicher ken¬ 
nen, um Ihnen den Zusammenhang zu zeigen. 

Wenn Sie ein Programm LISTen und anschließend in einer Pro¬ 
grammzeile weitere Befehle anhängen, die über die Länge der 
echten Zeile hinausgehen, brauchen Sie selbst keinen Platz 
dafür schaffen. Das macht der Editor automatisch, indem er alle 
folgenden Zeilen auf dem Bildschirm nach unten schiebt. Für die 
Einsteiger unter Ihnen führe ich das vor. Geben Sie bitte die fol¬ 
genden drei Zeilen ein (mit RETURN abschließen): 

10 PRINT 'A' 

20 PRINT 'B' 

30 PRINT 'C* 

Jetzt fahren Sie mit dem Cursor auf die Zeile 20 und schreiben 
statt einem B so viele davon, bis Sie damit in die nächste Zeile 
kommen. 

Sie werden sehen, daß dabei die Zeile 30 von selbst eins wei¬ 
ter nach unten rutscht. Erst wenn Sie in die 3. Zeile (5. Zeile beim 
VC 20) kommen, wird die Zeile 30 überschrieben. Sie sind dann 
über das Ende der logischen Zeile geraten. Eine überfüllte logi¬ 
sche Zeile kann nicht eingegeben werden, die RETURN-Taste 
wird mit SYNTAX ERROR quittiert beziehungsweise 
abgewiesen. 

Es gibt allerdings eine Methode, wie Sie in einem Listing eines 
Programms Programmzeilen, also logische Zeilen mit mehr als 
80 (88) Zeichen erhalten können. 

Fast alle Basic-Befehle können in abgekürzter Form eingetippt 
werden, am häufigsten wird sicher das Fragezeichen ? anstelle 
von PRINT eingesetzt. Sie können nun eine logische Zeile mit 
Abkürzungen und durch Weglassen von allen Zwischenräumen 
bis zum erlaubten Maximum füllen. Natürlich wird diese volle 
Zeile nach RETURN akzeptiert. Beim ausLISTen aber schreibt 
der Editor alle Befehle, auch die abgekürzten, in voller Länge aus 
und fügt nach der Zeilennummer einen Zwischenraum ein. Eine 
solche Zeile hat dann mehr echte Zeilen als erlaubt, intern aber 
hat sie die richtige Länge. 

Einen Nachteil hat diese Komprimierung doch. In einer sol¬ 
chen »überlangen« logischen Zeile kann nicht mehr korrigiert 
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werden, es sei denn, sie wird vorher auf eine erlaubte Länge 
reduziert. 

Abschließend möchte ich noch kurz erwähnen, daß zur Steue¬ 
rung dieser Zusammenhänge zwischen echten und logischen 
Zellen die Speicherzellen 200, 201, 202, 209, 211, 213, 214, 
217 bis 242 und 658 eine entsprechende Rolle spielen, die im 
einzelnen in der Memory Map beschrieben ist. 


Adresse 256 bis 266 
($100 bis $10A) 

Arbeitsspeicher für Umwand¬ 
lung von Gleitkomma-Zahlen 
In ASCII-Werte, auch FAC 
(Fließkomma-Akku) genannt 

Diese 11 Byte werden von 
einer Routine des Betriebssy¬ 
stems verwendet, um Werte 
zwischenzuspeichern, die bei 
der Umwandlung von Gleit¬ 
komma-Zahlen in ASCII-Werte 
oder in Werte der Funktion Tl$ 
anfallen. Eine andere Routine 
verwendet den Bereich, um Zei¬ 
chenketten (Strings) zu 
untersuchen. 


Adresse 256 bis 318 
($100 bis $13E) 

Arbeitsspeicher für Fehler bei 
der Eingabe vom Band 

Alle Daten, die auf Band 
gespeichert werden, stehen 
dort doppelt in zwei identischen 
Blöcken hintereinander. Beim 
Laden in den Computer werden 
beide Blöcke miteinander ver¬ 
glichen, um Fehler zu finden 
und, wo möglich, sie zu kor¬ 
rigieren. 

In diesem Bereich, der übri¬ 
gens auch bei der Speicherzelle 
256 anfängt, aber 63 Byte in 
Anspruch nimmt, werden beim 
Laden Angaben gespeichert, 
aus denen das Betriebssystem 
erkennen kann, welche Bytes 
fehlerhaft sind. 


Adresse 319 bis 511 
($13F bis $1FF) 

Stapelspeicher (Stack) des 
Mikroprozessors 

Die Funktionsweise eines 
Stapelspeichers, auf englisch 
»stack«, ist im Texteinschub Nr. 
24 erklärt. 

Der Stapelspeicher hat prinzi¬ 
piell die Aufgabe, bei allen 
Sprüngen oder Unterbrechun¬ 
gen innerhalb eines normalen 
Programmablaufs alle Adressen 
und Daten so zu speichern, daß 
am Ende der Unterbrechung 
das Programm wieder fortge¬ 
setzt werden kann. 

Derartige Unterbrechungen 


und Sprünge treten in Basic bei 
den Befehlen GOSUB-RETURN 
und FOR-NEXT auf, genauso 
wie bei vielen Routinen des 
Betriebssystems. In Maschi¬ 
nensprache gibt es dafür sogar 
eigene Befehle. Heimo Ponnath 
hat sie alle in seinem Assem¬ 
blerkurs (Folge 7 und 8 im 64'er, 
Ausgabe 2/85 und 3/85) sehr 
ausführlich beschrieben. 

Da uns hier Basic mehr inter¬ 
essiert, gebe ich Ihnen nur kurz 
an, was im Stapel gespeichert 
wird, da der Stapelspeicher nur 
in Maschinensprache manipu¬ 
liert werden kann. 

Jeder FOR-TO-NEXT-Befehl 
belegt 18 Byte im Stapel¬ 
speicher. 

Im ersten Byte steht als Ken¬ 
nung die Zahl 129. Byte 2 und 3 
enthalten in Low/High-Byte-Dar- 
stellung einen Zeiger auf die 
Adresse, in der die durch 
das FOR definierte Schleifen- 
Variable (zum Beispiel K in FOR 
K=0 TO 3) gespeichert ist. Die 
nächsten 5 Byte sind für den 
Gleitkommawert von STEP 
reserviert, das Byte danach für 
das Vorzeichen von STEP. 
Danach folgt der Gleitkomma¬ 
wert von TO mit 5 Byte und in 
zwei weiteren Byte die Nummer 
derjenigen Zeile, auf die nach 
dem NEXT zurückgesprungen 
wird. In den letzten beiden 
Bytes schließlich steht ein Zei¬ 
ger auf der Adresse, in der das 
nächste Zeichen steht, welches 
nach Beendigung der FOR-TO- 
NEXT-Schleife gelesen werden 
muß. 

Ein GOSUB-Befehl belegt 5 
Byte im Stapelspeicher. Byte 1 
enthält die Kennzahl 141. Ihr fol¬ 
gen zwei Byte für die Nummer 
der Zeile, auf die nach RETURN 
zurückgesprungen wird. Die 
letzten beiden Byte enthalten 
wieder einen Zeiger auf die 
Adresse, in der das nächste Zei¬ 
chen steht, mit dem nach 
RETURN das Programm fortge¬ 
setzt wird. 

Der Basic-Befehl DEF zur 
freien Definition von Funktionen 
belegt ebenfalls 5 Byte im Sta¬ 
pelspeicher. Ihre Verteilung ist 
dieselbe wie von GOSUB, mit 
dem einzigen Unterschied, daß 
statt der ersten Kennzahl ir¬ 


gendein anderer Wert verwen¬ 
det wird, der aber keine Bedeu¬ 
tung hat. 

Wenn so viele FOR...NEXT- 
Schleifen oder GOSUB- 
Sprünge gleichzeitig im Pro¬ 
gramm Vorkommen, daß der 
Stapelspeicher voll wird, steigt 
das Programm mit OUT OF 
MEMORY aus. 

Adresse 512 bis 600 
($200 bis $258) 

Eingabespeicher von Basic 

Wenn Sie Zeichen, zum Bei¬ 
spiel einen Befehl oder eine 
Programmzeile, eingeben und 
mit der RETURN-Taste abschlie¬ 
ßen, werden diese Zeichen in 
diesen Speicherbereich von 
512 bis 600 gebracht. Seine 
Länge von 89 Byte entspricht 
der Länge einer logischen Zeile 
des VC 20 (88 Zeichen) plus 
einer Abschluß-Null. Die logi¬ 
sche Zeilenlänge des C 64 von 
80 Zeichen füllt den Speicher¬ 
bereich nicht ganz aus, aber das 
Betriebssystem des C 64 ist 
gegenüber dem des VC 20 
nicht geändert worden. 

Nach RETURN sucht der 
Computer diesen Eingabespei¬ 
cher nach Gänsefüßen, Komma 
und ria^.i der Zahl für Zeilen¬ 
ende ab. Dann wandelt der 
Computer die gespeicherten 
Zeichen In für ihn lesbare Zahlen 
(Token und ASCII-Werte) um 
und fügt am Anhang die Zeilen¬ 
nummer und die Anschluß- 
Adresse (Link) der nächsten 
Zeile, am Ende die Abschluß- 
Null hinzu. Wenn eine Zeilen¬ 
nummer vorhanden Ist, kommt 
alles in den Programmspeicher. 
Fehlt sie jedoch, dann wird die 
ganze Anweisung sofort ausge¬ 
führt (Direktmodus). 

Eine detaillierte Beschrei¬ 
bung dieses Eingabe- und 
Umwandlungsvorganges gab 
Christoph Sauer im 3. Teil sei¬ 
nes Kurses »Der gläserne VC 
20« im 64'er, Ausgabe 11/84 ab 
Seite 126. 

Dieser Speicherbereich wird 
auch von den Befehlen INPUT 
und GET benutzt, um die Ein¬ 
gabedaten aufzunehmen. Das 
erklärt übrigens, warum diese 
beiden Befehle nur innerhalb 
einer Programmzeile und nicht 
im Direktmodus verwendet wer¬ 
den können. Sie verwenden ja 
denselben Speicherplatz, der 
vom Direkt-(Eingabe-)Modus 
verwendet wird. 

Es erklärt außerdem, warum 
eine von INPUT geforderte Ein¬ 
gabe maximal 88 Zeichen lang 
sein darf. 


Adresse 601 bis 630 
($259 bis $276) 

Tabellen für File-Nummern, 
Geräte-Nummern und Sekun- 
där-Adressen von eröffneten 
Dateien 

Bei der Besprechung der 
Speicherzelle 152 habe ich die¬ 
sen Speicherbereich bereits 
erwähnt. Ich habe damals 
gesagt und gezeigt, daß die 
Zelle 152 über die Anzahl der 
eröffneten Dateien (Files) Buch 
führt, die Tabellen in 601 bis 
630 dagegen darüber, welche 
File-Nummern, Geräte-Num¬ 
mern und Sekundär-Adressen 
jeder eröffneten Datei zugeord¬ 
net sind. Wer sich nochmals 
über diese Begriffe orientieren 
will, den verweise ich auf die 
Beschreibung im Texteinschub 
Nr. 19. 

Der Speicherbereich von 601 
bis 630 ist in drei Blöcke 
unterteilt. 

601 bis 610 Tabelle der 

Flle-Nummern 
611 bis 620 Tabelle der 

Geräte-Nummern 

621 bis 630 Tabelle der Sekundär- 
Adressen 

In jeder Tabelle können also 
maximal 10 Byte stehen. Sie 
haben folgende Zusammenset¬ 
zung: 

Die drei Angaben über eine 
eröffnete Datei stehen in den 
Tabellen jeweils am gleichen 
Platz. Wenn also die Datei Num¬ 
mer 5 als dritte Datei eröffnet 
worden ist, steht eine 5 in Zelle 
603, ihre Gerätenummer in 
Zelle 613, die Sekundär- 
Adresse entsprechend in Zelle 
623. 

Immer wenn eine neue Datei 
eröffnet wird, kommen diese 
Angaben auf die nächsten 
Plätze der Tabellen, und der 
Inhalt der Speicherzelle 152 
wird um 1 erhöht. Wird dagegen 
eine Datei geschlossen, dann 
rücken alle Angaben dahinter 
um eine Stelle zurück. 

In diesen Tabellen kann nach¬ 
gesehen werden, mit welchen 
Parametern Dateien eröffnet 
worden sind. Eine sehr interes¬ 
sante Anwendung, die Eintra¬ 
gung in den Tabellen durch 
POKE zu verändern, wurde von 
Rügheimer und Spanik veröf¬ 
fentlicht, weicheich hier zitieren 
möchte. 

Eine Änderung der Filenum- 
mern in Tabelle 601 bis 610 ist 
nicht empfehlenswert, um Ver¬ 
wechslungen zu vermeiden. 

Mit dem folgenden kleinen 
Programm, welches bei einer 
eröffneten Datei die Geräte- 
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Nummer in Tabelle 611 bis 620 
ändert, kann zwischen einem 
Drucker mit Geräte-Nummer 4 
und einem Plotter mit Geräte- 
Nummer 6 umgeschaltet 
werden. 

10 OPEN 4,4,0 

20 POKE 611,6: PRINT #4, 

'PLOTTER" 

30 POKE 611,4: PRINT#4, 

'DRUCKER' 

Ähnliches ist mit den Sekun- 
där-Adressen möglich. Dabei 
muß man allerdings wissen, daß 
die Sekundär-Adressen nicht so 
wie sie sind in der Tabelle 621 
bis 630 gespeichert werden, 
sondern mit »OR 96* verknüpft. 
Dasselbe müssen wir auch 
machen: 

10 OPEN 3.4,0 
20 POKE 621,0 OR 96: 

PRINT#3, 'GRAFIKKODUS' 

30 POKE 621,7 OR 96: 

PRINT #3, 'TEXTKODUS' 

Mit dieser Methode können 
Sie sich das öffnen und Schlie¬ 
ßen vieler Dateien ersparen. 

Adresse 631 bis 640 
($277 bis $280) 

Tastaturpuffer 

Bei der Behandlung der Spei¬ 
cherzelle 203 habe ich die 
Codezahlen beschrieben, die 
beim Drücken einer der 64 
Tasten erzeugt werden. Bei den 
Speicherzellen 245 und 246 
haben wir gesehen, wie aus die¬ 
sen Tastencodes der ASCII- 
Code für die verschiedenen Zei¬ 
chen einer Taste umgerechnet 
wird. 

Hier nun im Tastaturpuffer 
landen diese umgerechneten 
ASCII-Werte. Wenn Sie den 
Kurs schon länger verfolgen, ist 
Ihnen das auch nicht neu, denn 
ich habe die Wirkungsweise des 
Tastaturpuffers bei der »Dyna¬ 
mischen Tastenabfrage« (Text¬ 
einschub Nr. 15) sozusagen im 
Vorgriff, ausführlich erklärt. 

Zur Erinnerung sei gesagt, 
daß im Tastaturpuffer alle Zei¬ 
chen zwischengespeichert 
werden, die während eines Pro¬ 
grammlaufes eingegeben und 
nicht sofort vom Betriebssy¬ 
stem verarbeitet werden kön¬ 
nen. Sobald der Computer sich 
Im Eingabe-Modus befindet — 
nach Programmende oder bei 
INPUT- und GET-Befehlen, wer¬ 
den die Zeichen in der Reihen¬ 
folge ihrer Eingabe herausge¬ 
holt und verwendet. 

Der Tastaturpuffer ist 10 Byte 
lang. In Speicherzelle 198 
steht, wieviele Zeichen sich im 
Puffer befinden. 

Als Ergänzung zu den Bei¬ 
spielen der dynamischen 


Tastenabfrage zeige ich Ihnen 
im Texteinschub Nr. 25 »Pro¬ 
gramme, die sich selbst verän¬ 
dern« noch ein paar andere 
Anwendungen. 

Adresse 641 und 642 
($281 und $282) 

Zeiger auf den Anfang des 
Programmspeichers 

Wenn der Computer einge¬ 
schaltet wird oder wenn mit 
einer Reset-Taste beziehungs¬ 
weise mit SYS58260 (VC 20: 
SYS 58232) ein Kaltstart aus¬ 
gelöst wird, setzt das Betriebs¬ 
system diesen Zeiger auf die 
Adresse des ersten freien 
RAM-Speicherplatzes. 

Beim C 64 ist dies die 
Adresse 2048. Beim VC 20 
hängt sie von der Speicher¬ 
erweiterung ab; ohne Erwei¬ 
terung ist es 4096, mit einer 
3-KByte-Erweiterung dagegen 
1024, mit 8 KByte oder mehr ist 
die Adresse 4608. 

Dieser Zeiger wird vom Basic- 
Übersetzer in die Speicherzelle 
43 übernommen und nur von 
dort weiterverwendet. 

Adresse 643 und 644 
($283 und $284) 

Zeiger auf das Ende des Pro¬ 
grammspeichers 

Dieser Zeiger Ist der Zwilling 
zu dem anderen Zeiger in 641 
und 642. Er wird vom Betriebs¬ 
system auf die Adresse gesetzt, 
welche beim Kaltstart bezie¬ 
hungsweise der dabei durchge¬ 
führten Prüfung des Speichers 
den letzten verfügbaren RAM- 
Speicherplatz angibt. Beim 
C 64 ist diese Adresse norma¬ 
lerweise 40960 (SA000), beim 
VC 20 ohne Erweiterung 7680. 

Dieser Zeiger wird vom Basic- 
Übersetzer in die Speicherzelle 
55 übernommen. 

Adresse 645 ($285) 

Flagge für Ein- und Ausschal¬ 
ten der IEEE-488-Karte 

Diese Speicherzelle ist etwas 
mysteriös. Sie kommt im ganzen 
Betriebssystem nur ein einziges 
Mal zum Einsatz, und zwar als 
Flagge beim Betrieb der soge¬ 
nannten IEEE-488-lnterface- 
Karte. Wenn diese Flagge 
gesetzt ist, wartet der Compu¬ 
ter 64 Millisekunden lang, ob er 
von einem angeschlossenen 
Gerät angesprochen wird. 
Wenn kein Signal kommt, gibt er 
ein Fehlersignal aus. 

Zahlen in der Zelle 645, die 
kleiner als 128 sind, bedeuten 
Flagge gesetzt, größer als 128 
löschen sie die Flagge. 


Texteinschub Nr. 24 
Der Stapelspeicher 

Der normale Speicher, mit dem wir es immer zu tun haben, in 
den wir Zahlen hineinPOKEn oder herausPEEKen, ist aufgebaut 
wie eine Häuserreihe, in der jedes Haus seine eigene Adresse 
hat. Wer etwas in einem bestimmten Haus abliefern oder aus ihm 
abholen will, muß seine genaue Adresse kennen. 

Dieses Speicherprinzip heißt RAM, das ist die Abkürzung für 
»Random Access Memory« oder auf deutsch »Speicher mit wahl¬ 
freiem Zugriff«. 

Der Stapelspeicher funktioniert anders. Jetzt werden die Häu¬ 
ser der Reihe nach aufgesucht, wie mit einer Postwurfsendung 
oder durch die Müllabfuhr. Ein besserer Vergleich ist der Akten¬ 
stapel. Die erste Akte wird auf den Tisch gelegt, alle nachfolgen¬ 
den kommen obendrauf. 

Beim Aktenstapel sieht man eine weitere Eigenschaft. Wenn 
er nämlich abgearbeitet wird, kommt die Akte als erste an die 
Reihe, die als letzte auf den Stapel gelegt worden ist. 

Dieses Speicherprinzip heißt »LIFO«; das ist eine Abkürzung 
aus dem Englischen und heißt »Last In First Out«. 

Der Benutzer eines Stapelspeichers braucht sich nicht mehr 
um Adressen zu kümmern. Er kennt nur noch den Platz, wo der 
Speicher Daten annimmt beziehungsweise abgibt. Was der 
Benutzer sich allerdings merken muß, Ist die Reihenfolge seiner 
Ein- und Ausgaben. 

Stapelspeicher werden von mehreren Programmiersprachen 
verwendet; am bekanntesten ist wohl FORTH, auch die HP- 
(Hewlett-Packard-)Taschenrechner arbeiten nach diesem 
Prinzip. 

Unsere Computer verwenden das Prinzip des Stapelspei¬ 
chers nur bei Programmschleifen, Unterprogramm-Sprüngen, ja 
überhaupt bei jeder Unterbrechung des normalen Programm- 
ablp' - s. Das Problem dabei ist nämlich, sich alle Adressen und 
Angaben des Programms so zu merken, daß nach dem Ende der 
Unterbrechung das alte Programm lückenlos fortgesetzt werden 
kann. 

Der Stapel belegt den Speicherbereich von 256 bis 511. Die¬ 
ser Bereich unterscheidet sich in seinem Aufbau natürlich über¬ 
haupt nicht von den anderen Speicherbereichen. Es wäre auch 
viel zu aufwendig, alle Daten des Stapelspeichers bei jeder Eln- 
und Ausgabe rumzuschieben. Diese Aufgabe besorgt ein Regi¬ 
ster des Mikroprozessors, das »Stapelzeiger« genannt wird und 
das wie ein Zähler arbeitet. 

Am Anfang steht in diesem Stapelzeiger die oberste Adresse 
511. Bei jeder Eingabe wird die Zahl um 1 erniedrigt, bei jeder 
Ausgabe um 1 erhöht. Da der Stapelzeiger, wie jedes andere 
Register auch, eine Länge von 8 Bit hat, kann er nur die Dualzah¬ 
len von 00000000 bis 11111111 darstellen. Um daraus 256 
beziehungweise 511 zu formen, stellt der Mikroprozessor sozu¬ 
sagen fest verdrahtet ein neuntes Bit, immer auf 1, der Zahl 
voran. 


Texteinschub Nr. 25 
Programme, die sich selbst verändern 

Der Speicherbereich von 631 bis 640 beherbergt den Tasta¬ 
turpuffer. Schon im Texteinschub Nr. 15 habe ich Ihnen Anwen¬ 
dungen gezeigt, die den Tastaturpuffer elnsetzen und in der Lite¬ 
ratur unter dem Namen »Dynamische Tastenabfrage« bekannt 
sind. 

Hinter diesem natürlich aus dem Englischen übersetzten 
Begriff verbirgt sich die Möglichkeit, innerhalb eines Programms 
bestimmte Werte in den Puffer zu speichern, die dort so lange 
aufgehoben bleiben, bis das Programm - aus welchen Gründen 
auch immer - beendet wird. Dann erst werden die Werte hervor¬ 
geholt. Wenn es Zeichen sind, dann erscheinen sie auf dem Bild- 
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schirm. Wenn es Steuerlasten sind (zum Beispiel RETURN), 
werden sie ausgeführt. 

Ich will hier nicht die schon gezeigten Anwendungen wieder¬ 
holen, sondern sie lediglich um ein paar weitere Tricks ergänzen. 
Zeile in ein Programm einfügen 
Die folgende Methode ermöglicht die Veränderung eines Pro¬ 
gramms durch sich selbst. Genauer gesagt, man kann damit Pro¬ 
grammzeilen einfügen. Nehmen wir an, Sie haben folgendes Teil¬ 
programm: 

150 PRINT * BITTE TASTE DRUECKEN ' 

160 GET A$:IF A$= " 'THEN 160 
170 IFA$ <> 'E" THEN 150 

180 END 

500 PRINT 'NAECHSTER TEIL* 

Die ersten vier Zeilen warten so lange, bis die E-Taste gedrückt 
wird, dann bleibt das Programm mit READY stehen. 

Wir wollen nun eine zusätzliche Zeile 165 durch das Programm 
einfügen lassen, mit der nicht beendet, sondern durch Drücken 
der Q-Taste auf die Zeile 500 gesprungen wird. Das erreichen 
wir durch folgende Zeilen: 

172 PRINT CHR?(l47) 

174 PRINT '165 IF A$=CHR$(81) THEN 500' 

176 PRINT 'GOTO 150' 

178 P0KE 631,19: P0KE 632,13: P0KE 633,13: 
P0KE634,13:P0KE 198,4 

Wenn jetzt die E-Taste gedrückt wird, löscht Zeile 172 den 
Bildschirm, Zeile 174 druckt in die zweite Bildschirmzeile die 
neue Programmzeile 165 und Zeile 176 darunter ohne Zeilen¬ 
nummer den Direktbefehl GOTO 150. In den Tastaturpuffer wer¬ 
den nacheinander die Werte für HOME und dreimal RETURN 
eingegeben und die Anzahl der Zeichen im Puffer auf 4 
begrenzt. 

Sobald nun das Programm den Befehl END in Zeile 180 
erreicht, werden die Werte im Puffer ausgeführt, das heißt der 
Cursor geht nach HOME, das erste RETURN setzt ihn ohne Wir¬ 
kung eine Zeile tiefer, wo er auf der neu ausgedruckten Zeile 165 
steht. Das zweite RETURN gibt diese Zeile ein, das dritte 
RETURN führt den Direktbefehl GOTO 150 aus, wodurch das 
Programm weiterläuft, so wie vorher. Der einzige Unterschied ist 
nur, daß jetzt eine neue Zeile im Programm steht, nämlich die 
Zelle 165. 

Prüfen Sie es mit STOP und LIST. 

Zeile verändern oder löschen 

Diese Methode habe ich von S. Leemon übernommen. Sie 
funktioniert im Prinzip genauso wie das Einfügen von Zeilen. Die 
Programmzeilen sind durch REMs erklärt. Probieren Sie es aus. 
10 REM — DIESE ZEILE WIRD GELÖSCHT 

20 PRINT CHR$( 147):PRINT:PRINT 

30 PRINT'60 LIST' 

40 PRINT '10' 

50 PRINT 'GOTO 70' CHR?(19) 

60 FOR 1=631 TO 633:POKE I,13:NEXT: POKE 198,3:END 

70 REM — DIESE ZEILE WIRD ERSETZT 

Diese Verfahren, Zeilen eines Programms während des Laufs 
eines Programms zu ändern, haben sicher für einfache Pro¬ 
gramme keine große Bedeutung. Ich bin aber fest davon über¬ 
zeugt, daß sie bei Programmen, die selbst lernen können, eine 
wichtige Rolle spielen. Nur habe ich hier jetzt noch kein gutes 
Demonstrationsbeispiel. 

Einfügen einer Funktion 

Sie alle kennen die Möglichkeit, Funktionen mit dem Basic- 
Befehl DEF FN.. selbst zu definieren. Vielleicht haben Sie auch 
schon einmal frustriert die Versuche abgebrochen, eine Funk¬ 
tion während des Programmablaufs per INPUT eingeben zu kön¬ 
nen. Das funktioniert nämlich nicht. 

Mit dem Tastaturpuffer aber geht es, und zwar sehr elegant. 
Der vergebliche Versuch sieht so aus: 

150 PRINT "FORMEL EINGEBEN' 

160 INPUT "F(X)=';A$ 


250 DEF FNA(X)=A$ 

260 PRINT FNA(9) 

270 GOTO 150 

Der STRING A$, in Zeile 160 eingegeben, wird von Zeile 250 
nicht übernommen. Zeile 250 können Sie so nicht verwenden, 
also löschen Sie sie bitte 

Sie können diese Zeile aber vom Programm einfügen lassen: 
170 PRINT CHR$( 147):PRINT: PRINT 

180 PRINT '250 DEF FNA(X)=';A$ 

190 PRINT'GOTO 240' 

200 PRINT CHR$( 19) 

210 POKE 631,13: POKE 632,13: POKE 198,2: END 


240 REM — FORMELBERECHNUNG — 

Wenn Sie nicht genau nachvollziehen können, was da vorgeht, 
empfehle ich Ihnen, an das Ende der Zeile 200 noch ein END 
anzuhängen. Dann bleibt das Programm dort stehen, Sie sehen, 
wo der Cursor steht und können dann die Wirkung der Zeile 210 
in Ruhe überlegen. 

Eine weitere interessante Anwendung habe ich bei Russ 
Davies gefunden. Sie ermöglicht, Routinen des Betriebssy¬ 
stems oder Basic-Übersetzers aus dem Speicher auszulesen 
und als DATA-Anweisungen in Ihr Basic-Programm einzufügen. 

Einfügen von DATA-Zellen 

Die Aufgabe besteht darin, aus einem auszuwählenden Spei¬ 
cherbereich - dort, wo die in Frage kommende Routine sitzt - 
den Maschinencode herauszuPEEKen und mit der inzwischen 
bekannten Methode in eine DATA-Zeile einzufügen. Ich gehe 
schrittweise vor: 

20 PRINT CHR$( 147): PRINT: PRINT 
30 PRINT'5555 DATA'; 

50 T)R A=0 TO 3 

60 rRINT PEEK(A) ", ";:NEXT 

70 PRINT CHR$(19) 

80 POKE 631, 13: POKE 632,13: POKE 198,2: END 

Mit Zeilen 20 und 30 wird der DATA-Zeile die Zeilennummer 
5555 gegeben und in die 3. Bildschirmzeile geschrieben. Zeile 
50 liest die Speicherzellen 0 bis 3 aus und druckt sie, mit einem 
Komma versehen, dahinter. Zeilen 70 und 80 geben diese Zeile 
in gewohnter Manier in das Programm ein. 

Ganz richtig ist das noch nicht, da nach LIST die Zelle 5555 
zu viele Zwischenräume hat 
5555 DATA 47 , 55 , 0 , 170 , 

Zur Korrektur müssen wir Zeile 60 erweitern: 

60 PRINT MID?(STR?(PEEK( A)),2) ", ';:NEXT 
STR$() wandelt den durch PEEK ausgelesenen Zahlenwert in 
einen String um. MID$(...,2) schneidet die Leerstellen weg. 

Mr. Davies hat daraus eine komfortable kleine Routine gebaut, 
die den auszulesenden Speicherbereich und die gewünschte 
Zeilennummer der ersten DATA-Zeile abfragt, dafür sorgt, daß 
eine DATA-Zeile nicht länger als 16 Zeichen wird, in diesem Fall 
die nächste Zeilennummer um 10 erhöht und sogar das letzte 
Komma in jeder DATA-Zeile eliminiert. 

Dieser ganze Komfort hat natürlich nichts mit dem Tastaturpuf¬ 
fer zu tun. Dieser Teil bleibt unverändert. Aber ich finde dieses 
Programm so durchdacht, daß ich es Ihnen als ein Beispiel guter 
Programmierung angeben will. 

10 INPUT "SIARTADRESE';A: INPUT 'ENDADRESE';E: 

INPUT'ZEILE';Z 
20 PRINT CHR$( 147) 

30 PRINT Z "DATA'; 

40 IF A> E THEN END 

50 FOR A=A TO A+15 + (E<A+15)*(A+15-E) 

60 PRINT MID?(STR?(PEEK(A)) ,2) ', ";:NEXT 
70 PRINT ' (CRSR-llnka)' : PRINT 'A= ' A ' : 

E='E': Z= 'Z+10': GOTO 20'; 

80 POKE 631, 19: POKE 632,13: POKE 633,13: 

POKE 634,13: POKE 198,4: END 
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FARBE 

CODE 

Ascn 

TASTEN 

FARBE 

CODE 

ASCII 

TASTEN 

schwarz 

0 

144 

CTRL+l 

orange 

8 

129 

CBM+1 

weiß 

1 

5 

CTRL+2 

braun 

9 

149 

CBM+2 

rot 

2 

28 

CTRL*3 

hellrot 

10 

150 

CBh+3 

lila 

3 

159 

CTRL+4 

dunkel grau 

u 

131 

CBM*4 

purpur 

4 

136 

CTRL+3 

mittelgrau 

12 

152 

CBPt+5 

grün 

5 

30 

CTRL+6 

hei 1 grün 

13 

153 

CBM+6 

blau 

6 

31 

CTRL+7 

hol 1 bl au 

14 

154 

CBM+7 

gelb 

B 

138 

CTRL+8 

hellgrau 

15 

133 

CBM+-B 


Tabelle 10. Tabelle der Farben und Ihrer Codes 
beziehungsweise Tasten 


Adresse 646 ($286) 

Aktuelle Farbe der Zeichen 
(Vordergrundfarbe) 

Um ein bestimmtes Zeichen 
auf den Bildschirm zu drucken, 
muß vom Betriebssystem er¬ 
stens der Bildschirmcode des 
Zeichens in den Bildschirmspei¬ 
cher und zweitens der Code¬ 
wert der gewünschten Farbe in 
den Farbspeicher gebracht 
werden. 

In der Speicherzelle 646 
steht immer der Codewert der¬ 
jenigen Farbe, die gerade einge¬ 
stellt ist. Immer wenn ein PRINT- 
Befehl gegeben wird, holt das 
Betriebssystem den Farbwert 
aus der Zelle 646 und bringt ihn 
in den Farbspeicher, und zwar 
an den entsprechenden Platz, 
wo gerade gePRINTet werden 
soll. Der Codewert in der Zelle 
646 kann auf drei Arten einge¬ 
stellt werden: 

- Drücken der CTRL-Taste 
gleichzeitig mit einer der Farbta- 
sten 1 bis 8. Beim C 64 kom¬ 
men noch weitere acht Farben 
dazu durch Drücken der 
Commodore-Taste anstelle der 
CTRL-Taste. 

- PRINT-Befehl gefolgt vom 
ASCII-Codewert der Farbe 
Innerhalb von Gänsefüßen. 

- POKEn der Farbcodes 0 bis 7 
(beim C 64 0 bis 15) direkt in die 
Speicherzelle. 

Innerhalb eines Programms 
ist das POKEn in Zelle 646 wohl 
die eleganteste Methode (Ta¬ 
belle 10). 

Als Beispiel möge dieses 
kleine Programm dienen: 

10 FÜR X=0 TO 7 
20 POKE 646.X 
30 PRINT "A'j 
40 NEXT X 
50 GOTO 10 

Wer mehr über Vordergrund- 
und Hintergrundfarben erfahren 
will, der lese den Texteinschub 
Nr. 26 »Bunte Zeichen und bun¬ 
ter Hintergrund«. 

Adresse 647 ($287) 

Zeichenfarbe unter dem Cur¬ 
sor 

Das Blinken des Cursors wird 
dadurch erzeugt, daß das Zei¬ 
chen auf der Stelle des Bild¬ 
schirms, auf der er gerade steht 
(meistens ist es eine Leerstelle), 
dauernd von »normal« auf 
»revers« (oder »invertiert«) und 
zurück geschaltet wird. Die 
reverse Darstellung benutzt 
dabei die Farbe des Zeichens. 

Genauso, wie sich der Com¬ 
puter in der Speicherzelle 206 
das Zeichen merkt, mit dem er 
gerade blinkt, um beim Weiter- 


wandem dieses Zeichen in sei¬ 
ner »normalen« Form auf dem 
Bildschirm zurückzulassen, 
merkt er sich die Farbe dieses 
Zeichens in der Speicherzelle 
647. 

Adresse 648 ($288) 

Beginn des Bildschlrmspei- 
chers 

In dieser Speicherzelle steht 
eine Zahl, die als High-Byte dem 
Betriebssystem angibt, ab wel¬ 
cher Speicherzelle der Bild¬ 
schirmspeicher beginnt. 

Nach einem Kaltstart (nach 
dem Einschalten oder nach 
dem Drücken der RESET-Taste) 
steht hier eine 4, das ergibt 
als Anfangsadresse 1024 (= 
4*256). Beim VC 20 ohne 
Erweiterung steht dort eine 30. 
Daraus folgt, daß die Anfangs¬ 
adresse bei 7680 (= 30*256) 
liegt. 

Der Bildschirmspeicher hat 
keinen absolut festen Platz. 
Innerhalb gewisser Grenzen 
kann er durch Verändern des 
Inhalts der Speicherzelle 
53272 (36869 beim VC 20) 
verschoben werden. Die 
Methode dazu ist im Textein¬ 
schub näher beschrieben. 
Wichtig dabei ist, daß nach dem 
Verschieben der Inhalt der Spei¬ 
cherzelle 648 entsprechend 
geändert wird, damit auch das 
Betriebssystem die Verschie¬ 
bung berücksichtigt. 

Umgekehrt kann aber dem 
Betriebssystem durch Ändern 
der Zahl in der Speicherzelle 
648 mitgeteilt werden, daß es 
Zeichen in einen Speicherbe¬ 
reich bringen soll, der außerhalb 
des »offiziellen«, durch die Spei¬ 
cherzelle 53272 (36869) fest¬ 
gelegten Bildschirmspeichers 
liegt. 

Zwei Beispiele sollen das ver¬ 
deutlichen. Der PRINT-Befehl 
macht letztlich nichts anderes, 
als viele Zahlen in den 
Bildschirm- und den Farbspei¬ 
cher zu POKEn. Wenn nun der 
Zeiger in Zelle 648 verschoben 
wird, kann man mit einem 


PRINT-Befehl eine beliebige 
Zeichenkette außerhalb des 
Bildschirmspeichers speichern. 
Auf die gleiche Weise kann man 
beim C 64 Sprites mit einem 
PRINT-Befehl speichern, ohne 
mit READ viele lästige DATA- 
Zeilen lesen zu müssen. 

Adresse 649 ($289) 

Maximale Länge des Tastatur¬ 
puffers 

Der Tastaturpuffer belegt, wie 
schon besprochen, die Spei¬ 
cherzellen 631 bis 640. Er kann 
darin maximal 10 Zeichen Zwi¬ 
schenspeichern. 

Der Inhalt der Speicherzelle 
649 legt fest, wieviele Zellen des 
Tastati irnuffers verwendet wer¬ 
den solfön, eine Zahl also, die 
normalerweise zwischen 0 und 
10 liegen sollte. Die 10 ist übri¬ 
gens der Wert, welcher nach 
dem Einschalten vom Betriebs¬ 
system in die Zelle 649 
gebracht wird. 

Diese Zahl wird immer mit 
dem Inhalt der Speicherzelle 
198 verglichen, der die aktuelle 
Anzahl der Zeichen im Tastatur¬ 
puffer angibt. Ist die Differenz 
der beiden Zahlen gleich Null, 
dann können keine weiteren 
Zeichen eingegeben werden. 

Es ist naheliegend, daß durch 
Verändern der Zahl in Zelle 649 
die Länge des Tastaturpuffers 
verändert werden kann. Der 
eine Extremfall ist 0: 

POKE 649,0 schaltet die Tasta¬ 
tur aus. Nichts geht mehr. 

Das kann bei Programmen 
oder Spielen, die durch falsches 
oder zeitlich unpassendes 
Drücken von Tasten gestört 
werden, recht nützlich sein. Ein¬ 
schalten kann man dann die 
Tastatur nur mit RUN/STOP und 
RESTORE. 

Auch eine Erhöhung der Zahl 
in 649 über 10 hinaus ist mög¬ 
lich. Die Zeichen werden halt 
nur über die dafür reservierten 
Speicherzellen 631 bis 640 
hinaus in Zellen geschrieben, 
die eigentlich eine andere Funk¬ 
tion haben. Bis zur Speicher¬ 


zelle 645 geht das normaler¬ 
weise ohne Probleme, da die 
betroffenen »fremden« Adres¬ 
sen nur direkt nach dem Ein¬ 
schalten des Computers 
gebraucht werden. 

Probieren Sie es aus, indem 
Sie zuerst eine Zeitschleife lau¬ 
fen lassen und in dieser Zeit 
etwa 20 Tasten drücken. Am 
Ende der Zeitschleife wird der 
Inhalt des Tastaturpuffers aus¬ 
gedruckt, und Sie sehen in der 
Tat 15 der eingegebenen Zei¬ 
chen: 

POKE 649,15 

FOR X=0 TO 10000: NEXT X 

QWERTYUIOPASDFGHJKL 

Auf dem Bildschirm erschei¬ 
nen die Zeichen Q bis G. 

Wenn Sie die Zahl in 649 
noch weiter erhöhen, dringen 
Sie In die Zellen 646 und 647 
ein und diese bestimmen 
bekanntlich die Zeichenfarbe. 
Wenn Sie aber eine unbeab¬ 
sichtigte und unkontrollierbare 
Farbänderung nicht stört, kön¬ 
nen Sie den Tastaturpuffer auf 
17 Zeichen vergrößern. Ab 18 
Zeichen stürzt der Computer 
ab. 

Adresse 650 ($28A) 

Flagge für Tastenwiederho¬ 
lung 

Normalerweise steht in dieser 
Speicherzelle eine 0. Das 
bedeutet, daß die Funktion der 
Cursor-Tasten, der Leertaste 
und der INST/DEL-Taste wieder¬ 
holt wird, solange die entspre¬ 
chende Taste gedrückt wird. 

Durch Verändern der Zahl in 
der Speicherzelle 650 kann 
diese Wiederholfunktion so¬ 
wohl auf alle Tasten ausgedehnt 
als auch für alle Tasten gesperrt 
werden. 

POKE 650,0 

ist der Normalzustand, Wieder¬ 
holfunktion für Cursor-, Leer- 
und INST/DEL-Taste 

POKE 650,64 

schaltet Wiederholfunktion für 
alle Tasten aus. 

POKE 650,128 

erweitert Wiederholfunktion auf 
alle Tasten. 

Adresse 651 ($28B) 

Zähler für Wiederholge¬ 
schwindigkeit der Tasten 

Das Betriebssystem verwen¬ 
det diese Speicherzelle als Zäh¬ 
ler, der die Geschwindigkeit 
bestimmt, mit der eine Taste 
wiederholt wird, wenn sie länger 
gedrückt wird. Voraussetzung 
ist die durch Zelle 650 festge¬ 
legte Wiederholbarkeit der 
Taste. 
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Am Anfang steht in der Zelle 

651 die Zahl 6. Sobald eine wie¬ 
derholbare Taste gedrückt wird, 
zählt das Betriebssystem diese 
Zahl alle 0,0167 Sekunden 
(60mal in der Sekunde) um 1 
zurück, bis die Zahl 1 erreicht 
ist. Dann erst wird das Zeichen 
der gedrückten Taste wieder 
auf den Bildschirm gedruckt 
oder ihre Funktion wiederholt. 

Bei jedem folgenden Lauf 
steht in Zelle 651 die Zahl 4. 
Entsprechend verkürzt sich der 
Zählvorgang. 

Am schnellsten würde die 
Wiederholung natürlich mit dem 
Wert 1 in der Speicherzelle 651 
sein. Von Basic aus mit POKE 
651,1 geht das leider nicht. 

Im Texteinschub Nr. 27 
»Turbo-Tasten« wird ein Maschi¬ 
nenprogramm beschrieben, 
welches dies kann. 

Adresse 652 ($28C) 

Zähler für die Ansprechzeit 
der Wiederholfunktion von 
Tasten 

Diese Speicherzelle wird vom 
Betriebssystem als Zähler ver¬ 
wendet, der festlegt, wie lange 
eine wiederholbare Taste ge¬ 
drückt sein muß, bis die Wieder¬ 
holfunktion einsetzt. 

Am Anfang steht In der Zelle 

652 die Zahl 16. Diese Zahl wird 
alle 0,0167 Sekunden um 1 
reduziert, bis die Zahl 0 erreicht 
ist. Dann wird das Zeichen der 
Taste auf den Bildschirm ge¬ 
bracht oder ihre Funktion wie¬ 
derholt. Anschließend wird die 
Zahl 4 in die Speicherzelle 651 
geschrieben (siehe dort), wäh¬ 
rend die Zelle 652 so lange auf 
0 stehen bleibt, bis eine andere 
Taste gedrückt wird. Wie diese 
anfängliche Verzögerung redu¬ 
ziert werden kann, steht im Text¬ 
einschub Nr. 27 »Turbo-Tasten«. 

Adresse 653 ($28D) 

Tastencode der SHIFT-, CTRL- 
und Commodore-Taste 

In der Speicherzelle 203 ste¬ 
hen die Codes aller Tasten, die 
gedrückt werden, außer die der 
drei Steuertasten SHIFT, CTRL 
und Commodore (oft auch 
CBM-, Logo- oder C=-Taste 
genannt). Diese drei Ausnah¬ 
men haben ihr eigenes Code- 
Register, eben 653. 

Der Grund dafür liegt in der 
Bedeutung der drei Tasten. Sie 
können ja bekanntlich verschie¬ 
dene Zeichensätze einschal¬ 
ten: 

- SHIFT schaltet das Zeichen 
vorne rechts auf einer Taste ein 


- C= schaltet das Zeichen 
vorne links auf einer Taste ein 

- CTRL schaltet die Farben vorn 
auf den Zahlentasten ein 

- SHIFT + C = schaltet von dem 
normalen Zeichensatz auf die 
Groß-/Kleinschreibung um. 

Ich habe diese Zusammen¬ 
hänge auch bei der Behandlung 
der Speicherzellen 245 und 
246 erwähnt. 

Die Codezahlen selbst sind 
auch in der Tabelle 9 enthalten. 
Der Vollständigkeit halber sind 
sie hier noch einmal 
angegeben: 


SHIFT 

1 

C= 

2 

CTRL 

4 

SHIFT und C = 

3 

SHIFT und CTRL 

5 

C= und CTRL 

6 

SHIFT und C= und CTRL 7 


Mit dem folgenden kleinen 
Programm und mit ein wenig 
Fingerfertigkeit können Sie 
diese Codewerte nachvollzie¬ 
hen: 

10 PRINT PEEK(653) 

20 GOTO 10 

Eine interessante Anwen¬ 
dung habe ich im Texteinschub 
Nr. 21 »Abfrage der Tasten¬ 
codes oder 476 Funktionsta¬ 
sten« gegeben. 

Adresse 654 ($28E) 

Tastencode der zuletzt 
gedrückten SHIFT-, CTRL-oder 
C=-Taste 

Diese Speicherzelle wird 
zusammen mit der Zelle 653 
verwendet, um zu verhindern, 
daß ein schlechter Tastendruck 
als mehrfaches Drücken dersel¬ 
ben Taste gedeutet wird. Im 
Fachdeutsch nennt man das 
»Entprellen« einer Taste oder 
eines Kontaktes. Die Funktion 
ist vergleichbar mit der der Zelle 
197 gegenüber der Zelle 203 
für alle anderen Tasten. 

Adresse 655 und 656 
($28F und $290) 

Vektor auf die Routine der 
Tastencode-Tabellen 

Das Betriebssystem hat eine 
Routine ab Adresse 60232 
(60380 beim VC 20), auf die 
der Vektor in 655 und 656 
zeigt. Sie liest den Codewert 
der SHIFT-, CTRL- und C=-Taste 
in der Speicherzelle 653 aus 
und verändert entsprechend 
den Vektor der Zellen 245 und 
246, so daß er auf die richtige 
Codetabelle zeigt. 


Texteinschub Nr. 26 
Bunte Zeichen und bunter Hintergrund 

1) Bunte Zeichen 

Wie Zeichen und Buchstaben in bunten Farben auf den Bild¬ 
schirm gedruckt werden, lernt jeder Hobby-Programmierer 
schon bei den ersten Gehversuchen - dasselbe innerhalb eines 
Programms zu erreichen, dauert sicher schon etwas länger. 

Bei der Diskussion der Speicherzelle 646 habe ich drei 
Methoden dafür erwähnt. Ich habe auch gesagt, daß ich die 
Methode, den Farbcodewert in die Speicherzelle 646 zu 
POKEn, für die eleganteste halte. Deswegen verwendet das fol¬ 
gende Demonstrations-Programm dieses Verfahren, um den 
Bildschirm mit einer bunten Reihe der Zahl 1 zu füllen. 

10 PRINT CHR$(l47) 

20 POKE 53281,1 

30 FOR J=0 TO 1000 

40 POKE 646, INT(RND(l)*l4+2) 

50 PRINT 'l'j 
60 NEXT J 

VC 20-Besitzer müssen die Zeilen 20, 30 und 40 umändern in: 
20 POKE 36879,233 
30 FOR J=0 T0 505 
' 40 POKE 646,INT(RND(l)*6*2) 

Erklärung: 

Zeile 10 löscht den Bildschirm, Zeile 20 erzeugt einen weißen 
Hintergrund und eine hellblaue Umrahmung. Zeile 30 zählt vom 
ersten bis zum letzten Platz auf dem Bildschirm. Zeile 40 erzeugt 
für jedes Zeichen auf dem Bildschirm eine neue Farbe. Zeile 50 
schließlich druckt, durch das Semikolon gesteuert, die Zahl 1 
hintereinander, und zwar in den Farben, die in Zeile 40 zufällig 
ausgewürfelt wurden. 

RND(1)*14 erzeugt eine Zufallszahl zwischen 0,1 und 13,99. 
Der Befehl INT davor macht daraus eine ganze Zahl zwischen 0 
und . Um aber die Codezahl 1 für Weiß zu vermeiden, addieren 
wir noch 2 dazu, so daß wir Farbcodes zwischen 2 und 15 erhal¬ 
ten. Beim VC 20 ist das alles auf die Farben 2 bis 7 beschränkt. 

Das Ergebnis ist wie gesagt ein Bildschirm voller Einser, deren 
Farben bunt wie ein Regenbogen abwechseln. 

2) Bunter Hintergrund 

Bunte Zeichen stellen also kein Problem dar. Wie steht es aber 
mit einem bunten Hintergrund? Den können wir zwar auch verän¬ 
dern (POKEn der Speicherzelle 53281 beziehungsweise 
36879 beim VC 20), aber es bleibt immer nur »eintönig«. 

Vom Commodore-Autor Jim Butterfield kenne ich nun eine Me¬ 
thode, die auch einen vielfarbigen Hintergrund bietet. 

Butterfield geht dabei von einer lustigen Überlegung aus. Wir 
wissen zum Beispiel, daß der nächtliche Sternenhimmel aus hel¬ 
len Punkten besteht, die vor einem schwarzen Hintergrund 
leuchten. Ohne dieses Wissen könnten wir aber ebenso gut 
annehmen, daß der Himmel - also der Hintergrund - Im hellsten 
Weiß erstrahlt, aber durch einen schwarzen Vorhang (Vorder¬ 
grund) mit vielen kleinen Löchern abgedunkelt ist. 

Das folgende Demo-Programm benutzt diese Denkweise. 

100 PRINT CHR$(147) 

110 POKE 53281,1 

120 FOR J=0 TO 1000 

130 POKE 1024-+J, 160 

140 POKE 55296+J,INT(RND(l)#l4+2) 

150 NEXT J 
160 FOR K=0 T0 1000 
170 POKE 1024+K, 177 
180 NEXT K 

Für den VC 20 (ohne Erweiterung) sieht das Programm so aus: 
100 PRINT CHR$(147) 

110 POKE 36879,233 

120 FOR J=0 to 505 

130 POKE 76804J, 160 

140 POKE 38400+J, INT(RND(l)#6+2) 

150 NEXT J 
160 FOR K=0 T0 505 
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170 POKE 7680+K, 177 

180 NEXT K 

Die ersten drei Zeilen sind mit denen des ersten Demonstra¬ 
tions-Programms identisch. 

Zeile 130 und 140 setzen aut jeden Platz des Bildschirms 
zuerst ein invertiertes Leerzeichen (Bildschirmcode 160), und 
zwar in einer der vielen möglichen Farben, per Zufallsgenerator 
in Zeile 140 ausgewählt. 

Leerzeichen mit Farbe? Zugegeben, ein Leerzeichen hat nor¬ 
malerweise keine Farbe, man sieht es nicht. Das invertierte Leer¬ 
zeichen hat aber eine Farbe. Sie kennen es vom Cursor, dessen 
Blinken dadurch erzeugt wird, daß das Leerzeichen zwischen 
normal und invertiert umgeschaltet wird (siehe auch die 
Beschreibung der Speicherzelle 647). Auf diese Weise besteht 
jetzt der Bildschirm aus einer Vielzahl von bunten Quadraten. 
Das ist der Vorhang von Jim Butterfield, der vor dem hellen wei¬ 
ßen Hintergrund hängt. 

Ab Zeile 160 werden alle Plätze des Bildschirms mit der inver¬ 
tierten 1 (Bildschirmcode 177) gefüllt. Diese invertierten Zei¬ 
chen sind in der Farbe des Hintergrundes geschrieben, eben 
weiß. Dadurch entsteht der Eindruck, als wäre der Hintergrund 
bunt und die Zeichenfarbe weiß. 

Der Eindruck verstärkt sich noch, wenn wir die 1 über den Bild¬ 
schirm wandern lassen. Das erreichen wir durch Ändern der fol¬ 
genden Zeilen: 

170 POKE 1024+K, 160 

175 POKE 1025+K.177 

Durch geschicktes Ausbauen der Zeile 140 können Sie einen 
vielfarbigen Bildschirm-Hintergrund in Zeilen oder Blöcken 
erzielen, ein weites Gebiet für bunte Grafik. 


Texteinschub Nr. 27 
Turbo-Tasten 

Das Trio der Speicherzellen 650, 651 und 652 ist zuständig 
für die Steuerung der sogenannten Wiederholfunktion der 
Tasten. Darunter verstehen wir die Eigenschaft der Tastatur, das 
Zeichen oder die Funktion einer Taste so lange zu wiederholen, 
bis die Taste losgelassen wird. Normalerweise haben diese 
Funktion nur die Leertaste, die Cursor-Tasten und die INST/DEL- 
Taste. 

Die Zahl in Speicherzelle 650 entscheidet, welche Tasten wie¬ 
derholbar sind. 

Schalten Sie bitte mit POKE 650,128 alle Tasten auf »wiederhol¬ 
bar« um. 

Wenn Sie jetzt eine Taste drücken und sie festhalten, werden 
Sie folgendes beobachten können. 

Nachdem das erste Zeichen auf dem Bildschirm erschienen 
ist, vergeht eine kurze Zeit, erst dann wird es mit einer gleichblei¬ 
benden Geschwindigkeit immer wieder ausgedruckt. 

Für die anfängliche Verzögerung ist die Speicherzelle 652, für 
die Geschwindigkeit der nachfolgenden Wiederholungen die 
Speicherzelle 651 zuständig. 

Viele Spieler und Anwender haben sich sicher schon oft 
gewünscht, sowohl die Reaktionszeit als auch die Geschwindig¬ 
keit der Wiederholfunktion beschleunigen zu können. Leider 
geht es in Basic nicht, weil die Zahlen in den Zellen 651 und 652 
60mal in der Sekunde auf ihren ursprünglichen Wert zurückge¬ 
setzt werden. 

Aber in Maschinensprache geht es sehr wohl, und zwar mit der 
sogenannten Interrupt-Methode. Über sie und ihre Wirkungs¬ 
weise ist schon ausführlich berichtet worden: von Boris Schnei¬ 
der in Ausgabe 3/85 (Der gläserne VC 20) und von Heimo Pon- 
nath in den Ausgaben 7/85 und 8/85 (Assemblerkurs). Ich 
werde hier nur innerhalb der Beschreibung des folgenden Koch¬ 
rezeptes darauf eingehen. 

Das Kochrezept zur Veränderung der Inhalte von 651 und 652 
stammt von Dan Carmichael aus seinem Aufsatz »Speeding Up 
The VIC« in Ausgabe 10/83 der COM PUTE!’s Gazette. 


Wir schreiben es als Maschinenprogramm in Form von DATA- 
Zeilen in den Bandpuffer ab Adresse 828, wo es geschützt resi¬ 
dieren kann, solange keine Kassettenoperationen durchgeführt 
werden. Das Ladeprogramm in Basic steht in Listing 1 (Seite 63). 
Für den VC 20 lautet die vorletzte Zahl 191 statt 49. 

In Listing 2 (Seite 63) ist das Programm disassembliert darge¬ 
stellt. 

Beim VC 20 lautet der Sprungbefehl in Zelle 851 JMP 60095. 

Für Anhänger der hexadezimalen Darstellung gebe ich das 
Programm als HEX-Ausdruck in Listing 3 (Seite 63) wieder. 

Für den VC 20 lautet die letzte Zeile anders: 

,0353 4C BF EA JMP EABF 

Mit dem Befehl SEI werden jegliche Programmunterbrechun¬ 
gen gesperrt. Anschließend kommt das Zahlenpaar 73 und 3 in 
die Speicherzellen 788 und 789, wo es in Low/High-Byte Dar¬ 
stellung die Adresse 841 (73+256*3=841) darstellt. 

In 788 und 789 steht normalerweise ein Vektor auf die 
Adresse 59953 (60095 beim VC 20), von der aus die Aufgaben 
der »normalen« Unterbrechungsroutine gesteuert werden. Wir 
»verbiegen« also den Vektor so, daß er auf die Speicherzelle 841 
zeigt. 

Die schon genannte Unterbrechungsroutine, die 60mal pro 
Sekunde alles unterbricht, um die STOP-Taste abzufragen, die 
Uhr weiterzuschalten und so weiter, springt jetzt nicht auf 
59953, sondern zuerst nach 841. 

Ab 841 steht jedoch der zweite Teil unseres Maschinenpro¬ 
gramms, das die eingangs gewünschte 1 beziehungsweise 0 
nach 651 und 652 schreibt. Das erfolgt jetzt laufend, ein Effekt, 
der uns in Basic verwehrt ist. Danach allerdings kommt ein letzter 
Sprungbefehl, der dort weitermacht, wo die Unterbrechunsrou- 
tine ursprünglich hätte fortfahren sollen, nämlich in 59953 
(60095). 

Jetzt fehlt nur noch die Beschreibung, wie sich das alles aus¬ 
wirkt. Ich nehme an, Sie haben Immer noch mit POKE 650,128 
die»« ' amte Tastatur auf Wiederholfunktion geschaltet, wenn 
nicht, holen Sie es bitte nach. Laden Sie das Basic-Programm 
von Listing 1 und starten Sie es mit RUN. Jetzt steht es in den 
Speicherzellen 828 bis 853 und kann mit SYS 828 gestartet 
werden. 

Wenn Sie jetzt wieder eine Taste länger gedrückt halten, flitzt 
das entsprechende Zeichen wie ein Turbo-Auto über den Bild¬ 
schirm. Der Cursor ist mit den Augen fast nicht mehr zu verfol¬ 
gen. Es geht alles so schnell, daß Sie Mühe haben, nur ein einzel¬ 
nes Zeichen auf den Bildschirm zu bringen. Wenn Sie das wollen: 
Mit RUN/STOP und RESTORE stellen Sie den ursprünglichen 
Zustand wieder her. 

Das kleine Maschinenprogramm läßt sich in jedes Spiel oder 
Anwendungsprogramm nutzbringend einbauen. 


Es gibt Anwenderprogramme, 
die diesen Vektor so verbiegen, 
daß die Decodierung der Tasten 
umgangen und durch eine 
andere, selbstgebaute Routine 
ersetzt wird. So kann zum Bei¬ 
spiel das Drücken einer 
bestimmten Taste umgemünzt 
werden in Ausdrucken von 
Basic-Befehlen auf dem Bild¬ 
schirm. 


Adresse 657 ($291) 

Flagge für Verriegelung der 
Zelchensatz-Umschaltung 

Durch gleichzeitiges Drücken 
der SHIFT- und der Commodo- 
re-Taste wird bekanntlich der 
Zeichensatz 1 (Großbuchsta¬ 
ben und Grafik-Zeichen) umge¬ 


schaltet auf den Zeichensatz 2 
(Groß- und Kleinbuchstaben), 
ein zweites Drücken der beiden 
Tasten schaltet den Zeichen¬ 
satz zurück. 

Diese Umschaltung wird ver¬ 
riegelt, wenn in der Speicher¬ 
zelle 657 eine 128 steht. Eine 0 
läßt die Umschaltung zu. 

Dieser Effekt kann auf zwei, 
beim C 64 sogar auf drei Arten 
erzielt werden: 

□ Umschaltung des Zeichen¬ 
satzes zulassen 

POKE 657,0 
PRINT CHR$(9) 

CTRL und I (nur C 64) 

□ Umschaltung des Zeichen¬ 
satzes verriegeln 

POKE 657,128 
PRINT CHR$(8) 

CTRL und H (nur C 64) 


50 
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Adresse 658 ($292) 

Flagge für Scrollen 

Die Flagge in dieser Speicher¬ 
zelle legt fest, ob eine weitere 
echte Zeile zu einer logischen 
Zeile hinzugefügt wird, sobald 
der Cursor über das 40ste Zei¬ 
chen der Zeile (22ste Zeichen 
beim VC 20) hinausläuft. 

Steht in 658 eine 0, dann wer¬ 
den alle Zeilen hochgeschoben 
(man nennt das »scrollen«), um 
der neuen Zeile Platz zu 
machen. 

Wenn in der Zeile irgendein 
Wert größer als Null steht, unter¬ 
bleibt dieses Scrollen. Die 
Flagge wird immer dann auf den 
höheren Wert gesetzt, wenn 
Zeichen im Tastaturpuffer (631 
bis 640) stehen und darauf war¬ 
ten, am Ende des Programms 
ausgedruckt beziehungsweise 
ausgeführt zu werden. Diese 
Verriegelung wird deshalb ein¬ 
gesetzt, weil im Tastaturpuffer 
Zeichen wie zum Beispiel 
Cursor-Bewegungen stehen 
können. 

Von Basic aus kann diese 
Speicherzelle nicht beeinflußt 
werden. 

Die RS232-Schnittstelle 

Wir haben schon früher Spei¬ 
cherzellen besprochen, die mit 
der RS232-Schni»tstelle zu tun 
haben, ohne die letztere dabei 
genauer zu betrachten. Da der 
heutige Teil des Kurses jedoch 
die zehn wichtigsten Speicher¬ 
zellen behandelt, welche diese 
Schnittstelle betreffen, komme 
ich nicht umhin, näher auf sie 
einzugehen. Ich tue das mit vol¬ 
ler Absicht, obwohl dadurch die 
erklärenden Texteinschübe 
mehr Platz einnehmen als die 
Besprechung der Speicherstel¬ 
len selbst. Falls Sie mit Schnitt¬ 
stellen des Computers nicht 
vertraut sind, sollten Sie zuerst 
den Texteinschub Nr. 28 
»Schnittstelle und Port« 
anschauen, mit dem ich die gän¬ 
gige Begriffsverwirrung klären 
möchte. 

Adresse 659 ($293) 

RS232-Steuerregister 

Jeder OPEN-Befehl, mit dem 
bekanntlich eine Datei (File) 
eröffnet wird, kann neben File- 
Nummer und Geräte-Nummer 
auch einen File-Namen haben. 
Der File-Namen einer RS232- 
Schnittstelle hat maximal nur 
vier Zeichen. Das erste Zeichen 
wird in diese Speicherzelle 659 
gebracht und steuert dort Über¬ 
tragungsgeschwindigkeit, die 


Wortlänge und die Anzahl der 
Stopp-Bits. Die nähere Bedeu¬ 
tung dieser Fachwörter können 
Sie dem Texteinschub Nr. 29 
»Die Elemente der RS232- 
Schnittstelle« entnehmen. 
Tabelle 11 zeigt die Bedeutung 
jedes einzelnen Bits dieser 
Speicherzelle. 

Die praktische Anwendung 
dieser Bit-Werte innerhalb eines 
OPEN-Befehls ist ausführlich im 
Texteinschub Nr. 30 »Die Pro¬ 
grammierung der RS232- 
Schnittstelle« beschrieben. 

Adresse 660 ($294) 

RS232-Befehl8register 

In diese Speicherzelle wird, 
ähnlich wie bei der Zelle 659, 
das zweite Zeichen des File- 
Namens gebracht. Die einzel¬ 
nen Bits steuern das Hand- 
shake-Protokoll (3-/X-Leitung), 
den Duplex-Modus (Halb-A/oll- 
Duplex) und die Parity-Prüfung 
(keine, gerade, ungerade). Die 
nähere Bedeutung dieser Fach¬ 
wörter können Sie dem Textein¬ 
schub Nr. 11 »Die Elemente der 
RS232-Schnittstelle« entneh¬ 


BINÄR 

BITWERT 

STEUERFUNKTION 

Bit 0 bis 3 steuern die Übertragungsgeschwindigkeit 

xxxxOOOO 

0 

(siehe 1 ) 

xxxxOOOl 

1 

50 Bit/s 

xxxxOOIO 

2 

75 Bit/s 

xxxxOOl 1 

3 

110 Bit/s 

xxxxOIOO 

4 

134,5 Bit/s 

xxxxOIOI 

5 

150 Bit/s 

xxxxOl 10 

6 

300 Bit/s 

xxxxOl 1 1 

7 

600 Bit/s 

xxxxlOOO 

8 

1200 Bit/s 

XXXX1001 

9 

1800 Bit/s 

xxxxIOIO 

10 

2400 Bit/s 

die Werte 11 bis 15 sind nicht belegt 


Bit 4 ist nicht belegt 

Bit 5 und 6 steuern die Wortlänge 

xOOxxxxx 

0 

8-Bit-Wort 

xOIxxxxx 

32 

7-Bit-Wort 

xlOxxxxx 

64 

6-Bit-Wort 

xl 1 xxxxx 

96 

5-Bit-Wort 

Bit 7 steuert die Stopp-Bits 

Oxxxxxxx 

0 

1 Stopp-Bit 

1xxxxxxx 

128 

2 Stopp-Bit 


Fußnote (1) 

Bei diesem Bitwert sollte ursprünglich der Anwender in Speicherzelle 
661 eigene Bandraten wählen können. Diese Möglichkeit ist aber nicht 
realisiert worden. 

Tabelle 11. Die Bedeutung der einzelnen Bits im 
RS232-Steuerreglster 


BINÄR BITWERT STEUERFUNKTION 


men. Tabelle 12 zeigt die 
Bedeutung jedes einzelnen Bits 
dieser Speicherzelle. 

Wenn Sie sich für die prakti¬ 
sche Anwendung dieser Bit- 
Werte innerhalb eines OPEN- 
Befehls interessieren, dann ver¬ 
weise ich an dieser Stelle auf 
den Texteinschub Nr. 30 »Die 
Programmierung der RS232- 
Schnittstelle«. 

Adresse 661 und 662 
($295 und $296) 

RS232 frei wählbare Übertra¬ 
gungsgeschwindigkeit 

Es war ursprünglich vorgese¬ 
hen, durch entsprechende Wahl 
des dritten und vierten Zei¬ 
chens im File-Namen beliebige 


Bit 0 steuert den Handshake-Typ 


xxxxxxxO 

xxxxxxxl 


0 

1 


Bit 1 Li: 3 sind nicht belegt 


Bit 4 steuert den Duplex-Modus 


xxxOxxxx 

xxxlxxxx 


0 

16 


Bit 5 bis 7 steuern den Paritäts-Test 


3-Leitung 

X-Leitung 


Voll-Duplex 

Halb-Duplex 


OOOxxxxx 

0 

keine Parität 

001 xxxxx 

32 

ungerade ( 1 ) 

01Oxxxxx 

64 

keine Parität 

011xxxxx 

96 

gerade (1) 

10Oxxxxx 

128 

keine Parität 

101 xxxxx 

160 

Parität“ 1 (2) 

1 1 0xxxxx 

192 

keine Parität 

111 xxxxx 

224 

Parität“0 (2) 


Fußnoten: 

(1) vom Sender berechnet, vom Empfänger geprüft 

(2) vom Sender festgelegt, vom Empfänger nicht geprüft 

Tabelle 12. Das RS232-Befehlsregister Im einzelnen 


Übertragungsgeschwindigkei¬ 
ten einzustellen. Die jeweiligen 
Werte sollten die Speicherzel¬ 
len 661 und 662 enthalten. 
Diese Möglichkeit wurde aber 
nicht eingebaut. Der Grund 
dafür dürfte wohl der sein, daß 
die wählbaren Übertragungsge¬ 
schwindigkeiten aller Geräte auf 
bestimmte Werte normiert sind. 

Adresse 663 ($297) 

RS232-Statusregister 

Genauso wie In der Speicher¬ 
zelle 144 der Status aller Ein- 
und Ausgabe-Operationen an¬ 
gezeigt wird, werden alle Fehler 
der RS232-Schnittstelle in der 
Speicherzelle 663 angezeigt. 
Die Bedeutung der einzelnen 


Bits, wenn sie auf 1 gesetzt 
sind, zeigt Tabelle 14. 

Der Status wird nicht automa¬ 
tisch angezeigt, sondern muß 
vom Programm abgefragt wer¬ 
den. Abfragen können Sie 
sowohl durch PEEKen der Spei¬ 
cherzelle 663 als auch durch 
Aufrufen der Statusvariablen ST. 
Die Variable ST, die normaler¬ 
weise den Inhalt der Zelle 144 
wiedergibt, schaltet nach dem 
Eröffnen eines RS232-Kanals 
durch OPEN 1,2 auf die Spei¬ 
cherzelle 663 um. Jedoch ist 
Vorsicht geboten, da durch Auf¬ 
ruf von ST der Inhalt von 663 
gelöscht wird. 

Es ist ratsam, den Wert von ST 
erst einer anderen Variablen 


zuzuordnen, wenn sie mehrfach 
verwendet werden soll. 

Falls das Status-Register 
einen Fehler anzeigt, muß das 
Programm entsprechende Kon¬ 
sequenzen ziehen. Wenn zum 
Beispiel Bit 0 oder Bit 1 gesetzt 
sind, ist es angebracht, das 
letzte Daten-Byte noch einmal 
zu übertragen. Wenn Bit 2 
gesetzt ist, heißt dies, daß der 
GET#-Befehl den Eingabepuf¬ 
ferspeicher nicht schnell genug 
entleert. Falls die Übertra¬ 
gungsgeschwindigkeit von 300 
Bit/s, die maximal mit einem 
Basic-Programm erreichbar ist, 
nicht ausreicht, muß entweder 
der Sender langsamer einge¬ 
stellt werden, oder Sie schrei- 
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ben das Programm in Maschi¬ 
nensprache. 

Adresse 664 ($298) 

RS232 - Anzahl der zu übertra¬ 
genden Bits 

Diese Speicherzelle wird ver¬ 


wendet, um festzustellen, mit 
wievielen Nullen das zu übertra¬ 
gende Zeichen aufgefüllt wer¬ 
den muß, um die in Speicher¬ 
zelle 659 (Bit 5 und 6) ausge¬ 
wählte Wortlänge herzustellen 
(a Speicherzellen 168 und 180). 


BIT 

BIT¬ 

WERT 

BEDEUTUNG 

0 

1 

Fehler bei Paritäts-Test 

1 

2 

Fehler in der Bit-Folge 

2 

4 

Überlaut des Eingabepufferspeichers 

3 

8 

Eingabepufferspeicher ist leer 

4 

16 

das Clear-To-Send (CTS)-Signal (Handshake) fehlt 

5 

32 

nicht belegt 

6 

64 

das Data-Set-Ready (DSR)-Signal (Handshake) fehlt 

7 

128 

Übertragung ist unterbrochen 

Tabelle 14. Das RS232-Statusregister 


Texteinschub Nr. 28 
Schnittstelle und Port 


Immer wenn die Rede davon ist, den Computer mit irgendwel¬ 
chen Geräten zu verbinden, tauchen Fachwörter auf, wie Inter¬ 
face, Schnittstelle, Port, Eingang. Ausgang und Stecker. Da im 
Kurs gerade die Speicherzellen behandelt werden, die für die 
RS232-Schnittstelle zuständig sind, möchte ich die Gelegen¬ 
heit nutzen, ein wenig Klarheit in dieses Begriffswirrwarr zu brin¬ 
gen. Zuerst sollen die Begriffe erklärt werden: 

1) »Interface« ist das englische Wort für »Schnittstelle«. 

In einer Schnittstelle sind die Regeln und Vorschriften festge¬ 
legt, wie Daten zwischen zwei Geräten (zum Beispiel Computer 
und Floppy) ausgetauscht werden. Festgelegt Ist hauptsächlich: 

- ob ein Datenwort auf einen Schlag (parallel) oder jedes Bit ein¬ 
zeln (seriell) übertragen wird 

- die Geschwindigkeit der Übertragung 

- die Signale, mit denen die beteiligten Geräte den Ablauf der 
Übertragung steuern 

- mit welchen Spannungs- oder Stromwerten die binäre 1 bezie¬ 
hungsweise 0 dargestellt wird 

- die elektrischen Spannungen und Ströme, die bei der Übertra¬ 
gung maximal auftreten dürfen 

Sie sehen, eine Schnittstelle ist in erster Linie eine Anzahl von 
Regeln. Manchmal allerdings werden auch die Module und Spe¬ 
zialkabel, welche die Regeln technisch in die Tat umsetzen, 
Schnittstellen genannt. 

2) Über einen »Ausgang« kann der Computer (oder ein anderes 
Gerät) Daten abgeben, über einen »Eingang« erhält er Daten. Ein 
»Port« ist beides, Ein- und Ausgang. Ein »Stecker« schließlich ist 
die technische Ausführung der Verbindung. 

So, nach dieser Begriffserklärung wollen wir uns anschauen, 
welche Ports, Ein- und Ausgänge, der Computer hat. Die Zeich¬ 
nung dieser Anschlüsse (Bild 23) habe ich dem 
Commodore-Handbuch entnommen, nicht aber ihre Bezeich¬ 
nungen, denn diese gehen bereits wild durcheinander. 

Der »Erweiterungsanschluß« (1) wird hauptsächlich als Ein¬ 
gang für Spielmodule verwendet. Er ist aber ein echter Port, 
nicht zuletzt zur Speichererweiterung beim VC 20 und kann für 
Schnittstellen über entsprechende Routinen des Betriebssy¬ 
stems programmiert werden. 

Der »TV-Anschluß« (2) ist ein reiner Ausgang des im Computer 
eingebauten Fernsehmodulators, der beim VC 20 fehlt. 

Der »Video/Audio-Anschluß« (3) ist ebenfalls ein reiner Aus¬ 
gang der Ton- und Bildsignale für einen Monitor oder für den 
externen Fernsehmodulator des VC 20. 

Der »Serielle Anschluß« (4) ist ein Port, über den das Disket- 






1 ■* Erwelterungsanschluß 

2 = TV-Anschluß 

3 «» Video-Audio-Anschluß 

4 = Serieller Anschluß 

5 = Kasselienanschluß 

6 - User-fort 

7 *■ Netzanschluß 

8 = JoysIIcK-Rsrls 

Bild 23. Anschlüsse des C 64 

tenlaufwerk und Drucker angeschlossen werden. Er ist für 
Schnittstellen programmierbar. 

Der »Kassettenanschluß« (5) ist ebenfalls ein Port, der speziell 
für die Datasette eingerichtet ist. Bastler und Tüftler, die Schalt¬ 
pläne lesen können und das Betriebssystem des Computers 
kennen, müßten in der Lage sein, mit diesem Port auch andere 
externe Geräte zu steuern. Für die genormten Schnittstellen 
kommt er meines Wissens nicht in Frage. 

Der »User-Port« (6) ist das, was sein Name sagt, nämlich ein 
Port für verschiedene Anwendungen und Schnittstellen. Er Ist 
über 16 Register des 6526 Complex Interface-Adapters (CIA) 
mit den Adressen 56320 bis 563215 frei programmierbar. Der 
VC 20 hat dafür einen 6522 Versatile Interface-Adapter (VIA), 
dessen 16 Register die Adressen 37136 bis 37151 haben. 

Der »Netzanschluß« (7) ist ein reiner Eingang, aber nicht für 
Date.*: 

Die »Spielanschlüsse« (8) (nur einer beim VC 20) werden 
eigentlich nur als Eingang für Joysticks, Lichtgriffel und Paddies 
(Drehregler) verwendet, obwohl sie vom Prinzip her program¬ 
mierbare Ports sind. Ihre universelle Verwendung ist sicher nur 
Spezialisten Vorbehalten. 

Zuletzt sollen auch die verbreitetsten Schnittstellen noch 
erwähnt werden. International haben sich besonders die folgen¬ 
den drei Schnittstellen durchgesetzt: 

- die RS232-Schnittstelle 

- die IEC/IEEE-488-Schnittstelle 

- die Centronics-Schnittstelle 

Die »RS232-Schnittstelle« ist eine serielle Schnittstelle. Sie 
wurde schon vor 100 Jahren als »TTY-Version« zur Textübertra¬ 
gung mit Fernschreibern eingerichtet, bei der die logische 0 
durch einen Strom von 20 Milliampere und die 1 durch keinen 
Strom dargestellt wurde. Heute wird fast nur noch die 
»V.24-Version« zur Datenfernübertragung verwende», bei der die 
0 durch eine positive Spannung zwischen 3 und 15 Volt, die 1 
aber durch eine entsprechende negative Spannung dargestellt 
wird. 

Beim C 64 und VC 20 ist die RS232-/V.24-Schnittstelle am 
User-Port verfügbar, allerdings nicht mit den oben genannten 
Spannungswerten für die 0 und 1. Dieses für Commodore typi¬ 
sche Sparverfahren macht eine zusätzliche Signalumsetzung 
erforderlich. Die RS232-Schnittstelle wird hauptsächlich für 
Datenübertragung per Modem oder Akustikkoppler eingesetzt. 
Ihr Arbeitsprinzip ist im Texteinschub Nr. 29 »Die Elemente der 
RS232-Schnittstelle« beschrieben. 

Zur parallelen Datenübertragung entstand in Europa die »IEC- 
625-Schnittstelle«, in USA die »IEEE-488-Schnittstelle«. Beide 
sind praktisch identisch. Sie unterscheiden sich nur in der Ver¬ 
wendung des Steckers (was natürlich idiotisch ist). Bei den Com- 
modore-Computern ist diese Schnittstelle sowohl am 
Erweiterungs-Port (1) als auch über den seriellen Port (4) eln- 
richtbar. Der serielle Port allerdings enthält wiederum eine für 
Commodore typische Einschränkung. Er erlaubt, wie sein Name 
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andeutet, nur eine serielle Datenübertragung. Das heißt, statt - 
wie bei der IEC-/IEEE-Schnittstelle festgelegt - alle 8 Bit eines 
Wortes über acht Leitungen gleichzeitig, werden hier die Bits hin¬ 
tereinander auf nur einer Leitung übertragen. Auch das erfordert 
eine zusätzliche Anpassung. Das Prinzip der IEC-/IEEE- 
Schnittstelle wurde bereits in Ausgabe 3/85 ab Seite 24 von 
Arnd Wängler genau beschrieben. 

Die »Centronics-Schnittstelle« ist aus der harten Realität des 
Geschäftslebens entstanden. Während sich noch die Normstel¬ 
len In Europa und USA herumstritten, hat der damalige Marktfüh¬ 
rer unter den Druckerherstellern, die Firma Centronics, eine 
eigene Schnittstelle geschaffen, die sich schlicht und einfach 
durch die weite Verbreitung der Centronics-Drucker durchge¬ 
setzt hat. Sie ist eine parallele Schnittstelle, die sich beim 
C 64/VC 20 sowohl am User-Port (6) als auch am seriellen Port 
(4) einrichten läßt. Zur Beschreibung der Schnittstelle habe ich 
in meiner Literatursammlung nur zwei Aufsätze gefunden, einen 
von Georg Werner in dt, Ausgabe 4/84, Seite 92, einen anderen 
von Peter Bonsch in Computer Persönlich, Ausgabe 11/83 ab 
Seite 152. Tabelle 13 gibt eine Zusammenfassung über die Rea¬ 
lisierbarkeit der drei Schnittstellen an den Ports von C 64 und VC 
20 . 

SCHNITT- PORT Erwelt. Seriell Kasse». User Spiel 

STELLE _ (1) (4) (5) (6) (6) 

RS232 _X_ 

IEC/IEEE _X_X_ 

Centronics X X 


Tabelle 13. Realisierbarkeit der Schnittstellen 
am C 64 und VC 20 


Texteinschub Nr. 29 
Die Elemente der RS232-Schnittstelle 


Da meine Texteinschübe kurz sein sollen, beschränke Ich mich 
auf Erklärungen der Vorgänge, die mit den im Kurs behandelten 
Speicherzellen 659 bis 6/0 zu tun haben. Weitere Erläuterun¬ 
gen können Sie dem Aufsatz von Jens Maßmann der Ausgabe 
5/85, Seite 80 entnehmen. 

Wortlänge: Die Schnittstelle ermöglicht die Übertragung von 
Datenwörtern (Bytes), deren Länge vor der Übertragung einge¬ 
stellt werden kann. Es sind Wortlängen von 5, 6, 7 oder 8 Bit 
erlaubt. Die Wortlänge wird durch Bit 5 und 6 der Speicherzelle 
659 eingestellt. 

Übertragungsgeschwindigkeit (Baud-Rate): Daten werden 
seriell übertragen, das heißt alle Bits eines Datenwortes (Byte) 
laufen hintereinander über eine Leitung zum Empfänger. Dabei 
ist wesentlich, daß Sender und Empfänger sich einig sind, mit 
welcher Geschwindigkeit die Bit-Kette übertragen wird. Diese 
Übertragungsgeschwindigkeit, auch Baud-Rate genannt, wird in 
Bit/s angegeben. Die Übertragungsgeschwindigkeit wird durch 
Bit 0 bis 3 der Speicherzelle 659 eingestellt und reicht von 110 
bis 2400 Bit/s. 

Stopp-Bits: Die Übertragungsgeschwindigkeit muß sowohl im 
Sender als auch im Empfänger der Daten fest eingestellt wer¬ 
den. Da die beiden Geräte dies unabhängig voneinander tun, 
besteht die Gefahr, daß diese Einstellungen nicht ganz genau 
gleich sind. Das könnte zur Folge haben, daß sie nach vielleicht 
2000 Bit um 1 Bit auseinanderliegen. Alle nachfolgenden Über¬ 
tragungen wären dann völlig falsch. 

Deshalb wird die Übertragung nach jedem Wort neu einge¬ 
stellt, man nennt das »synchronisieren*. Dazu dient am Anfang 
eines Wortes ein Start-Bit und am Ende eines Wortes ein oder 
zwei Stopp-Bits. Die Stopp-Bits definieren den Ruhezustand 
(logische 1) der Übertragungsleitung, ihre Anzahl die minimale 
Zeit des Ruhezustandes. Sobald ein neues Wort mit einem Start- 
Bit (logische 0) beginnt, übernimmt der Empfänger den Über¬ 
gang von 0 nach 1 als Startimpuls für die Abfrage der nächsten 


ankommenden Bits. Die Anzahl der Stopp-Bits werden durch 
Bit 7 der Speicherzelle 659 eingestellt. 

Paritätsprüfung: Zusätzlich zu den Datenbits und den Start-/ 
Stopp-Bits können sogenannte Paritätsbits übertragen werden. 
Sie ermöglichen eine grobe Fehlerkontrolle. Der Sender errech¬ 
net die Quersumme aller Datenbits. Bei der sogenannten »gera¬ 
den« Paritätsprüfung wird das Paritätsbit so gewählt, daß es die 
Quersumme zu einer geraden Zahl ergänzt, bei der »ungeraden« 
Paritätsprüfung ist es gerade umgekehrt. Der Empfänger macht 
dieselbe Rechnung und vergleicht sein Paritätsresultat mit dem 
empfangenen Paritätsbit des Senders. Sie sollten natürlich 
gleich sein. Auf diese Weise können einfache Übertragungsfeh¬ 
ler erkannt werden. In den Commodore-Computern sind noch 
zwei weitere Möglichkeiten eingebaut, nämlich das Paritätsbit 
ohne Quersummenrechnung immer auf 1 oder aber immer auf 0 
zu setzen. Mit den Bits 5 bis 7 der Speicherzelle 660 können 
insgesamt vier verschiedene Paritätsprüfungen eingestellt wer¬ 
den (siehe auch Texteinschub Nr. 18). 

Duplex-Modus: Sind zwei Geräte, von denen eines nur emp¬ 
fangen, nicht aber selbst senden kann, übereine Leitung verbun¬ 
den, nennt man diese Einbahnstraße eine Simplex-Verbindung. 
Können aber beide Geräte senden und empfangen, spricht man 
von einer Duplex-Verbindung. 

Duplex gibt es in zwei Betriebsarten. Der Voll-Duplex-Modus 
erlaubt ein gleichzeitiges Senden beider Geräte. Im Halb- 
Duplex-Modus kann immer nur ein Gerät senden, allerdings 
wechselweise. Der Duplex-Modus wird durch Bit 4 der Speicher¬ 
zelle 660 eingestellt. 

Handshake-Protokoll: Mit Handshake (Händeschütteln) wird 
ein Verfahren bezeichnet, bei dem zwei Geräte sich gegenseitig 
durch gesonderte Signale mitteilen, ob sie bereit sind, Daten 
abzusenden beziehungsweise zu empfangen. Die Festlegung 
der zeitlichen Reihenfolge dieser Handshake-Signale nennt man 
Proto!"'«. 

Dieses Verfahren hat den Vorteil, daß Sender und Empfänger 
völlig unabhängig voneinander ihr eigenes Programm ausführen 
können und nur selten aufeinander warten müssen. Vorausset¬ 
zung ist allerdings ein Pufferspeicher (siehe unten). Es gibt zwei 
Arten von Handshakes, den 3-Leitungs-Handshake (auch 
Rückkanal-Handshake genannt) und den X-Leitungs- oder Voll- 
Handshake. 

Der 3-Leitungs-Handshake braucht, wie der Name sagt, nur 
drei Leitungen: für gemeinsame Erde (Masse), für die gesende¬ 
ten Daten und für die empfangenen Daten. Der Handshake 
besteht darin, daß der Empfänger auf der freien Leitung, eben 
dem Rückkanal, dem Sender durch je ein Zeichen mitteilt, wenn 
er bereit ist, Daten zu übernehmen oder wenn er keine Daten 
übernehmen kann. 

Der X-Leitungs-Handshake stellt viel mehr Leitungen zur Verfü¬ 
gung, nämlich die gleichen drei wie vorher, zusätzlich aber pro 
Sender und Empfänger mehrere Leitungen für Anmeldung und 
Rückmeldung der Bereitschaft, sowie für die Ausführung der 
Übertragung. Es gibt theoretisch insgesamt 25 Leitungen für die 
RS232-Schnittstelle, beim C 64 beziehungsweise VC 20 sind 
aber nur zehn ausgeführt. Das Handshake-Protokoll kann durch 
Bit 0 der Speicherzelle 660 ausgewählt werden. 

Pufferspeicher: Immer wenn ein RS232-Kanal geöffnet wird, 
zwackt das Betriebssystem des Computers dem Programmspei¬ 
cher am oberen Ende zwei Pufferspeicher ab, mit einer Größe 
von je 256 Byte für empfangene und zu sendende Daten. Diese 
First-In-First-Out-Speicher (die als erste eingespeicherten 
Daten werden auch als erste wieder ausgelesen) sind als dyna¬ 
mische Ringspeicher aufgebaut. Statt zu warten, bis der Emp¬ 
fänger zur Datenübernahme bereit ist, schreibt der Sender die 
Daten in den Pufferspeicher, aus dem die Schnittstelle sie an den 
Empfänger weitergibt, sobald dieser bereit ist. 

Dieses fast ungeordnete Füllen und Leeren des Pufferspei¬ 
chers hat zur Folge, daß Beginn und Ende des Speichers je nach 
Datenmenge innerhalb der 256 Byte stets in Bewegung sind. 
Um jederzeit die Anfangs- und Endadressen feststellen zu kön¬ 
nen, werden sie in den Speicherzellen 667 bis 670 mitgezählt. 
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Statusregister: In der Speicherzelle 663 werden alle Fehler 
einer RS232-Übertragung festgehalten. Jedes Bit hat eine 
eigene Bedeutung, die in der Tabelle bei der Beschreibung der 
Speicherzelle 663 angegeben ist. Diese Fehler werden leider 
nicht, wie im Basic, automatisch angezeigt. Sie müssen vielmehr 
ausgelesen und identifiziert werden, um dann im Programm mit 
entsprechenden Maßnahmen korrigiert zu werden. 


Texteinschub Nr. 30 

Die Programmierung der RS232-Schnittstelle 

Die Programmierung der RS232-Schnittstelle ist denkbar ein¬ 
fach. Alle dazu notwendigen Routinen sind im Betriebssystem 
des Computers bereits enthalten. Das genau macht ja die 
Schnittstelle so attraktiv. Die Schnittstelle verwendet genau die¬ 
selben Befehle wie die serielle Schnittstelle, über die der Com¬ 
puter mit Floppy und Drucker verbunden ist, nämlich OPEN, 
CMD, PRINT#, GET#, INPUT# und CLOSE. Auch die Status¬ 
variable ST wird herangezogen. Wichtig Ist jedoch, daß die 
RS232-Schnittstelle die Gerätenummer 2 hat. 

Eröffnung des RS232-Kanals 
Wie gewohnt, wird er mit dem OPEN-Befehl geöffnet: 

OPEN File-Nr, Geräte-Nr, Datenkanal-Nr, File-Name 

- die File-Nummer kann Werte von 0 bis 255 annehmen, wie bei 
jedem OPEN-Befehl auch 

- die Geräte-Nummer ist immer 2 

- der Wert der Datenkanal-Nummer Ist bedeutungslos, da immer 
nur ein RS232-Kanal offen sein darf. Wird zusätzlich ein zweiter 
Kanal geöffnet, werden die Daten des ersten Kanals im Puffer¬ 
speicher zerstört. 

- der File-Name hat hier eine besondere und entscheidende 
Bedeutung. Er besteht aus maximal vier Zeichen. Der ASCII- 
Wert des ersten Zeichens wird In die Speicherzelle 659 übertra¬ 
gen und legt dadurch die Übertragungsgeschwindigkeit, die 
Wortlänge und die Anzahl der Stopp-Bits fest (siehe Textein¬ 
schub Nr.29). Der ASCII-Wert des zweiten Zeichens gelangt in 
die Speicherzelle 660 und bestimmt dadurch das Handshake- 
Protokoll, den Duplex-Modus und die Paritätsprüfung (siehe 
Texteinschub Nr.29). Zeichen 3 und 4 sind nicht festgelegt. 

Man kann den File-Namen des OPEN-Befehls in zwei Arten 
schreiben, die natürlich identisch sind: 

(1) OPEN l,2,0,CHR|(7+64+128) + CHR|( 1+1602) 

(2) OPEN 1,2,0,CHR|(199)+CHR|(49) 

Theoretisch könnte man noch eine dritte Schreibweise her¬ 
nehmen, nämlich die Zeichen hinschreiben, die den ASCII-Wert 
199 beziehungsweise 49 haben. Dann käme die Schreibweise 
einem File-Namen noch am nächsten. Ein Blick in die Tabelle der 
ASCII-Codes belehrt uns aber eines Besseren, da wir Zweideu¬ 
tigkeiten nicht ausschließen können. Also ist die Schreibweise 
der Zeichen mit ihren ASCII-Werten doch am besten. Ich persön¬ 
lich ziehe die Schreibweise (1) vor, da wir aus ihr sofort die 
dadurch definierten Werte ablesen können. 

»CHR$(7+64 + 128)« 

Datenrate = 600 Bit/s- 1 

Wortlänge = 6 Bit- 1 

Stopp-Bit = 2- 

Sie können die Zusammenhänge direkt der Tabelle 11 entneh¬ 
men, die bei der Erklärung der Speicherzelle 659 steht. 

Entsprechend wird aus der Tabelle 12 der Speicherzelle 660 
das zweite Zeichen »CHR$(1 + 16+32)« zusammengesetzt: 

»CHR$(1 + 16+32)« 

Handshake = X-Leitung-—1 

Duplex = Halb-Duplex- ' 

Parität = Ungerade- 

Der OPEN-Befehl mit Gerätenummer 2 hat noch eine Beson¬ 
derheit, die ich schon bei der Besprechung der Speicherzellen 
55 und 56 erwähnt habe. Sobald er nämlich im Programm auf¬ 
taucht, wird durch ihn der Zeiger in 55 und 56, der ja das obere 
Ende des Programmspeichers angibt, um 512 Byte nach unten 
geschoben, um Platz für die beiden Pufferspeicher zu schaffen. 


Wenn das mitten Im Programm passsiert und vorher schon Zei¬ 
chenketten (Strings) definiert worden sind (die bekanntlich vom 
oberen Ende des Speichers aus angelegt werden), werden 
diese überschrieben. 

Also Vorsicht: Wer beabsichtigt, in einem Programm eine 
RS232-Schnittstelle zu aktivieren, soll diese unbedingt am 
Anfang des Programms öffnen, damit der Speicherplatz richtig 
zugeordnet wird. 

Daten an den RS232-Kanal übergeben 

Die Daten werden zuerst in den Ausgabepuffer gebracht, von 
dort gelangen sie, vom Handshake-Protokoll gesteuert, an den 
Empfänger. Die Befehle dazu sind CMD und PRINT#" 

»CMD File-Nr.,Zeichen« schaltet vom Bildschirm auf den 
RS232-Empfänger um. 

»PRINT # File-Nr, Zeichen« schreibt die Zeichen in den Aus¬ 
gabepufferspeicher, von wo sie die Schnittstelle automatisch 
herausholt. 

Beide Befehle wirken genauso wie bei anderen Dateien. Vor¬ 
sicht ist jedoch geboten, wenn laufend Daten in den Pufferspei¬ 
cher geschrieben werden, ohne zu wissen, ob die Schnittstelle 
den Puffer auch wieder entleert hat. Bei Überlauf des Puffers 
gehen Daten verloren. Es ist ratsam, durch Vergleich der beiden 
Indizes in den Speicherzellen 669 und 670, die Anfang und 
Ende des Ausgabepufferspeichers markieren, auf Überlauf zu 
prüfen. 

Daten vom RS232-Kanal übernehmen 

Daten, die von der Schnittstelle in den Eingabepufferspeicher 
gebracht worden sind, werden mit INPUT# oder GET# 
ausgelesen: 

INPUT # File-Nr, Zeichen 
GET # File-Nr, Zeichen 

Auch hier kann ein Überlaufen des Pufferspeichers auftreten, 
wenn nämlich die Schnittstelle mehr oder schneller Daten liefert, 
als mit GET # oder INPUT # ausgelesen werden können. Dieser 
Zustc. i kann sowohl durch Überprüfung der Indizes in den Spei¬ 
cherzellen 667 und 668 als auch durch Prüfung von Bit 2 des 
Statusregisters in 663 erkannt beziehungsweise vermieden 
werden. Der Speicher kann auch leer sein. Bel Verwendung von 
INPUT# wartet der Rechner und stürzt bei abgeschalteter 
Schnittstelle ab. Es ist deshalb empfehlenswert, immer den 
Befehl GET # zu verwenden, der bei leerem Speicher höch¬ 
stens einen Nullstring ("") liefert. Bit 3 des Statusregisters prüft 
diesen Fall. 

Schließen des RS232-Kanals 

Der Befehl »CLOSE File-Nr.« schließt den Kanal. Dabei werden 
die Ein- und Ausgabe-Pufferspeicher aufgelöst, indem der Zei¬ 
ger in Speicherzelle 55 und 56 wieder auf das Ende des Pro¬ 
grammspeichers zeigt. Alle Handshake-Leitungen werden in den 
Ruhezustand gesetzt und alle Datenübertragungen 
unterbunden. 

Programm-Beispiel 

Für eine echte Demonstration müßten Sie eine RS232- 
Schnlttstelle über den User-Port eingerichtet haben. Da ich das 
nicht voraussetzen kann, begnüge ich mich damit, das im Pro¬ 
grammierhandbuch von Commodore angegebene Beispiel zu 
bringen und zu kommentieren. 

10 OPEN l,2,0,CHR|(6+32)+CHR|(32+128) 

20 GET #1, A$ 

30 GET B$ 

40 IF B$ < > ' *THEN PRINT#1,B|;:PRINT B| 

50 GET # 1,C{ 

60 PRINT C|; 

70 PR = PEEK(663) 

80 IF PR=0 OR PR=8 THEN 30 

100 IF PR AND 1 THEN PRINT 'PARITY-FEHLER' 

110 IF PR AND 2 THEN PRINT 'BITFOLGE-FEHLER" 

120 IF PR AND 4 THEN PRINT 'EINGABESPEICHER VOLL' 

130 IF PR AND 128 THEN PRINT 'UNTERBRECHUNG' 

Zeile 10 öffnet den RS232-Kanal mit 1 Stopp-Bit, 300 Bit/s 
und 7 Bit Wortlänge, außerdem über 3-Leitungs-Handshake, 
Voll-Duplex und ohne Parität. 
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Zeile 20 will den Eingabespeicher auslesen, der aber noch 
leer ist. Der resultierende Nullstring interessiert uns nicht, aber 
die Schnittstelle signalisiert über Handshake, daß wir bereit sind, 
Daten zu übernehmen. 

Zeile 30 fragt inzwischen die Tastatur ab. Wenn eine Taste 
gedrückt worden ist, schiebt Zeile 40 das Zeichen In den Ausga¬ 
bespeicher und druckt es nochmal auf dem Bildschirm aus. 

Zeile 50 liest wieder den Eingabespeicher aus. Falls inzwi¬ 
schen Daten über die Schnittstelle gekommen sind, druckt Zeile 
60 das erste Zeichen auf den Bildschirm. 

Zeile 70 ordnet der Variablen PR(üfung) den Inhalt des Status¬ 
registers 663 zu. Ist kein Fehler aufgetreten (PR=0) oder ist der 
Eingabespeicher immer noch leer (PR=8), dann springt Zeile 
80 zurück zur Tastaturabfrage, und der Zyklus läuft weiter. Ist 
aber ein Fehler aufgetreten, wird dieser ab Zeile 100 geprüft und 
ausgedruckt. 


Adresse 665 und 666 
($299 und $29A) 

RS232 - Zelt, die zum übertra¬ 
gen eines Bits gebraucht wird 

Sobald ein RS232-Kanal er¬ 
öffnet worden ist, berechnet 
das Betriebssystem einen Wert, 
der die Zeitdauer eines Bits 
festlegt. Da die Übertragungs¬ 
rate in Speicherzelle 659 ein¬ 
stellbar ist, hängt diese Bit- 
Dauer von der gewählten Über¬ 
tragungsgeschwindigkeit ab. 
Die Bit-Dauer errechnet sich 
aus der Systemfrequenz 
(985,25 kHz) geteilt durch die 
Übertragungsgeschwindigkeit. 
Dieser Wert steht in Low-/High- 
Byte-Darstellung in diesen bei¬ 
den Speicherzellen, von wo aus 
er vom Betriebssystem abgeru¬ 
fen wird. 

Adresse 667 ($29B) 

RS232-lndex auf das Ende des 
Eingabepufferspeichers 

Dieser Index wird verwendet, 
um Daten in den Eingabepuffer¬ 
speicher zu schreiben. Wenn 
man ihn nämlich zum Inhalt der 
Speicherzelle 247/248 ad¬ 
diert, erhält man die Adresse 
dös zuletzt in den Eingabe- 
Pufferspeicher eingegebenen 
Bytes 

Adresse 668 ($29C) 

RS232-lndex auf den Anfang 
des Eingabepufferspeichers 

Dieser Index wird verwendet, 
um Daten aus dem Eingabepuf¬ 
ferspeicher auszulesen. Wenn 
man ihn nämlich zum Inhalt der 
Speicherzelle 247 und 248 ad¬ 
diert, erhält man die Adresse 
des ersten in den Eingabe¬ 
pufferspeicher eingegebenen 
Bytes. 

Adresse 669 ($29D) 

RS232-lndex auf den Anfang 
des Ausgabepufferspeichers 


Dieser Index wird verwendet, 
um Daten aus dem Ausgabepuf¬ 
ferspeicher auszulesen. Wenn 
man ihn nämlich zum Inhalt der 
Speicherzelle 249 und 250 ad¬ 
diert, erhält man die Adresse 
des ersten in den Ausgabe¬ 
pufferspeicher eingegebenen 
Bytes. 

Adresse 670 ($29E) 

RS232-lndex auf das Ende des 
Ausgabepufferspeichers 

Dieser Index wird verwendet, 
um Daten in den Ausgabepuffer¬ 
speicher zu schreiben. Wenn 
man ihn nämlich zum Inhalt der 
Speicherzelle 249 und 250 ad¬ 
diert, erhält man die Adresse 
des zuletzt in den Ausgabe¬ 
pufferspeicher eingegebenen 
Bytes. 

Adresse 671 und 672 
($29F und $2A0) 

Zwischenspeicher für den 
IRQ-Vektor während Kasset- 
ten-Ein-/Ausgabe 

Die Routinen des Betriebs¬ 
systems, die Daten auf, bezie¬ 
hungsweise von Kassette ein- 
und ausgeben, werden durch 
die Interrupt-Routine gesteuert. 
Diese Routine unterbricht nor¬ 
malerweise 60mal In der 
Sekunde alle Aktivitäten des 
Computers, um diverse »Haus¬ 
aufgaben« (Uhr weiterschalten, 
STOP-Taste abfragen und so 
weiter) auszuführen. Bei 
Kassetten-Eln-/Ausgaben ist 
diese Interrupt-Routine jedoch 
abgeschaltet. Dies wird 
dadurch erreicht, daß der Vek¬ 
tor in Speicherzelle 788 und 
789, der auf die Anfangsadres¬ 
se der Interrupt-Routine zeigt, 
auf eine Adresse der Kassetten- 
Routine gesetzt wird. Um nach 
der Kassettenoperation weiter¬ 
machen zu können, wird der 
»alte« Interrupt-Vektor In dieser 
Speicherzelle 671 und 672 ge¬ 
speichert. 


Adresse 673 ($2A1) 

bei C 64: Flagge für RS232-ln- 
terrupt bei VC 20: frei verfüg¬ 
bar 

Diese Speicherzelle enthält 
den Wert des Interrupt-Steuer¬ 
registers 56589, das die 
RS232-Schnittstelle steuert. 
Die Bedeutung der einzelnen 
Bits, wenn sie auf 1 gesetzt 
sind, zeigt Tabelle 15. Diese 
Flagge kann zu Steuerzwecken 
abgefragt werden. Um bei¬ 
spielsweise ein Programm war¬ 
ten zu lassen, bis der Ausgabe¬ 
pufferspeicher geleert ist, gibt 
man die Anweisung 

100 IF (PEEK(673) AND l) 

THEN100 

die das Programm so lange auf¬ 
hält, bis die Übertragung abge¬ 
schlossen und Bit 0 der Flagge 
gelöscht ist. 

Die folgenden 4 Speicherzel¬ 
len, nämlich 674 bis 678, wer¬ 
den nur vom C 64 benutzt. Beim 
VC 20 sind sie nicht belegt und 
können frei verwendet werden. 

Adresse 674 ($2A2) 

Indikator für das Steuerregi¬ 
ster A des CIA #1 

Mit CIA werden die beiden 
»Gomuljx Interface Adapter« 
des C 64 bezeichnet. Das sind 
integrierte Schaltkreise, die Ein- 
und Ausgabeoperationen steu¬ 
ern. Jeder der beiden CIAs hat 
mehrere Register. Das Steuer¬ 
register A (Adresse 56334 
beziehungsweise $DC0E) be¬ 
einflußt die Zählregister des 
CIA, die ihrerseits die Ein- und 
Ausgabe von Daten auf bezie¬ 
hungsweise von Kassetten 
steuern. Das Betriebssystem 
speichert zu diesem Zweck 
geeignete Bitmuster in der 
Speicherzelle 674 ab, die von 
da In das Steuerregister transfe¬ 
riert werden. 

Adresse 675 ($2A3) 

Speicher für das Interrupt- 
Steuerregister B des CIA #1 

Ein weiteres Register 
(Adresse 56333 beziehungs¬ 
weise $DC0D) ist für die Unter¬ 
brechungen (Interrupt) des 
Computers bei Ein- und Ausga¬ 
ben zuständig. 

In der Speicherzelle 675 wer¬ 
den Werte dieses Interruptregi¬ 
sters beim Lesen von der Kas¬ 
sette zwischengespeichert. 


Adresse 676 ($2A4) 

Zusatzspeicher für Steuer¬ 
register B des CIA #1 

Derselbe Wert, der bei der 
Vorbereitung des Lesevorgan¬ 
ges von der Kassette In die 
Speicherzelle 674 kommt, 
gelangt auch nach 676, von wo 
er zu einem späteren Zeitpunkt 
beim Lesen zu Vergleichs¬ 
zwecken herangezogen wird. 


Adresse 677 ($2A5) 

Zwischenspeicher für das 
Llnk-Byte während des Bild¬ 
schirm-Scrollens 

Das Betriebssystem enthält 
eine Routine, welche den Bild¬ 
schirminhalt hochschiebt 
(scrollt), sobald eine leere Zeile 
eingeschoben wird. Das bedeu¬ 
tet, daß jedesmal die Angaben 
in den Llnk-Tabellen der Spei¬ 
cherzellen 217 bis 241 geän¬ 
dert werden müssen. In der 
Speicherzelle 677 wird nun das 
Unk-Byte zwischengespei¬ 
chert, während der obere Teil 
des Bildschirms hochgescho¬ 
ben wird. Beim VC 20 gibt es 
diese Funktion übrigens auch. 
Sie wird durch die Speicherzelle 
242 ausgefüllt. 

Adresse 678 ($2A6) 

Flagge für PAL oder NTSC 

Im Gegensatz zum VC 20, der 
entweder fest auf die deutsche 
Fernsehnorm PAL oder aber auf 
die amerikanische Norm NTSC 
eingestellt ist, kann der C 64 
beide Normen verkraften. Diese 
beiden Normen beziehen sich 
unter anderem auf die Anzahl 
der Zeilen und auf die Abtast- 
Geschwindigkeit des Licht¬ 
strahls im Fernsehgerät oder im 
Monitor. Das Betriebssystem 
des C 64 überprüft gleich beim 
Einschalten, ob eine Rasterzeile 
311 Im angeschlossenen Sicht¬ 
gerät vorhanden ist. Ist sie nicht 
vorhanden, muß alles auf die 
NTSC-Norm eingestellt werden, 
da diese nur 262 Rasterzeilen 
hat und mit einer internen Takt¬ 
frequenz von 14,3 MHz läuft. Ist 
eine Rasterzeile 311 vorhan¬ 
den, wird auf PAL-Norm einge¬ 
stellt mit einer Taktfrequenz von 
17,7 MHz. Das Resultat dieses 
Tests wird in der Speicherzelle 
678 gespeichert: als 0 für 
NTSC und 1 für PAL. 


Bit 0 (Bitwert 1) Daten werden gesendet 

Bit 1 (Bitwert 2) Daten werden empfangen 

Bit 4 (Bitwert 16) Schnittstelle wartet auf Daten 

vom Sender 

Tabelle 15. Flagge für RS232-lnterrupt 
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Adresse 679 bis 767 
($2A7 bis $2FF) 

nicht belegt 

Diese 89 Byte sind frei und 
können für alle möglichen Pro¬ 
gramme und Anwendungen ver¬ 
wendet werden. Beim VC 20 
stehen sogar 95 Byte zur Verfü¬ 
gung, da der freie Bereich ja 
schon ab Speicherzelle 673 
beginnt. Dieser Speicherbe¬ 
reich hat den Vorteil, daß er - 
wie der Kassettenpuffer ja auch 
- von Basic nicht gestört wird. 
Er kann also für kleinere Maschi¬ 
nenprogramme oder auch für 
Sprite-Blöcke verwendet wer¬ 
den. Gegenüber dem Kasset¬ 
tenpuffer hat dieser Bereich 
den Vorteil, daß er durch Kas¬ 
settenoperationen nicht gestört 
wird. 

Die nächsten 12 Speicherzel¬ 
len enthalten 6 Vektoren, deren 
Bedeutung bei der Überset¬ 
zung von Basic-Programmen im 
Texteinschub Nr. 31 indirekte 
Sprung-Vektoren« näher erklärt 
wird. 

Adresse 768 und 769 
($300 und $301) 

Vektor auf die Ausgabe von 
Fehler-Meldungen (ERROR) 

Dieser Vektor zeigt auf die 
Anfangsadresse der Basic- 
Routine, welche für die leidigen 
Fehlermeldungen zuständig ist. 
Beim C 64 zeigt der Vektor auf 
58251 ($E38B), beim VC 20 
auf 50234 ($C438). 

Diese Routine verwendet 
eine Tabelle im Basic-Über- 
setzer, in der alle Fehlermeldun¬ 
gen gespeichert sind. Sie liegt 
im Speicherbereich 41374 bis 
41767 (beim VC 20 49566 bis 
49959). Die Routine verwendet 
den Inhalt des X-Registers 
(siehe Speicherzelle 781), um 
die entsprechende Fehlermel¬ 
dung ganz einfach durch Abzäh¬ 
len der Reihenfolge aus der 
Tabelle auszulesen und auf dem 
Bildschirm anzuzeigen. 

Ein Verbiegen dieses Vektors 
ist für zwei Anwendungsfälle 
sinnvoll. Man kann die Fehler¬ 
meldung abschalten, um zu prü¬ 
fen, ob ein bestimmtes Periphe¬ 
rie-Gerät, zum Beispiel das 
Floppylaufwerk, angeschlos¬ 
sen beziehungsweise einge¬ 
schaltet ist. Die Fehlermeldung 
ist abschaltbar mit POKE 
768,61. Wieder eingeschaltet 
wird sie mit POKE 768,139. Ein 
Anwendungsbeispiel habe ich 
bereits im Texteinschub Nr. 14 
»ST-atus« gebracht. 

Die zweite Anwendung einer 


Verbiegung zielt auf eine Über¬ 
setzung der Fehlermeldungen. 
Wem der vorgegebene engli¬ 
sche - und manchmal nicht 
gerade einleuchtende - Text der 
Fehlermeldungen nicht gefällt, 
kann den Vektor auf einen Spei¬ 
cherbereich legen, in dem er 
seine speziellen deutschen 
Fehlermeldungen speichert. 
Eine genaue Kenntnis der Feh¬ 
lermeldungsroutine ist dazu 
allerdings erforderlich. 

Adresse 770 und 771 
($302 und $303) 

Vektor auf die Hauptroutine 
zur Ausführung von Basic- 
Befehlen 

Dieser Vektor zeigt auf die 
Adresse 42115 ($A483), beim 
VC 20 auf 50307 ($C483). Die 
dort beginnende Routine steu¬ 
ert den Direkt-Modus, indem sie 
entweder direkt eingegebene 
Befehle ausführt oder mit Zei¬ 
lennummer eingegebene An¬ 
weisungen speichert. 

Adresse 772 und 773 
($304 und $305) 

Vektor auf die Baslc-Routlne, 
die ASCII-Text ln Token um¬ 
wandelt 

Dieser Vektor zeigt auf 
42364 ($A57C), beim VC 20 
auf 50556 ($C57C). Dort 
beginnt eine Routine, die nach 
dem Drücken der RETURN- 
Taste alle Anweisungen der 
damit eingegebenen Zeile 
absucht und Text beziehungs¬ 
weise Wörter, die nicht zwi¬ 
schen Gänsefüßen stehen, als 
Basic-Befehle interpretiert und 
sie dann in sogenannte »Token« 
umwandelt. Token sind Code¬ 
zahlen, die im Computer 
anstelle von Textbefehlen ver¬ 
wendet werden. Sie sind im 
Texteinschub Nr. 32 »Die Kurz¬ 
schrift von Basic« näher 
beschrieben. 

Dieser Vektor kann verbogen 
werden, um zusätzliche Basic- 
Befehle zu erfinden und in das 
Betriebssystem einzubauen. 

Adresse 774 und 775 
($306 und $307) 

Vektor auf die Baslc-Routlne, 
die Token in ASCII-Werte 
zurückwandelt (LIST) 

Dieser Vektor zeigt auf die 
Adresse 42778 ($A71A), beim 
VC 20 auf 50970 ($C71A). 
Dort beginnt eine Routine, die 
Token wieder in LISTbaren Text 
umwandelt. Sie steht nicht 
allein, sondern wird als Unter¬ 


programm von der LIST-Routlne 
verwendet. 

Falls ein Programmierer spe¬ 
zielle zusätzliche Basic-Befehle 
erfunden hat, kann er durch Ver¬ 
biegen dieses Vektors seine 
eigenen Token lesbar 
ausLISTen. 

Man kann auch durch eine 
entsprechende Verbiegung 
erreichen, daß die LIST-Routine 
nicht angesprungen werden 
kann, was gleichbedeutend ist 
mit einer LIST-Sperre. Das ist 
aber wohl nur sinnvoll bei einem 
Autostart-Programm. 

Besser finde ich da ein klei¬ 
nes Programm, das J.Pellechi in 
der Zeitschrift RUN, Ausgabe 
6/85 (Seite 10), angegeben 
hat: 

10 F0R J=679 T0 688 
20 READ K 
30 POKE J,K 
40NEXT J 

50 POKE 774,167:POKE 775,2 
60 NEW 

70 DATA 72,173,141 
80 DATA 2,208,251,104 
90 DATA 76,26,167 
Beim VC 20 ist nur die Zeile 
90 verschieden: 

90 DATA 76,26,199 
In den freien Speicherbereich 
ab Spc: herzelle 679 wird ein 
kleines Maschinenprogramm 
gePOKEt, das in den DATA-Zei- 
len 70 bis 90 steht. In Zeile 50 
steht der für unser Beispiel ent¬ 
scheidende Befehl: Der Vektor 
in 774 und 775 wird nach der 
Adresse 679 verbogen. 
Dadurch springt die UST- 
Routine immer zuerst auf die 
Adresse 679, in der sie das 
kleine Maschinenprogramm 
findet. 

Disassembliert schaut das so 
aus: 

02A7 48 PHA 

02A8AD8D02 LDA 028D 
02AB DO FB BNE 02A8 

02AD 68 PU 

02AE 4C 1A A7 JHP A71A 

Zuerst wird der Akkumulator 
mit dem Inhalt der Speicherzelle 
653 ($28D) geladen. Dort steht 
bekanntlich eine Zahl von 1 bis 
7, je nachdem, ob die SHIFT-, 
CTRL- oder Commodore-Taste 
gedrückt ist. Ist dies der Fall, 
springt das Programm auf die 
Adresse 680 zurück und bildet 
so eine Dauerschleife, bis die 
Taste wieder losgelassen wird. 
Erst dann geht es weiter mit der 
ursprünglichen Zieladresse des 
Vektors in 774 und 775, näm¬ 
lich SA71A (42778) bezie¬ 
hungsweise $C71A (50970) 
beim VC 20. 

Auf diese Weise können Sie 
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das LISTen eines Programms 
mit einer der drei genannten 
Tasten anhalten. 

Adresse 776 und 777 
($308 und $309) 

Vektor auf die Baslc-Routlne, 
die den nächsten Befehl liest 
und ausführt 

Dieser Vektor zeigt auf die 
Adresse 42980 ($A7E4), beim 
VC 20 auf 51172 ($C7E4). 
Diese Routine prüft das nächste 
Token, ob es gültig ist. Wenn der 
ASCII-Wert des Token kleiner 
als 128 ist, wird er als Zeichen 
einer Variablen angesehen, und 
das System springt auf die LET- 
Routine. Das erklärt, warum zur 
Definition einer Variablen der 
LET-Befehl auch weggelassen 
werden kann. 

Durch Verbiegen dieses Vek¬ 
tors kann zum Beispiel eine Tra- 
ce-Routine gebaut werden, wel¬ 
che zuerst die Nummer der 
Zeile ausdruckt, die gerade aus¬ 
geführt wird, bevor sie auf die 
ursprüngliche Zieladresse des 
Vektors zurückkehrt. 

Adresse 778 und 779 
($30A und $30B) 

Vektor auf die Basic-Routine, 
die einen numerischen Aus¬ 
druck in eine Gleitkommazahl 
umwandelt 

Dieser Vektor zeigt auf 
44675 ($AE83), beim VC 20 
auf 52867 (SCE83). Hier 
beginnt eine Routine, die einen 
einzelnen numerischen Wert, 
wenn er Teil eines Ausdrucks 
ist, von seinem ASCII-Wert in 
eine Gleitkomma-Zahl umwan¬ 
delt. 

Ist der Ausdruck eine Kon¬ 
stante, wird diese Umwandlung 
durchgeführt. 

Ist der Ausdruck eine Variable, 
wird ihr Zahlenwert aus dem 
Variablenspeicher geholt. 

Ist der Ausdruck die Zahl »pi«, 
wird der Zahlenwert für »pi« in 
den Gleitkomma-Akkumulator 
gebracht. 

Speicher für 
die Register 
des Mikroprozessors 

Der SYS-Befehl holt aus den 
nächsten vier Speicherzellen 
alle notwendigen Parameter, die 
für ein mit SYS zu startendes 
Maschinenprogramm notwen¬ 
dig sind. Er speichert sie in die 
vier Register des Mikroprozes¬ 
sors 6510 (beim VC 20 heißt er 
6502). Es sind dies: 

- der Akkumulator 

- das X-Register 





C 64/VC 20 


GRUNDLAGEN 


- das Y-Register 

- das P-(Status-)Register 

Die Bedeutung der Register 
ist im Assembler-Kurs erklärt 
worden. 

Normalerweise funktioniert 
der SYS-Befehl nur, wenn vor¬ 
her schon alle Parameter des 
aufgerufenen Maschinenpro¬ 
gramms richtig vorhanden sind, 
was meistens nicht der Fall ist. 

So können Sie zum Beispiel 
mit Aufrufen der Load-Routine 
durch SYS 62622 nichts aus- 
richten, weil die für LOAD erfor¬ 
derlichen Parameter, nämlich 
Gerätenummer, File-Namen, 
Anfangs- und Endadresse, nicht 
festgelegt sind. 

Wie dies mit Hilfe der vier fol¬ 
genden Register-Speicherzel¬ 
len erreichbar ist, hat Rolf Zwei¬ 
fel schon in der Ausgabe 7/84, 
Seite 131 erklärt. Weil das aber 
schon lange her ist und weil es 
hier so schön in den Kurs paßt, 
wiederhole ich dieses Thema im 
Texteinschub Nr.33 »Der vorbe¬ 
reitete SYS-Befehl«. 

Adresse 780 ($30C) 

Speicher für den Akkumulator 

Adresse 781 ($30D) 

Speicher für das X-Reglster 

Adresse 782 ($30E) 

Speicher für das Y-Register 

Adresse 783 ($30F) 

Speicher für das Statusre¬ 
gister 

Die nächsten drei Speicher¬ 
zellen 784 bis 786 sind beim 


VC 20 nicht belegt. Beim C 64 
entsprechen sie den Adressen 
0 bis 2 des VC 20. 

Adresse 784 bis 786 
($310 bis $312) 

Sprungbefehl und wählbare 
Sprungadresse des USR-Be- 
fehls 

Mit dem Basic-Befehl USR 
wird bekanntlich ein Maschi¬ 
nenprogramm gestartet. Diese 
drei Speicherzellen werden bei 
der Abwicklung von USR ver¬ 
wendet. In ihnen muß der 
Anwender des USR-Befehls die 
Zieladresse in Low-/High-Byte- 
Darstellung angeben, ab der 
das Maschinenprogramm im 
Speicher steht. 

Dieser Vorgang ist bereits 
behandelt worden bei den Spei¬ 
cherzellen 0 bis 2 des VC 20, 
die ja genau den Speicherzellen 
784 bis 786 des C 64 ent¬ 
sprechen. 

Speziell für den C 64 ist der 
USR-Befehl noch einmal behan¬ 
delt, und zwar im Texteinschub 
Nr. 34 »Das Mauerblümchen 
USR«. 

Adresse 787 ($313) 

beim C 64 und VC 20 nicht 
belegt 

Während dieses freie Byte 
des C 64 nicht viel nutzt, haben 
VC 20-Besitzer immerhin vier 
aufeinanderfolgende freie Byte 
für eigene Vektoren und andere 
zwischenzuspeichernde Werte 
zur Verfügung, die nie in Gefahr 
geraten, von einem Basic-Pro- 
gramm überschrieben zu wer¬ 
den. 


Texteinschub Nr. 31 
Indirekte Sprung-Vektoren 

Mit »Vektor« wird ein Adressenpaar bezeichnet, dessen Inhalt 
In der Low-/High-Byte-Darstellung wiederum eine Adresse 
angibt, ab der ein Maschinenprogramm beginnt. 

Wenn man nun mit dem Maschinencode-Befehl JMP (jump) 
auf die Adresse springt, die der Vektor angibt, läuft das Maschi¬ 
nenprogramm ab dieser Adresse los. 

Bekanntlich stehen im nicht veränderbaren ROM-Speicher 
viele Unterprogramme (Routinen) des Basic-Übersetzers und 
des Betriebssystems, die auch für andere Programme verwend¬ 
bar sind. Commodore hat nun die brillante Idee gehabt, mehrere 
dieser Routinen herauszusuchen und Ihre Anfangsadressen zur 
leichten Verwendung benutzerfreundlich in einer Tabelle zusam¬ 
menzustellen, wo sie mit dem schon genannten Sprungbefehl 
»angewählt« werden können. 

Diese Tabelle ist deshalb interessant, weil die Anfangsadres¬ 
sen der Routinen bei den einzelnen Commodore-Computern 
verschieden sind, obwohl sie eigentlich fast identische Überset¬ 
zer und Betriebssysteme haben. So beginnt zum Beispiel die 
LOAD-Routine des C 64 ab Adresse 62622 (SF49E), beim 
VC 20 aber ab Adresse 62786 (SF542). 


Um zu erreichen, daß Programme, die diese Routinen benut¬ 
zen, trotzdem von einem Commodore-Computer auf einen ande¬ 
ren übertragbar sind, hat Commodore diese Tabelle geschaffen, 
welche den Sprung auf diese Routinen unabhängig vom Compu¬ 
tertyp macht. 

Sie liegt (bei allen Commodore-Typen) im Bereich 768 bis 779 
für Routinen des Basic-Übersetzers und 788 bis 819 für Routi¬ 
nen des Betriebssystems. 

Diesen Zusammenhang zeige ich aber besser an einem 
Beispiel: 

Der Vektor auf die LOAD-Routine hat die Adresse 816/817. 
Wir schauen nach, was dort steht: 

PRINT PEEK(816) PEEK(817) 

Wir erhalten beim C 64 die Zahlen 158 und 244. 

Beim VC 20 lautet das Ergebnis 66 und 245 

Beide Zahlenpaare werden nach der üblichen Low-/High-Byte 

Methode umgerechnet: 

158 + 256 * 244 ergibt 62622. 

66 + 256 * 245 ergibt 62786. 

Das sind aber genau die weiter oben schon genannten An¬ 
fangsadressen der LOAD-Routine im Betriebssystem. Mit einem 
Sprung auf 816 und 817 landet ein Maschinenprogramm also 
immer zwangsläufig auf der LOAD-Routine. Kenner wissen, daß 
ein derartiger Sprung »indirekt« sein muß, also mit dem Befehls- 
Code $6C, der nicht auf die angegebene Adresse, sondern auf 
die in ihr enthaltene Zieladresse springt. 

Diese indirekte Sprungmethode hat außer der schon erwähn¬ 
ten Unabhängigkeit vom Computertyp noch einen weiteren 
Vorteil: 

Da der Vektor, der auf die Zieladresse zeigt, im RAM-Speicher 
liegt, kann er verändert werden. Das bedeutet, daß dem Pro¬ 
grammierer die Möglichkeit geboten wird, in ursprünglich »fest¬ 
gefrorene« Routinen des Übersetzers (Interpreter) und des 
Betriebssystems beliebige Änderungen und Varianten einzu- 
bac - Ich will Ihnen das mit einem zwar nutzlosen, aber den¬ 
noch verblüffenden Beispiel zeigen. Bekanntlich meldet sich der 
Computer nach dem Befehl LOAD mit der Anweisung »PRESS 
PLAY ON TAPE«, weil der Vektor In 816 und 817 auf die Routine 
zeigt, die den LOAD-Befehl ausführt. 

Jetzt verbiegen wir den Vektor so, daß er auf die SAVE-Routine 
zeigt. Diese Routine beginnt ab Speicherzelle ($E156) - beim 
VC 20 ab 57683 (SE153). Diese Adresse POKEn wir in Low-/ 
High-Byte-Darstellung nach 816 und 817. 

POKE 816,86:P0KE 817,225 (VC 20:POKE 816,83) 

Wenn Sie jetzt LOAD eingeben, meldet sich der Computer mit 
»PRESS RECORD AND PLAY ON TAPE«, der Anweisung für 
SAVE. 

Weitere Beispiele dafür finden Sie im Kurs bei den entspre¬ 
chenden Speicherzellen. Diese Art der Modifikation entspricht 
der oft genannten Wedge-Methode, die auch Ich in diesem Kurs 
erwähnt habe, und zwar bei der Besprechung der Speicherzel¬ 
len 115 bis 138. Aber der Einsatz der indirekten Sprung- 
Vektoren ist halt viel eleganter. 


Texteinschub Nr. 32 
Die Kurzschrift von Basic 

Immer wenn Sie eine Anweisung auf den Bildschirm schrei¬ 
ben, sei es als Programmzeile, sei es als Direkt-Eingabe, wird sie 
in den Tastaturpuffer gebracht. Sobald die Eingabe mit der 
RETURN-Taste abgeschlossen wird, werden die Anweisungen 
dieser Zeile entweder in den Programmspeicher gebracht oder 
aber direkt ausgeführt. Beides geschieht allerdings nicht sofort, 
da der Computer ja bekanntlich intern nicht mit Buchstaben und 
Dezimalziffern, sondern mit besonderen Codezahlen arbeitet. 
Deshalb wird der Text einer Zeile zuerst in diese Codewerte 
umgewandelt und in eine besondere Reihenfolge gebracht. Zif¬ 
fern, Zeichen und Texte, die innerhalb von Gänsefüßen stehen, 
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werden mit ihrem ASCII-Code abgespeichert. Basic-Befehle und 
Basic-Funktionen werden in Zahlen umgewandelt. Diese heißen 
in der Fachsprache »TOKEN«. 

Der Befehl PRINT wird also nicht als Folge von 5 ASCII-Werten, 
sondern als einzelnes Byte mit dem Wert 153 gespeichert. Da 
meines Wissens die Liste der Token nur im Programmierhand¬ 
buch des VC 20 und im 64’er, Ausgabe 9/84 im Kurs von Chri¬ 
stoph Sauer veröffentlicht ist, gebe ich in der weiter unten fol¬ 
genden Tabelle alle Werte noch einmal an. 

Bemerkenswert ist, daß für GET # kein eigener Token vorhan¬ 
den ist, dafür aber einer (203) für einen Befehl, den es in den 
Handbüchern nicht gibt, nämlich GO. Das erklärt übrigens, 
warum der Befehl GOTO auch in der Form GO TO geschrieben 
werden darf. Die Routine, welche Basic-Befehle ausführt, 
erkennt nämlich die beiden Token an und kombiniert sie mit¬ 
einander. 

Interessant ist auch, daß die Befehle TAB und SPC in ihren 
Token gleich die linke Klammer mit einschließen. Nach dieser 
Tabelle sieht eine im Programmspeicher gespeicherte Zeile so 
aus: 


10 IF A=5THEN PRINT TAB(X) 


Link 

10 

0 

139 

65 

178 

53 

167 

32 

153 

32 

163 

88 

41 

0 


Zeil.-Nr. 

IF 

A 

B 

5 

TUEN 


mm 


TAB( 

X 

) 



Diese Zahlen können Sie selbst überprüfen, indem Sie diese 
Zeile eingeben und dann den Anfang des Programmspeichers 
sichtbar machen: 

FOR J=1 TO 20:PRINT PEEK(2048)-hJ); :NEXT 

Beim VC 20 müssen Sie den von der Speichererweiterung 
abhängigen Anfang des Programmspeichers einsetzen. Sie wer¬ 
den dieselbe Zahlenreihe wie oben erhalten. 

Die Technik, in einem Programm direkt die Token anstelle von 
Basic-Befehlswörtern zu verwenden, bieten dem Programmierer 
in Maschinensprache eine gute Möglichkeit, Speicherplatz zu 
sparen. Das kann insbesondere bei großen Textprogrammen, 
wie zum Beispiel bei Adventure-Spielen, nützlich sein. Der Voll¬ 
ständigkeit halber muß ich noch erwähnen, daß die Token bei 
dem LIST-Befehl wieder in ihre ursprüngliche Textform zurückge¬ 
wandelt werden. Die Vektoren für die Wandel- beziehungsweise 
Rückwandel-Routinen stehen In 772 und 773 und 774 und 
775. 


128 

END 

154 CONT 

180 

SGN 

129 

FOR 

155 LIST 

181 

INT 

130 

NEXT 

156 CLR 

182 

ABS 

131 

DATA 

157 CMD 

183 

USR 

132 

INPUT# 

158 SYS 

184 

FRE 

133 

INPUT 

159 OPEN 

185 

POS 

134 

DIM 

160 CLOSE 

186 

SQR 

135 

READ 

161 GET 

187 

RND 

136 

LET 

162 NEW 

188 

LOG 

137 

GOTO 

163 TAB( 

189 

EXP 

138 

RUN 

164 TO 

190 

COS 

139 

IF 

165 FN 

191 

SIN 

140 

RESTORE 

166 SPC( 

192 

TAN 

141 

GOSUB 

167 THEN 

193 

ATN 

142 

RETURN 

168 NOT 

194 

PEEK 

143 

REM 

169 STEP 

195 

LEN 

144 

STOP 

170 + 

196 

STR$ 

145 

ON 

171 - 

197 

VAL 

146 

WAIT 

172 * 

198 

ASC 

147 

LOAD 

173 / 

199 

CHR$ 

148 

SAVE 

174 1 

200 

LEFT$ 

149 

VERIFY 

175 AND 

201 

RIGHT$ 

150 

DEF 

176 OR 

202 

MID$ 

151 

POKE 

177 größer 

203 

GO 

152 

PRINT# 

§ 

II 



153 

PRINT 

179 kleiner 




Texteinschub Nr. 33 
Der vorbereitete SYS-Befehl 

Programme, die in Maschinensprache geschrieben sind, kön¬ 
nen von einem Basic-Programm aus mit dem SYS-Befehl ange¬ 
wählt und ausgeführt werden. 

Im Prinzip gilt das auch für Routinen des Basic-Übersetzers 
(Interpreter) und des Betriebssystems, die fest im ROM- 
Speicher untergebracht sind. 

Ein Beispiel dafür Ist SYS 58260, der Sprung auf den Kaltstart 
- beim VC 20 ist es SYS 58232, der den Computer in die Aus¬ 
gangslage zurücksetzt. 

Die meisten dieser Routinen benötigen jedoch verschiedene 
Angaben - man nennt sie auch Parameter - die vor der Aus¬ 
führung des SYS-Befehls richtig eingestellt sein müssen. 

Die LOAD-Routine zum Beispiel, die ab Speicherzelle 62622 
($F49E) - beim VC 20 ab 62793 ($F549) - beginnt, können wir 
mit dem SYS 62622 nicht starten. Es fehlen die Angaben über 
Geräte-Nummer (8 für Floppy, 1 für Band), File-Namen, sowie 
Anfangs- und Endadresse. Diese Parameter werden normaler¬ 
weise nach dem Befehl LOAD von der Routine des Interpreters, 
die den LOAD-Befehl übersetzt, eingegeben. Wir geben ja nicht 
einfach LOAD ein, wenn wir ein Programm mit dem Namen »Test« 
auf Diskette speichern wollen, sondern wir schreiben 
LOAD 'TEST',8. 

Auch wenn wir nur LOAD eintippen, werden vom Übersetzer 
Parameter gesetzt, nämlich »namenlos« und 1 für Bandgerät. Ich 
hoffe, Ihnen ist geläufig, daß beim Weglassen aller Angaben der 
Übersetzer immer Kassettenoperationen durchführt. Natürlich 
können wir uns das anschauen: 

Die Routine des Übersetzers für den Basic-Befehl LOAD 
beginnt an Speicherzelle 57704 ($E168), beim VC 20 bei 
57700 ($E164). 

tvn ~YS 57704 springen wir dorthin - und in der Tat, wir erhal¬ 
ten auf dem Bildschirm »PRESS PLAY ON TAPE«. Aber ein Pro¬ 
gramm auf diese Weise von der Floppy zu LOADen, gelingt uns 
nicht, es sei denn, wir können die fehlenden Parameter von Hand 
eingeben. 

Genau das aber können wir, weil der SYS-Befehl sich diese 
Parameter aus den Speicherzellen 780 bis 783 holt und in die 
vier Register des Mikroprozessors schreibt. 

780 ist die Adresse des Akkumulators 

781 ist die Adresse des X-Registers 

782 ist die Adresse des Y-Registers 

783 ist die Adresse des Status-Registers. 

Die Behandlung von A, X und Y ist unkompliziert, wie wir gleich 
sehen werden. 

Das Status-Register, manchmal auch P-Register genannt, ist 
nicht so einfach zu verwenden, da es nicht Zahlenwerte, sondern 
Flaggen (Bitmuster) enthält. Im einzelnen bedeuten: 


BIT Nr. 

WERT 

FLAGGE 

ABKÜRZUNG 

0 

1 

Übertrag 

C(arry) 

1 

2 

NULL 

Z(ero) 

2 

4 

Unterbrechung 

l(nterrupt) 

3 

8 

Dezimal 

D 

4 

16 

Abbruch 

B(reak) 

5 

32 

nicht benutzt 


6 

64 

Überlauf 

V 

7 

128 

Vorzeichen 

N(egativ) 


Um eine der Flaggen des Status-Registers zu löschen, emp¬ 
fiehlt es sich, das ganze Register mit POKE 783,0 zu löschen. 
Umgekehrt muß man beim Setzen der Bits sehr aufpassen 
wegen der Unterbrechungsflagge I. Eine 1 in I entspricht dem 
Maschinenbefehl SEI, der alle Interrupts ausschaltet, auch die 
der Tastatur-Abfrage, was natürlich sehr störend sein kann! Um 
alle Flaggen außer der Unterbrechungsflagge I zu setzen, muß 
POKE 783,247 eingegeben werden. 

So, jetzt wird es Zeit für ein Beispiel, wie vor dem SYS-Befehl 
Parameter eingegeben werden können. In der Literatur wird 
immer das Beispiel gewählt, den Cursor auf eine bestimmte Posi- 
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tion zu setzen, beziehungsweise seine Position abzufragen. 
Dazu gibt es eine Routine, die bei beiden Computern ab Spei¬ 
cherzelle 65520 (SFFFO) beginnt. 

Sie nimmt die Zahl, die im X-Register steht, und verwendet sie 
als Zeilennummer; die Zahl des Y-Registers nimmt sie als Spal¬ 
tennummer, setzt dann den Cursor an diese Stelle und bringt die 
beiden Werte in die Speicherzellen 209 und 210 und 211. 

Unser Beispiel hat die Aufgabe, den Cursor in die vierte Spalte 
der siebten Zeile zu setzen, dort das Dollar-Zeichen hinzuschrei¬ 
ben und es rot zu färben. 

5 PRINT CHR$( 147) 

10 POKE 783,0 
20 POKE 781,6 
30 POKE 782,3 
40 SYS 65520 

Nach Löschen des Bildschirms werden zuerst alle Flaggen 
des Statusregisters gelöscht (Zeile 5). Dann kommt die Zeilen¬ 
nummer in das X-Register (Zeile 10) und die Spaltennummer in 
das Y-Register (Zeile 30). Nach dem Eingeben dieser Parameter 
können wir mit SYS auf die Routine springen. 

50 ZEILE=PEEK(209)+256*PEEK(210) 

60 ADRESSE = ZEILE + PEEK(211) 

70 POKE ADRESSE,36 

In Speicherzellen 209/210 können wir jetzt (zur Übung) die 
Zeilennummer ablesen. Die Adresse der Cursorposition im Bild¬ 
schirmspeicher erhalten wir durch die Addition der Zeilennum¬ 
mer mit dem Inhalt der Speicherzelle 211. Dorthin POKEn wir 
den Bildschirmcode des Dollarzeichens, nämlich 36 (Zeile 70). 
80 SYS 59940 

90 FARBE=PEEK(243)+256*PEEK(244) 

100 POKE FARBE+PEEK (211), 2 

Für das Färben des Dollarzeichens verwenden wir eine wei¬ 
tere Routine des Betriebssystems, die ab 59940 - beim VC 20 
ab 60082 - beginnt. Sie ermittelt die Zeilenposition des Cursors 
im Farbspeicher und bringt diesen Wert in die Speicherzellen 
243 und 244, wo wir ihn abfragen können (Zeile 90). Die 
Adresse der Cursorposition im Farbspeicher setzt sich aus die¬ 
sem Wert plus der Spaltennummer zusammen, die wir wieder 
der Speicherzelle 211 entnehmen. Auf diesen Platz POKEn wir 
den Farbcode 2 für rot (Zeile 100). So leicht ist das, wenn man 
die Routinen und die Aufgaben der Speicherzellen kennt. 

Die letzteren lernen Sie In diesem Kurs. Die Beschreibung und 
Anwendung der Routinen muß, wie schon öfters erwähnt, einem 
eigenen Kurs Vorbehalten bleiben. 


Das ist aber nicht unnütz, weil USR mehr Fähigkeiten hat als 
SYS. Im Hinblick auf die im anderen Texteinschub Nr. 33 >Der 
vorbereitete SYS-Befehl« aufgezeigten Möglichkeiten des SYS- 
Befehls sollte ich besser sagen: USR hat andere Fähigkeiten als 
SYS. 

USR ist eine Mischung von SYS und FN. Letzterer ist der 
Basic-Befehl zur Definition selbst erfundener Funktionen. Bei 
USR allerdings wird die Funktion als Unterprogramm in Maschi¬ 
nensprache geschrieben, auf die dann wie gesagt der USR- 
Befehl zur Ausführung springt. Der Pfiff dabei ist aber, daß Zah¬ 
lenwerte in das Maschinenprogramm mitgenommen bezie¬ 
hungsweise Resultate aus ihm herausgeholt werden können. 

Wie läuft das ab: Das Argument Y, das in der Klammer hinter 
dem Befehl steht, wird zuerst in den Gleitkomma-Akkumulator 
Nr, 1 (FAC 1) in den Speicherzellen 97 bis 102 gebracht. Als 
Gleitkommazahl wird es vom angesprungenen Maschinenpro¬ 
gramm weiterverarbeitet. Das Resultat kommt dann wieder in 
den FAC 1 und steht als Wert von X zur Verfügung. 

Das Argument Y kann übrigens auch ein komplexer Ausdruck 
sein, zum Beispiel: X=USR(PEEK(A)+256*PEEK(B)) 

Ich möchte das an einem kleinen Beispiel demonstrieren. 

Statt allerdings ein Maschinenprogramm selbst zu schreiben, 
verwende beziehungsweise springe ich auf eine Routine des 
Betriebssystems, die den Inhalt des FAC 1 für mathematische 
Operationen verwendet. 

Als geeignete mathematische Operation habe ich die Routine 
für die Funktion INT gewählt, die im C 64 ab der Adresse 48332 
($BCCC) beginnt, beim VC 20 ab 56524 ($DCCC). 

Zuerst definieren wir einen Wert für die Variable Y, der in die 
INT-Routine gebracht werden soll: 

10 Y=l4,35 

Dann bestimmen wir die Sprungadresse für den USR-Befehl. 
Dazu teilen wir die Adresse 48332 auf in ein Low-Byte = 204 
und ein High-Byte = 188. Bei der Startadresse 56524 von INT 
Im VC i0 sind dies 204 und 220. Diese POKEn wir nach 785 
und 786 beziehungsweise nach 1 und 2: 

20 POKE 785,204 
30 POKE 786,188 

Jetzt folgt nur noch der USR-Befehl selbst und das Aus¬ 
drucken des Resultats. 

40 X=USR(Y) 

50 PRINT X 

Beim VC 20 lauten die Zeilen 20 und 30: 

20 POKE 1,204 
30 POKE 2,220 


Texteinschub Nr. 34 
Das Mauerblümchen USR 

Hand aufs Herz: Haben Sie den USR-Befehl schon einmal 
benutzt? Ohne Zweifel gehört er zu den Mauerblümchen von 
Basic, obwohl sein Name - eine Abkürzung von USER (Verwen¬ 
der) - eigentlich genügend Anreiz bieten müßte. Da er ohne die 
Speicherzellen 784 bis 786 nicht auskommt, ist dieser Teil des 
Kurses eine gute Gelegenheit, ihn Ihnen näherzubringen. 

USR hat im Grunde genommen dieselbe Funktion wie SYS. Er 
springt nämlich aus einem Basic-Programm direkt in ein Maschi- 
nen-Programm, arbeitet dieses so lange ab, bis er den Befehl 
RTS findet. RTS entspricht dem Basic-Befehl RETURN und 
springt in das Basic-Programm zurück. 

Bei SYS steht die Sprungadresse gleich hinter dem Befehl. 

Bei USR muß die Sprungadresse zuerst in die Speicherzellen 
785 und 786 gePOKEt werden (beim VC 20 in 1 und 2). 
Beispiel: Sprung auf 56524 ($DCCC) 
mit SYS: SYS 56524 

mit USR: POKE 785,204 (204+256*220=56524) POKE 786,220 
X=USR(Y) 

Kein Wunder, daß USR selten verwendet wird - ist er doch 
durch das POKEn der Sprungadresse in Low-/High-Byte- 
Darstellung aufgebläht. 


Nach RUN erhalten wir das Resultat 14, wie das Gesetz für INT 
es befiehlt. 

Sie können zur Übung statt INT auch COS verwenden, indem 
Sie auf die Adresse 57938 ($E264) beziehungsweise beim 
VC 20 auf 57935 ($E261) springen. Der Vergleich mit dem 
Befehl COS Y muß dasselbe Ergebnis bringen. Wer hat übrigens 
gemerkt, daß wir überhaupt nichts mit der Speicherzelle 784 
(beziehungsweise 0) gemacht haben, obwohl sie doch angeb¬ 
lich am USR-Befehl beteiligt ist? 

Sie ist es wirklich, doch ohne unser Zutun. In diese Adresse 
wird beim Einschalten des Computers die Zahl 76 ($4C) 
geschrieben. Das ist der Code für den Maschinenbefehl »JMP* 
(JUMP), der dieselbe Wirkung hat wie GOSUB. 

Bei Ausführung von USR springt nämlich die entsprechende 
Routine zuerst auf die Speicherzelle 784 (beziehungsweise 0), 
findet dort den Sprungbefehl und in den beiden nachfolgenden 
Speicherzellen 785 und 786 (beziehungsweise 1 und 2) die 
Sprungadresse - und führt so den geplanten Sprung aus. 

Ich finde, USR ist es wert, in Ihre Überlegungen mit einbezo¬ 
gen zu werden, besonders wenn Sie innerhalb Ihrer Basic-Pro- 
gramme extrem schnelle Unterprogramme in Maschinenspra¬ 
che eingebaut haben. Diese sind mit USR ganz elegant aufruf¬ 
bar. Ich denke da zum Beispiel an eine Abfrage der Joysticks 
oder der Paddle. 
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Adresse 788 und 789 
($314 und $315) 

Vektor auf die IRQ-Interrupt- 
Routlne des Betriebssystems 

Dieser. Vektor zeigt auf die 
Adresse 59953 (SEA31) - 
beim VC 20 auf 60095 
(SEABF). Ab hier beginnt die 
Routine des Betriebssystems, 
die den IRQ-Interrupt ausführt. 
Die Bedeutung der verschiede¬ 
nen Interrupts (Unterbrechun¬ 
gen), ihre Auslöser und Abläufe 
sind als Übersicht im Textein¬ 
schub Nr. 35 »Dem Computer 
ins Wort fallen« dargestellt. 

Die IRQ-Routine wird vom 
Timer A des Ein-/Ausgabe-Bau- 
steins CIA #1 - beim VC 20 
vom Timer 1 des Ein-/Ausga- 
be-Bausteins VIA #2 - ausge¬ 
löst, und zwar periodisch 60mal 
in jeder Sekunde. In der Pro¬ 
grammpause werden die im 
Texteinschub beschriebenen 
»Haushaltsarbeiten« durchge¬ 
führt. 

Dieser Vektor eignet sich her¬ 
vorragend für eigene Program¬ 
mierzwecke, da er durch das 
Verbiegen auf eine andere 
Adresse seine gleichmäßige 
und hochfrequente Wiederkehr 
nicht verliert. Mit seiner Hilfe 
können also eigene Maschinen¬ 
programme 60mal in der 
Sekunde in ein Programm ein¬ 
geschoben werden - eine 
Methode, die deswegen den 
englischen Namen »Wedge« = 
Keil, erhalten hat. Zwei Vorbe¬ 
dingungen sind allerdings dabei 
zu erfüllen. 

1. Da ein IRQ mit Sicherheit 
während des Verbiegens auf- 
tritt, muß er vorher abgeschaltet 
werden. Den Schlüssel dazu 
bietet die Speicherzelle 56334, 
die mit 0 gePOKEt den Interrupt 
abschaltet und mit POKE 
56334,1 ihn wieder zuläßt. 
Beim VC 20 ist dies POKE 
37116,127 beziehungsweise 
POKE 37116,192. Aber Vor¬ 
sicht!! Da während eines IRQ- 
Interrupts auch die Tastatur 
abgefragt wird, kann das 
Abschalten nur innerhalb eines 
Programms erfolgen - während 
der Abschaltung ist die Tastatur 
tot. 

2. Am Ende eines »Wedge« 
muß der Sprung auf die alte IRQ- 
Adresse erfolgen, die ursprüng¬ 
lich in den Speicherzellen 788 
bis 789 stand, damit - etwas 
verspätet zwar - die normalen 
Haushaltsarbeiten des IRQ 
nachgeholt werden können. Bei 
längeren Wedges wird daher die 
interne Uhr TI und TIS etwas 
nachgehen. 


Ich habe lange nach einem 
Beispiel gesucht. Ich kenne 
viele: Abfrage der Joysticks, 
Lautstärke von Tönen mit Funk¬ 
tionstasten steuern, von Basic 
unabhängige Laufschrift, um ein 
paar zu nennen. Aber alle haben 
einen ziemlich langen Maschi¬ 
nensprache-Teil. Ich bringe 
daher hier das kürzeste Bei¬ 
spiel, das ich kenne. Es stammt 
von Rügheimer und Spanik. 

Das Programm verändert dau¬ 
ernd die Farbe des Bildschirm¬ 
rahmens: 

10 FOR K=679 TO 699 
20 READ A 
30 POKE K,A:NEXT 
40 DATA 166,162,224,0, 
224,128,240 

50 DATA 3,76,49,234,174, 

32,208 

60 DATA 202,142,32,208, 
76,175,02 
70 POKE 56334,0 
80 POKE 788,167: 

POKE 789,2 
90 POKE 56334,1 
Dieses Programm gilt nur für 
den C 64; für den VC 20 müßte 
es entsprechend umgeschrie¬ 
ben werden. 

Die Zeilen 10 bis 30 lesen das 
Maschinenprogramm, das in 
den DATA-Zeilen 40 bis 60 
steht, in die Speicherzellen 679 
bis 699. Diese stehen, wie wir 
das letzte Mal gesehen haben, 
zur freien Verfügung - und sind 
daher ideal geeignet, ein kleines 
Maschinenprogramm ungestört 
aufzunehmen. 

In Zeile 70 wird der IRQ-Inter¬ 
rupt unterbrochen. Jetzt kommt 
der wichtige Teil: Zeile 80 ver¬ 
biegt den IRQ-Vektor zur Spei¬ 
cherzelle 176 + 256 * 2 = 
679. Zeile 90 schaltet schließ¬ 
lich den IRQ-Interrupt wieder 
ein. 

Jetzt passiert also folgendes: 
Jedesmal, wenn der Timer A 
den Haushalt-IRQ auslöst, 
springt der Computer zuerst 
einmal auf das Maschinenpro¬ 
gramm ab Speicherzelle 679 
und schaltet die Rahmenfarbe 
um. Dann erst springt der letzte 
Befehl des Maschinenpro¬ 
gramms auf die ursprüngliche 
IRQ-Adresse 59953 ($EA31), 
von der aus das Betriebssystem 
weitermacht, als sei nichts 
geschehen. 

Für Kenner gebe ich noch das 
Assembler-Listing des Maschi¬ 
nenprogramms an: 

,02A7 A6 A2 LDX A2 

,02A9 E0 00 CPX #00 

,02AB E0 80 CPX #80 

,02AD F0 03 BEQ 02B2 

,02AF 4C 31 EA JHP EA31 


,02B2 AE 20 DO LDX D020 

,02B5 CA DEX 

,02B6 8E 20 DO STX D020 

,02B9 4c Af 02 JMP 02AF 

Es gibt noch eine kleine, 
erwähnenswerte Anwendung. 
Wenn der Vektor nicht auf den 
Anfang der IRQ-Routine bei 
59953, sondern auf 59956 - 
also drei Stellen weiter - zeigt, 
übergeht die IRQ-Routine den 
Teil, welcher die STOP-Taste 
abfragt und die Tl/Tl$-Uhr wei¬ 
terschaltet, wodurch effektiv die 
STOP-Taste ausgeschaltet wird. 
Das geht ganz schnell mit POKE 
788,52. Mit POKE 788,49 wird 
das wieder rückgängig ge¬ 
macht. Beim VC 20 sind es die 
Werte POKE 788,194 oder POKE 
788,191. 

Adresse 790 und 791 
($316 und $317) 

Vektor auf die BREAK-Inter- 
rupt-Routine des Betriebs¬ 
systems 

Diese Routine ist im Textein¬ 
schub Nr. 35 nicht erwähnt, weil 
sie ein Teil der NMI-Routine ist. 
Dieser Vektor zeigt auf die 
Adresse 65126 (SFE66) - beim 
VC 20 auf 65234 ($FED2). Die 
da h «ninnende Routine des 
Betribuösystems wird aufgeru¬ 
fen, wenn der Maschinenbefehl 
BRK ausgeführt wird. Er führt 
letztlich zu einem Warmstart, 
das heißt der Bildschirm wird 
gelöscht und der Cursor meldet 
sich mit READY. Diese Routine 
wird auch durch das gleichzei¬ 
tige Drücken der STOP- und der 
RESTORE-Taste angestoßen. 

Adresse 792 und 793 
($318 und $319) 

Vektor auf die NMI-Routine 
des Betriebssystems. 

Der NMI-Interrupt ist im Text¬ 
einschub Nr. 35 »Dem Compu¬ 
ter ins Wort fallen« näher 
beschrieben. Der Vektor zeigt 
auf den Beginn dieser Routine 
ab Speicherzelle 65095 
($FE47) - beim VC 20 ab 
65197 (SFEAD). 

Sobald ein NMI-Interrupt auf- 
tritt, wird zuerst durch Setzen 
der Interrupt-Abschalt-Flagge 
(Interrupt Disable Flag) jede 
Unterbrechung durch den IRQ- 
Interrupt unterbunden. Dann 
wird geprüft, wer den NMI-Inter¬ 
rupt ausgelöst hat, und zwar in 
der Reihenfolge: RS232-Schnitt- 
stelle, RESTORE-Taste; einge¬ 
stecktes Modul und schließlich 
die STOP-Taste. Die letztere 
dient zum Sichern der RESTORE- 
Taste. Nur wenn beide gemein¬ 


sam gedrückt werden, kommt 
die NMI-Unterbrechung durch 
die RESTORE-Taste zur Auswir¬ 
kung. 

Da die RESTORE-Taste fast 
als erste abgefragt wird, kann 
sie und ihre Kombination mit der 
STOP-Taste durch Verbiegen 
des Vektors in Speicherzelle 
792 bis 793 abgeschaltet wer¬ 
den. Beim C 64 geht das mit 
POKE 792,193. Wieder einge¬ 
schaltet wird mit POKE 792,71. 
Beim VC 20 geht das mit POKE 
792,91 beziehungsweise POKE 
792,173. Natürlich können Spe¬ 
zialisten durch Verbiegen des 
Vektors auf andere Adressen 
ihre eigenen NMI-Routinen 
bauen. 

Adresse 794 und 795 
($31A und $31B) 

Vektor auf die OPEN-Routine 
des Betriebssystems 

Die Routine beginnt ab 
Adresse 62282 ($F34A) - 
beim VC 20 ab 62474 
(SFEAD). Diese Routine prüft, 
ob eine Datei (File) eröffnet wer¬ 
den kann. Das geht immer dann, 
wenn die File-Nummer nicht 0 
ist und wenn weniger als 10 
andere Dateien bereits eröffnet 
sind. Für die serielle Schnitt¬ 
stelle (Geräte-Nummer 4, 5, 8 
bis 11 ) wird an das angewählte 
Gerät zuerst der Befehl »Listen« 
gegeben und dann die Se- 
kundär-Adresse des OPEN-Be- 
fehls. 

Beim Bandgerät (Geräte- 
Nummer 1) prüft die Routine 
den Tape Header einer sequen¬ 
tiellen Datei beziehungsweise 
schreibt einen Tape Header auf 
das Band. 

Bei Anwahl der RS232- 
Schnittstelle (Geräte-Nummer 
2) aktiviert die Routine einige 
Leitungen und reserviert je 
einen Ein- und Ausgabe- 
Pufferspeicher am oberen Ende 
des Basic-Programmspeichers. 

Adresse 796 und 797 
($31C und $31D) 

Vektor auf die CLOSE-Routine 
des Betriebssystems 

Dieser Vektor zeigt auf die 
Adresse 62097 (SF291) - beim 
VC 20 auf 62282 ($F34A). Ab 
hier beginnt eine Routine, die 
beim CLOSE-Befehl zuerst 
prüft, ob die Datei-Nummer in 
der Tabelle der eröffneten Datei 
enthalten ist. Dann holt sie die 
dazugehörige Geräte-Nummer 
und Sekundär-Adresse und 
schließt den Kanal und die 
Datei. 
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Adresse 798 und 799 
($31E und $31F) 

Vektor auf die CHKIN-Routlne 
des Betriebssystems 

Diese Routine beginnt ab 
Adresse 61966 ($F20E) - beim 
VC 20 ab 62151 (SF2C7). Sie 
eröffnet einen Datenkanal zur 
Übernahme von Daten von dem 
Gerät, das durch den OPEN- 
Befehl angegeben worden ist. 

Adresse 800 und 801 
($320 und $321) 

Vektor auf die CKOUT-Routine 
des Betriebssystems 

Dieser Vektor zeigt auf die 
Adresse 62032 ($F250) - 
beim VC 20 auf 62217 
($F309). Dort beginnt die Rou¬ 
tine, welche einen Datenkanal 
zur Abgabe von Daten an das im 
OPEN-Befehl angegebene 
Gerät aufmacht. 

Adresse 802 und 803 
($322 und $323) 

Vektor auf die CLRCHN-Routi- 
ne des Betriebssystems 

Der Name dieser Routine ist 
die Abkürzung für »clear Chan¬ 
nel«. Diese Routine, die ab 
Adresse 62259 (SF333) - 
beim VC 20 ab 62451 ($F3F3) 
- beginnt, setzt alle Kanäle in 
den Einschaltzustand zurück. 
Das heißt, das Eingabegerät ist 
die Tastatur, das Ausgabegerät 
ist der Bildschirm. 

Adresse 804 und 805 
($324 und $325) 

Vektor auf die CHRIN-Routine 
des Betriebssystems 

Dieser Vektor zeigt auf die 
Adresse 61783 (SF157) - beim 
VC 20 auf 61966 ($F20E). Die 
hier beginnende Routine, deren 
Abkürzung »Character Input« 
bedeutet, holt das jeweils näch¬ 
ste Byte vom Eingabepuffer des 
angewählten Gerätes, sofern 
ein solcher eingerichtet ist (zum 
Beispiel Kassettenpuffer, 
RS232-Puffer). 

Bei Eingabe von der Tastatur 
holt diese Routine so lange 
Bytes aus dem Tastaturpuffer 
und zeigt sie auf dem Bildschirm 
an, bis das Zeichen für ein unge- 
SHIFTetes RETURN auftritt. 
Erst dann gibt die Routine das 
erste Zeichen der logischen 
Zeile auf dem Bildschirm an den 
Basic-Übersetzer weiter. 

Adresse 806 und 807 
($326 und $327) 

Vektor auf die CHROUT-Routl- 
ne des Betriebssystems 


Die CHROUT-Routine ent¬ 
spricht der CHRIN-Routine in 
der anderen Richtung. Sie 
bedeutet »Character Output« 
und transferiert ein Byte, das im 
Akkumulator steht, in den Puffer 
des angewählten Ausgabegerä¬ 
tes. Sie beginnt ab Adresse 
62898 (SF1CA), - beim VC 20 
ab 62074 ($F27A). 

Adresse 808 und 809 
($328 und $329) 

Vektor auf die STOP-Routine 
des Betriebssystems 

Der Vektor zeigt auf die 
Adresse 63213 (SF6ED) - 
beim VC 20 auf 63344 
(SF770). Die dort beginnende 
Routine prüft, ob die STOP-Taste 
gedrückt ist. Durch Verbiegen 
dieses Vektors kann die STOP- 
Taste abgeschaltet werden. 
Beim C 64 geht dies mit P0KE 
808,239; wieder eingeschaltet 
wird die STOP-Taste mit P0KE 
808,237. Beim VC 20 sind die 
Werte P0KE 808,100 bezie¬ 
hungsweise P0KE 808,112. 

Adresse 810 und 811 
($32A und $32B) 

Vektor auf die GETIN-Routine 
des Betriebssystems 

Diese Routine ist fast iden¬ 
tisch mit der CHRIN-Routine 
(siehe Speicherzellen 804 bis 
805). Sie holt genauso Zeichen 
von angewählten Geräten in die 
Eingabepuffer. Der einzige und 
damit wichtigste Unterschied 
liegt in der Behandlung der 
Tastatur-Eingabe. Im Gegensatz 
zu CHRIN holt sie ein Byte aus 
dem Tastaturpuffer sofort in den 
Akkumulator. Der Vektor zeigt 
auf den Anfang der Routine ab 
Speicherzelle 61785 (SF13E) - 
beim VC 20 ab 61941 ($F1F5). 

Adresse 812 und 813 
($32C und $32D) 

Vektor auf die CLALL-Routlne 
des Betriebssystems 
CLALL ist die Abkürzung für 
Close ALL (Channels and Files). 
Diese Routine, die ab Adresse 
62255 (SF32F) - beim VC 20 
ab 62447 ($F3EF) - beginnt, 
setzt die Speicherzelle 152 auf 
0 und schließt so zwangsläufig 
alle Dateien und Kanäle. 

Adresse 814 und 815 
($32E und $32F) 

Freier Vektor 

Nach dem Einschalten zeigt 
dieser Vektor auf die BREAK- 


Routine, genauso wie der Vek¬ 
tor in Speicherzelle 790 und 
791. Er ist ein Überbleibsel aus 
dem PET-Betriebssystem, das 
aber beim VC 20 und C 64 
keine Rolle spielt. Hier können 
also eigene Vektoren definiert 
und eingesetzt werden. 

Adresse 816 und 817 
($330 und $331) 

Vektor auf die LOAD-Routlne 
des Betriebssystems 

Dieser Vektor zeigt auf die 
Adresse 62622 (SF49E) - 
beim VC 20 auf 62793 
($F549). Die dort beginnende 
Routine transferiert Daten von 
einem Eingabegerät direkt in 
den RAM-Speicher. Sie kann 
auch zum VERIFYen durch Ver¬ 
gleich der geladen mit den 
gespeicherten Daten verwen¬ 
det werden. 

Adresse 818 und 819 
($332 und $333) 

Vektor auf die SAVE-Routlne 
des Betriebssystems 

Diese Routine ist das Gegen¬ 
stück zur LOAD-Routine. Sie 
beginnt ab Adresse 62941 
($F5DD) - beim VC 20 ab 
631CC ,SF685). 

Adresse 820 bis 827 
($334 bis $33B) 

Freier Speicherbereich 

Diese 8 Byte stehen zur 
freien Verfügung. 

Adresse 828 bis 1019 
($33C bis $3FB) 

Kassettenpuffer 

Diese 192 Byte beherbergen 
den Kassettenpuffer. Der Name 
kennzeichnet diesen Speicher¬ 
bereich als Zwischenspeicher 
für Ein- und Ausgabe-Operatio¬ 
nen von und auf Band. 

Dabei unterscheiden sich die 
normalen LOAD-, SAVE- und 
VERIFY-Befehle von den Datei- 
Befehlen INPUT#, GET# und 
PRINT#. 

Bei LOAD, SAVE und VERIFY 
steht im Kassettenpuffer ledig¬ 
lich der Vorspann, der auf eng¬ 
lisch »Tape Header« heißt. Die 
Funktion und Zusammenset¬ 
zung des Tape Headers habe 
ich schon bei den Speicherzel¬ 
len 183 bis 187 und im Textein¬ 
schub Nr. 20 »Tape Header« 
detailliert beschrieben. Die 
eigentlichen Daten berühren 
den Kassettenpuffer nicht, son¬ 
dern werden direkt von und in 


den RAM-Speicher transferiert. 

Bei GET#, INPUT# und 
PRINT # werden nicht nur der 
Tape Header, sondern auch alle 
Daten im Kassettenpuffer zwi¬ 
schengespeichert. Dieser 
blockweise Transport ist an den 
charakteristischen Unterbre¬ 
chungen des Datasettenmotors 
leicht zu erkennen. 

Der Kassettenpuffer kann 
durch Verbiegen der Zeiger in 
Speicherzelle 178 und 179 auf 
beliebige Plätze des Speichers, 
aber nicht unterhalb 512, 
geschoben werden. Normaler¬ 
weise gibt das keinen Sinn, es 
sei denn, der Speicherbereich 
828 bis 1019 wurde mit einem 
eigenen Maschinenprogramm 
belegt, und durch das Verschie¬ 
ben des Kassettenpuffers in 
höhere Regionen möchte man 
das Maschinenprogramm vor 
der Zerstörung durch unge- 
plante Datasetten-Operationen 
schützen. 

Die Kenntnis der Inhalte der 
Speicherzellen des Kassetten¬ 
puffers kann man ausnutzen, 
um die ärgerlichen LOAD 
ERROR-Probleme zu lösen. Die 
Methode dazu ist im Textein¬ 
schub Nr. 36 »Reparatur von 
LOAD ERROR« beschrieben. 

Ist die Datasette nicht ange¬ 
schlossen, oder wird sie nicht 
eingesetzt, kann der Speicher¬ 
bereich des Kassettenpuffers 
als freier Speicher benutzt 
werden. 


Adresse 1020 bis 1023 
($3FC bis $3FF) 

Freie Speicherplätze 

Auch diese 4 Byte stehen zur 
freien Verfügung. 

Liebe Leser, wir sind am Ziel 
unserer Wanderung durch die 
Speicherlandschaft des C 64 
beziehungsweise des VC 20 
angelangt. 

Einzelne Beschreibungen der 
folgenden Speicherzellen 

besonders der verschiedenen 
Register, sind ja schon im 64’er 
veröffentlicht worden. 

Detaillierte »Wandervor¬ 
schläge« müßte ich erst zusam¬ 
menstellen und ausprobieren. 
Deshalb mache ich bei 1023 
Schluß. Ich hoffe, dieser Kurs 
bietet Ihnen ein kleines Nach¬ 
schlagewerk und regt Sie mit 
den Texteinschüben und Koch¬ 
rezepten zum Experimentieren 
an. Gerade das ist die beste 
Methode, Ihren Computer bes¬ 
ser kennenzulernen. 

(Dr. H. Hauck/ah) 
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Texteinschub Nr. 35 
Dem Computer ins Wort fallen 

Jedesmal, wenn ein Computer eingeschaltet wird, würden 
seine vielen Schaltkreise und Speicherzellen irgendwelche 
ungeordneten Zahlen enthalten, wenn nicht ein bestimmter 
Schaltkreis ein RESET-Signal erzeugta Dieses spezielle Signal 
geht an alle wichtigen Teile des Computers, nämlich an den 
Mikroprozessor und an die Bausteine für Ein- und Ausgabe. 

Dadurch wird der Computer in einen definierten Anfangszu¬ 
stand versetzt, in dem entweder das Betriebssystem oder, falls 
vorhanden, ein selbststartendes Steckmodul die Befehlsgewalt 
erhält. 

Die fest vorgegebenen Programmschritte dieser beiden las¬ 
sen jedoch ein Arbeiten mit dem Computer ohne weiteres nicht 
zu. Wir könnten nämlich kein Resultat an ein Ausgabegerät 
(Drucker, Floppy, Datasette, Bildschirm) geben, und wir könnten 
auch keine Daten eingeben (Tastatur, Floppy, Datasette). 

Der Computer wäre nicht steuerbar, wenn wir ihn nicht in sei¬ 
nem vorgegebenen Programmablauf unterbrechen könnten. 

Die Unterbrechungsmöglichkeit heißt In der Fachsprache 
»INTERRUPT«. 

Im Gegensatz zu den Großrechenanlagen, die meistens mit 
vielen Klassen von Interrupts ausgerüstet sind, haben die Heim- 
Computer von Commodore nur zwei Arten: 

- IRQ - der Interrupt Request 

- NMI - der Non Maskable Interrupt 

Ich habe nicht vor, Ihnen alle Details der Interrupt-Technik zu 
erklären. Das geht weit über den normalen Umfang meiner Text¬ 
einschübe hinaus. In anderen Aufsätzen können Sie mehr dar¬ 
über erfahren, zum Beispiel von Helmut Welke in Ausgabe 
11/84, Seite 84, oder im Assembler-Kurs von Heimo Ponnath in 
den Ausgaben 7 bis 9/85 und Sonderheft 8/85 (Assembler). 

Aber einige Erklärungen, so hoffe ich jedenfalls, werden Ihnen 
auch hier das Interrupt-Prinzip deutlich machen. 

Die beiden oben genannten Unterbrechungsarten unterschei¬ 
den sich sowohl dadurch, wer die Unterbrechung auslösen 
kann, als auch in der Art, wie sie gehandhabt werden. 
NMI-Auslöser 

sind Signale der RS232-Schn!ttstelle und der Autostart-Steck- 
module. Dazu kommen noch die RESTORE-Taste, wenn sie 
gleichzeitig mit der RUN/STOP-Taste gedrückt wird und der 
CIA #2 beziehungsweise der VIA #1. 

Wie gesagt, nähere Einzelheiten darüber finden Sie in den 
oben genannten Aufsätzen. 

IRQ-Auslöser 

Ist 60mal in der Sekunde das Betriebssystem selbst, um die 
Werte von TI und Tl$ höher zu setzen, um zu prüfen, ob die 
STOP-Taste gedrückt Ist, um das Cursorblinken zu erzeugen, um 
die Tasten der Datasette und schließlich auch die Tastatur abzu¬ 
fragen. Ein IRQ-Interrupf kann aber auch durch Lesen oder 
Schreiben vom - beziehungsweise auf das - Band, durch die 
serielle Schnittstelle und durch die Rasterzeilen-Abtastung aus¬ 
gelöst werden. Programmierbare IRQ-Interrupts sind möglich 
durch Sprite-Kollisionen, durch Lichtgriffel-Signale und durch 
den CIA #1 beziehungsweise den VIA #2. Besonders durch 
die letzteren Ein-/Ausgabe-Bausteine unterscheiden sich die 
Interrupts von C 64 und VC 20. 

NMI-Abläufe 

sind schon durch ihren Namen gekennzeichnet. »Non- 
Maskable« heißt soviel wie »nicht unterdrückbar«. Immer, wenn 
ein NMI-Signal ankommt, merkt sich der Computer, was er 
gerade macht, unterbindet alle IRQ-Signale und springt auf eine 
NMI-Routine, deren Beginn mit dem Vektor in Speicherzelle 792 
und 793 vorgegeben ist. 

Herr Ponnath hat im Assembler-Kurs dies sehr treffend mit 
dem überkochenden Kessel auf dem Herd verglichen, der her¬ 
untergestellt werden muß, selbst wenn gerade die Türglocke 
klingelt, was uns normalerweise beim Lesen der Zeitung unter¬ 
brechen würde. 


Erst in der NMI-Routine werden nach einer vorgegebenen 
Prioritätsliste alle NMI-Auslöser der Reihe nach abgefragt, bis 
der Verursacher gefunden Ist. 

IRQ-Abläufe 

sind maskierbar, das heißt sie können, wie gerade gesagt, unter¬ 
drückt werden, entweder durch programmiertes Abschalten - 
das entspricht dem Abstellen der Türglocke - oder durch ein 
NMI-Signal. 

Bei einem IRQ-Signal wird zuerst der gerade laufende Befehl 
noch bearbeitet, dann startet die IRQ-Routine, deren Beginn 
durch den Vektor In Speicherzelle 788 und 789 vorgegeben ist. 
In dieser Routine wird entschieden, ob der IRQ-Interrupt durch 
den Maschinencode-Befehl BRK (Break) oder durch ange¬ 
schlossene Peripheriegeräte ausgelöst worden ist. 

Wir sehen also, daß die Unterbrechungen einer festgelegten 
Priorität unterworfen sind. Ihre Steuerung aber erfolgt immer so. 
daß keine Interrupt-Anmeldung verlorengeht, sondern jede in 
der gebührenden Reihenfolge abgearbeitet wird. 

Schließlich sei noch hervorgehoben, daß der Sprung in die 
Interrupt-Routinen über die Vektoren die Möglichkeit eröffnet, 
diese Routinen nach eigenem Geschmack abzuändern bezie¬ 
hungsweise durch eigene Routinen zu ersetzen. 


Texteinschub Nr. 36 
Reparatur eines LOAD ERRORs 

Die Datasette - das Bandgerät von Commodore - ist sicher 
eines der sichersten und zuverlässigsten seiner Art. 

Und doch weigert sie sich gelegentlich, ein Programm vom 
Band in den Computer zu laden. Alles, was der Computerfreund 
erhält, ist die Fehlermeldung LOAD ERROR auf dem Bildschirm. 

Natürlich: die nächstliegende Maßnahme ist, den LOAD-Vor- 
gang zu wiederholen. Bringt auch das keinen Erfolg, muß die 
Flintr och lange nicht ins Korn geworfen werden. Eine kleine 
Diagnose und die Kenntnis des Tape Headers im Kassettenspei¬ 
cher (Speicherzelle 828 bis 1023) kann in den meisten Fällen 
weiterhelfen. 

Die 1. Diagnose: 

Wenn ein Programm auf Band geSAVEt wird, tut das der C 64 
und VC 20 zur Sicherheit gleich zweimal, mit zwei völlig identi¬ 
schen Blöcken. Beim Laden des Programms wird der erste Block 
In den Arbeitsspeicher des Computers geladen. 

Anschließend wird Byte für Byte der zweite Block vom Band 
mit dem ersten Block im Speicher verglichen. Übersteigt die 
Anzahl der dabei gefundenen Fehler ein bestimmtes Maß, dann 
bricht der Computer mit LOAD ERROR ab. 

! I Der erste Programmblock steht aber immer noch im Arbeits¬ 
speicher I! 

Um zu sehen, ob er in Ordnung oder halbwegs brauchbar ist, 
machen Sie bitte nach der Fehlermeldung gar nichts - kein RUN, 
kein RESTORE - sondern LISTen Sie lediglich das Programm. 
Besteht es nur aus verfälschten Zeilen und Symbolen, dann ist 
nicht mehr viel zu retten. 

Ist es aber fast oder völlig intakt, können wir es retten. Doch 
auch jetzt ist noch Vorsicht geboten. Lassen Sie das Programm 
In Ruhe und heben Sie sich die Korrekturen etwaiger Fehler für 
später auf. 

Die 2. Diagnose: 

Sie betrifft den Tape Header. Vor dem Laden des ersten Pro¬ 
grammblocks in den Arbeitsspeicher kommt der Tape Header in 
den Kassettenpuffer (siehe den Texteinschub Nr. 20 »Tape 
Header«). 

In Speicherzelle 828 steht ein Kennzeichen-Byte, in 829 und 
830 in Low-/High-Byte-Darstellung die Adresse, ab der das Pro¬ 
gramm im Arbeitsspeicher steht. 

Für uns ist aber die Adresse wichtig, die in Speicherzelle 831 
und 832 steht. Sie nennt dem Betriebssystem nämlich die End¬ 
adresse des Programms im Arbeitsspeicher. Diese Adresse wird 
nach dem erfolgreichen Abschluß des Ladevorgangs in die Spei¬ 
cherzellen 45 und 46, 47 und 48, 49 und 50 eingeschrieben. 
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Ich sagte: »nach dem erfolgreichen Ladevorgang«. Und das 
gerade ist ja leider nicht eingetreten - deswegen können wir den 
akzeptablen ersten Programmblock im Arbeitsspeicher nicht 
RUNen, korrigieren und sonstwie verarzten, nur LISTen. 

Reparatur: 

Da durch den Abbruch die Zeiger in oben genannten drei Spei¬ 
cherzellenpaaren nicht gesetzt worden sind, holen wir das ganz 
einfach manuell nach mit der folgenden Direkteingabe: 

P0KE45,PEEK(831): POKE 46,PEEK(832): 

P0KE47,PEEK(831): POKE 48,PEEK(832): 

POKE 49,PEEK(831): POKE 50,PEEK(832): 

Das geht auch etwas eleganter und kürzer: 

F0RK=45TO49STEP2: P0KEK,PEEK(831): POKE K+1,PEEK(832): 

NEXT 

Damit sind die Zeiger richtig gesetzt, und Sie haben Ihr Pro¬ 
gramm wieder. Erst jetzt dürfen Sie eventuelle Fehler korrigieren. 

Ich habe nicht erwähnt, was die Zeiger in 45 und 46, 47 und 
48, 49 und 50 bedeuten. Aber das steht ja schließlich In der 
Memory Map. 


6000 FÜR A=828 TCH83S- 
6010 READ B 

6020 POKE A,B — - 

6030 NEXT»END 

6040 DATA 120,169,73,141,20,3,169,3, 
6050 DATA 141,21,3,88,96,169,1,141,139 
6060 DATA 2,169,0,141,1*40,2,76,49,234 


Listlng 1. Programm zur Änderung 
der Tastenwiederholgeschwindigkeit 


B20 

SEI 


«etzt die Interrupt Enablo Flaggo 


827 

LDA 

»73 

l»at Akku mit dar Zahl 73 



831 

STA 

780 

schreibt die 73 in Zelle 788 


034 

LDA 

#3 

1«dt Akku mit der Zahl 3 



036 

6TA 

709 

•chralbt dlo 3 ln dia Zelle 

709 


039 

CLI 


löscht die Interrupt Enablo 

Flagge 


840 

RTS 


Ende dos Unterprogramms 



041 

LDA 

«1 

lädt Akku mit der Zahl 1 



843 

STA 

631 

schreibt dlo 1 ln Zolle 631 



846 

LDA 

#o 

lädt Akku mit der 0 



040 

STA 

632 

schrolbt dlo 0 ln die Zelle 

652 


831 

JMP 

59953 Sprung au# Speicherzelle 59953 zum 

Weiterl auf 

dar 

normalen 

Interrupt-Routine 




Listlng 2. Disassembliertes Programm 


, 033C 

78 



SEI 


, 033D 

A9 

49 


LDA 

#49 

, 033F 

8D 

14 

03 

STA 

0314 

,0342 

A9 

03 


LDA 

#03 

,0344 

8D 

15 

03 

STA 

0315 

,0347 

58 



CLI 


,0348 

60 



RTS 


,0349 

A9 

01 


LDA 

#01 

, 034B 

8D 

8B 

02 

STA 

028B 

, 034E 

A9 

00 


LDA 

#00 

,0350 

8D 

8C 

02 

STA 

028C 

,0353 

4C 

31 

EA 

JMP 

EA31 


Listlng 3. Disassembliertes Programm 
mit Hexdump 


Texteinschub Nr. 5: 

Die Zahlendarstellung bei den 
Commodore-Computem 

Texteinschub Nr. 6: 

Was ist ein Stapelspeicher (Stack)? 

Texteinschub Nr. 7: 

Der sichtbare Basic-Speicher 

Texteinschub Nr. 8: 

Normale Variable in Basic 

Texteinschub Nr. 9: 

Darstellung der normalen Variablen im 
Speicher 

Texteinschub Nr. 10: Felder in Basic 

Texteinschub Nr.11: 

Darstellung der Felder-Variablen 
im Speicher 

Texteinschub Nr. 12: Darstellung der Variablen einer 
selbstdefinierten Funktion 

Texteinschub Nr. 13: Wie zufällig sind Zufallszahlen? 

Texteinschub Nr. 14 

ST-atus 

Texteinschub Nr. 15 

Dynamische Tastenabfrage 

Texteinschub Nr. 16 

Die eingebaute Uhr 

Texteinschub Nr. 17 

Experimente mit dem Kassetten-Puffer 

Texteinschub Nr. 18 

Fehlererkennung mit Parity-Bits 

Texteinschub Nr. 19 

Ries - Geräte - Namen - Nummern 

Texteinschub Nr. 20 

Tape-Header 

Texteinschub Nr. 21 

Abfrage der Tasten-Codes oder 

476 Funktionstasten 

Texteinschub Nr. 22: Cursor-Spiele oder der INPUT-Befehl 
einmal etwas anders 

Texteinschub Nr. 23 

Logische und echte Zeilen 

Texteinschub Nr. 24 

Der Stapelspeicher 

Texteinschub Nr. 25 

Programme, die sich selbst verändern 

Texteinschub Nr. 26 

Bunte Zeichen und bunter Hintergrund 

Texteinschub Nr. 27 

Turbo-Tasten 

Texteinschub Nr. 28 

Schnittstelle und Port 

Texteinschub Nr. 29 

Die Elemente der RS232-Schnittstelle 

Texteinschub Nr. 30 

Die Programmierung 
der RS232-Schnittstelle 

Texteinschub Nr. 31 

Indirekte Sprung-Vektoren 

Text- chub Nr. 32 

Die Kurzschrift von Basic 

Texteinschub Nr. 33 

Der vorbereitete SYS-Befehl 

Texteinschub Nr. 34 

Das Mauerblümchen USR (C 64) 

Texteinschub Nr. 35 
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C 64/VC 20 


165 

$A5 

Zfihler lür Band-Synchronislerung 



Befehl (nur VC 20) 

167 

$A7 

Zwischenspeicher lür Kassettenroutinen 

3-4 

$3-$4 

Voktor auf die Routine zur Umwandlung einer Gleit- 

168 

$A8 

Bitzähler bei Band-Eln-/Ausgabe 



kommazahl in eine ganze Zahl mit Vorzeichen 

170 

$AA 

Zwischenspeicher für Kassettenroutinen 

5-6 

$5-$6 

Vektor auf die Routine zur Umwandlung einer ganzen 

171 

SAB 

Quersummenprülung und Zähler lür Band-Header 



Zahl In eine Gleitkommazahl 

172-173 

SAC-SAD 

Zeiger auf die Anfangsadresse für Eln-/Ausgabe 

19 

$13 

Flagge zur Kennzeichnung des laufenden Ein-/ 

174-175 

SAE-SAF 

Zeiger auf die Endadresse für Ein/Ausgabe 



Ausgabogerätes 

176-177 

SB0-SB1 

Zeltkonstante beim Lesen vom Band 

22 

$16 

Zeiger auf freien Speicherplatz Im String Descrlptor 

178-179 

SB2-SB3 

Zeiger auf den Kassettenpuffer 



Stack 

181 

$B5 

Blockangabe bol Kassettenoperationen 

43-44 

$2B-$2C 

Zolgor auf Anfang der Baslc-Programme im Speicher 

182 

$B6 

Ausgabe-Zwischenspeicher 

45-46 

$2D-$2E 

Zoigor auf Anfang dor Variablen Im Speicher (nur bei 

183 

$B7 

Länge des File-Namens 



Reset) 

185 

$B9 

Sekundär-Adresse 

51-52 

$33-$34 

Zeiger auf die untere Grenze des Speicherbereichs für 

186 

$BA 

Geräte-Nummer 



den Text der Zeichenkotten-Variablen 

187-188 

SBB-SBC 

Zeiger auf Adresse des derzeitigen File-Namens 

55-56 

$37-$38 

Zeiger auf das Ende des für Basic-Programme verfüg- 

189 

$BD 

Zwischenspeicher für Zeichen 



baren Speichers 

190 

$BE 

Blockzähler für Kassetten-Eln-/Ausgabe 

122-123 

$7A-$7B 

Teil der CHRGET-Routine 

191 

SBF 

Zwischenspeicher für LOAD-Operationen vom Band 

139-143 

$8B-$8F 

Wert der RND-Funktion als Gleitkommazahl 

192 

SCO 

Sperre dos Motors der Datasette 

153 

$99 

Nummer des Eingabe-Gerätes 

193-194 

SC1-SC2 

Anfangsadresse für Ein-/Ausgabe-Operationen 

154 

$9A 

Nummer des Ausgabe-Gerätes 

195-196 

SC3-SC4 

Zeiger auf den Anfang des Programms hinter dem Tape 

160-162 

$A0-$A2 

Interne Uhr für TI und Tl$ (nur beim Einschalten) 



Header 

178-179 

$B2-$B3 

Zeiger auf den Kassetten-Puffer 

256-318 

S100-S13E 

Arbeitsspeicher für Fehler bei der Eingabe vom Band 

195-196 

$C3-$C4 

Zeiger auf den Anfang des Programms hinter dem Tape 

Bildschirm-Cursor 




Header 

9 

$9 

Spaltenposition dos Cursors vor dem letzten TAB- oder 

256-511 

$100-$1FF 

Stapelspeicher (Stack) 



SPC-Befehl 

641-642 

$281-$282 

Zeiger auf den Anfang des Programmspeichers 

200 

$C8 

Zeiger auf das Ende der eingegebenen logischen Zeile 

643-644 

$283-$284 

Zeiger auf das Ende des Programmspeichers 

201-202 

SC9-SCA 

Zeiger auf Zeilen- und Spaltenposition des letzten Zei- 

646 

$286 

Aktuelle Farbe der Zeichen (Vordergrundfarbe) 



chens einer Zeile 

648 

$288 

Beginn des Bildschirmspeichers 

204 

SCC 

Schalter für Cursorbllnkon 

655-656 

$28F-$290 

Vektor auf die Routine dor Tnstencode-Tabellen 

205 

SCO 

Zähler für Blinkfrequenz des Cursors 

784-786 

$310-$312 

nur C64, Identisch mit 0-3 beim VC 20 

206 

SCE 

Bildschirmcode des Zeichens unter dem Cursor 

788-819 

$314-$333 

Indirekte Sprungvektoren auf Routinen des Betriebs- 

207 

SCF 

Flagge für Blinkzustand des Cursors 



Systems 

209-210 

SD1-SD2 

Zeiger auf den Anfang der Bildschirmzeile auf welcher 

END 





der Cursor gerade steht 

57-58 

$39-$3A 

Nummer der laufenden Basic-Programmzelle 

211 

SD3 

Position des Cursors innerhalb einer logischen Zeile 

59-60 

$3B-$3C 

Zeilennummer der letzten Programmunterbrechung 

214 

SD6 

Nummer der echten Zeile, in der sich der Cursor 

61-62 

$3D-$3E 

Zeiger auf die Adresse, ob welcher der Text der laufen- 



gerade befindet 



den Baslc-Zelle abgespeichert Ist 

647 

$287 

Zeichenfarbe unter dem Cursor 

Felder (Arrays) 


Blldschlrm-Farbe 


11 

$B 

Anzahl der Dimensionen von Feldern (Arrays) 

243-244 

SF3-SF4 

Position des Cursors Im Färbspeicher 

12 

$C 

Flagge für Baslc-Routinen, die ein Feld suchen, 

646 

$286 

Aktuelle Farbe der Zeichen (Vordergrundfarbe) 



beziehungsweise aufbauen 

647 

$287 

Zeichenfarbe unter dem Cursor 

16 

$10 

Flagge zur Anzeige eines Variablenfeldes oder einer 

Blldschlrm-Zelchen 




selbstdefinierten Funktion 

199 

$C7 

Flagge für reverse Darstellung der Zeichen 

47-48 

$2F-$30 

Zeiger auf die Anfangsadresse des Speicherbereiches 

206 

SCE 

Bildschirmcode des Zeichens unter dem Cursor 



für Felder (Arrays) 

212 

$D4 

Flagge für Gänsefu8-Modus 

49-50 

$31-$32 

Zeiger auf die Endadresse des Speicherbereichs für 

215 

$07 

Zwischenspeicher für den ASCII-Codewert der zuletzt 



Felder (Arrays) 



gedrückten Taste 

FN 



216 

$D8 

Flagge für Insert-Modus 

16 

$10 

Flagge zur Anzeige eines Variablenfeldes oder einer 

Bildschirm-Zellen 




selbstdefinierten Funktion 

200 

$C8 

Zeiger auf das Ende der eingegebenen logischen Zelle 

78-79 

$4E-$4F 

Zeiger auf Adresse, ab welcher der Wert der Variablen 

201-202 

SC9-SCA 

Zeiger auf Zellen- und Spaltenposition des letzten Zei- 



einer selbst definierten Funktion gespeichert ist 



chens einer Zeile 

FOR-NEXT 



209-210 

SD1-SD2 

Zeiger auf den Anfang der Blldschlrmzeile, auf welcher 

47-48 

$2F-$30 

Zeiger auf die Anfangsadresse des Speicherbereichs 



der Cursor gerade steht 



für Felder (Arrays) 

211 

$03 

Position des Cursors Innerhalb einer logischen Zeile 

57-58 

$39-$3A 

Nummer der laufenden Basic-Programmzeile 

213 

$05 

Länge einer Bildschirmzeile 

73-74 

$49-$4A 

Zwischenspeicher für Variable einer FOR-NEXT-Schlelfe 

214 

$06 

Nummer der echten Zeile, auf der sich der Cursor 

FRE 





gerade befindet 

49-50 

$31-$32 

Zeiger auf die Endadresse des Speicherbereichs für 

217-242 

$D9-$F2 

Llnk-Tabollen der Bildschirm-Zeilen 



Folder (Arrays) 

658 

$292 

Flagge für Scrollen 

51-52 

$33-$34 

Zeiger auf die untere Grenze des Speicherbereichs für 

DATA 


(siehe READ) 



den Text der Zelchenketten-Varlablen 

Datei 



Garbsge Collection 


152 

$98 

Anzahl der offenen Dateien 

15 

$F 

Flagge bei LIST, Garbage Collection und Text- 

153 

$99 

Nummer des Eingabegerätes 



Umwandlung 

164 

$9A 

Nummer des Ausgabegerätos 

49-50 

$31-$32 

Zeiger auf die Endadresse des Speicherbereichs für 

183 

$B7 

Länge des derzeitigen Datei-Namens 



Felder (Arrays) 

184 

$B8 

Nummer der derzeitigen Datei 

51-52 

$33-$34 

Zeiger auf die untere Grenze des Speicherbereichs für 

185 

$B9 

Derzeitige Sekundär-Adresse 



den Text der Zelchenketten-Varlablen 

186 

$BA 

Derzeitige Geräte-Nummer 

83 

$53 

Flagge für Garbage Collection 

187-188 

SBB-SBC 

Zeiger auf Adresse des derzeitigen Daloi-Namens 

GET 



601-610 

S259-S262 

Tabelle der Datei-Nummern 

17 

$11 

Flagge für INPUT, GET oder READ 

611-620 

S263-S26C 

Tabelle der Geräte-Nummern 

18 

$13 

Flagge zur Kennzeichnung des laufenden Ein-/ 

621-630 

$26D-$276 

Tabelle der Sekundär-Adresson 



Ausgabogorätes 

DIM 



67-68 

$43-$44 

Zeiger auf die Adrosso, aus welcher die Befehle INPUT, 

11 

$B 

Anzahl der Dimensionen von Feldern (Arrays) 



GET und READ die Zeichen/Zahlen holen 

12 

$C 

Flagge lür Baslc-Routinen, die ein Feld suchen, 

GET# 





beziehungsweise aufbauen 

19 

$13 

Flagge zur Kennzeichnung des laufenden Ein-/ 

Elngabe-Pufler 




Ausgabegerätes 

7 

$7 

Suchzeichen zur Prüfung von Basic-Texteingabe 

153 

$99 

Nummer des Eingabegerätes 

8 

$8 

Suchzeichen speziell für Befehlsende und GänsefüBe 

Gleitkomma 


11 

$B 

Flagge für den Eingabe-Puffer 

3-4 

$3-$4 

Vektor aul die Routine zur Umwandlung einer Gleit- 

512-600 

S200-S258 

Eingabe-Puffer von Basic 



kommazahl In eine ganze Zahl mit Vorzeichen 

Elnschalten/Reset (beeinflußte Adressen) 

5-6 

$5-$6 

Voktor auf die Routine zur Umwandlung einer ganzen 

0-2 

$0-$2 

Sprungbefehl und wählbare Sprungadresse beim USR- 



Zahl in eine Gleitkommazahl 


64 
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97-102 

$61-$66 

Gleitkomma-Akkumulator Nr. 1 

663 

$297 

RS232-Statusreglstor 

104 

$68 

Überlauf-Speicher des Gleitkomma-Akkumulators Nr.1 

664 

$298 

RS232-Anzahl der zu Obertragenden Bits 

105-110 

S69-S6E 

Gleitkomma-Akkumulator Nr. 2 

665-666 

$299-$29A 

Zeit die bei RS232 zum Übertragen eines Bits 

111 

$6F 

Flagge für Vorzeichen vergleich der Gleitkomma- 



gebraucht wird 



Akkumulatoren 1 und 2 

667 

$29B 

Index auf das Ende des RS232-Eingabepuffers 

112 

$70 

Rundungsspeicher des Gleitkomma-Akkumulators Nr.1 

668 

$29C 

Index auf den Anfang des RS232-Eingabepuffers 

256 

$FF 

Zwischenspeicher von Gleitkommazahlen In ASCII- 

669 

$290 

Index auf den Anfang des RS232-Ausgabepuffers 



Werte 

670 

$29E 

Index auf das Ende des RS232-Ausgabepuffers 

256-266 

$100-$10A 

Arbeitsspeicher für Umwandlung von Gleitkommazahlen 

SAVE 





in ASCII-Werte 

172-173 

$AC-$AD 

Zeiger auf die Anfangsadresse für Ein-/Ausgabe 

778-779 

$30A-$30B 

Indirekter Sprungvektor aul die Baslc-Roullne, die einen 

174-175 

$AE-$AF 

Zeiger auf die Endadresse für Ein-/Ausgabe 



numerischen Ausdruck in eine Gleitkommazahl 

818-819 

$332-5333 

Indirekter Sprungvektor auf die SAVE-Routine des 



umwandelt 



Betriebssystems 

GOTO 



Serielle Schnittstelle 


20-21 

$14-$15 

Zellennummer für LIST. GOTO, GOSUB und ON 

148 

$94 

Flagge für Floppy/Drucker-Ausgabe 

57-58 

$39-$3A 

Nummer der laufenden Basic-Programmzeile % 

149 

$94 

Zeichen im Ausgabepuffer 




163-164 

$A3-$A4 

Zwischenspeicher 

INPUT 



172-173 

$AC-$AD 

Zeiger auf die Anfangsadresse für Eln-/Ausgabe 

17 

$11 

Flagge für INPUT, GET oder READ 

174-175 

$AE-$AF 

Zeiger auf die Endadresse für Eln-/Ausgabe 

67-68 

$43-$44 

Zeiger auf die Adresse, aus welcher die Befehle INPUT, 

193-194 

$C1-$C2 

Anlangsadresse für Ein-/Ausgabe-Operatlonen 



GET und READ die Zeichen/Zahlen holen 

SIN 



INPUT# 



18 

$12 

Flagge für Vorzeichen des Ergebnisses bol SIN und 

19 

$13 

Flagge zur Kennzeichnung des laufenden Ein-/ 



TAN 



Ausgabegerätes 

Speicherbelegung 


153 

$99 

Nummer des Eingabegerätes 

43-44 

$2B-$2C 

Zeiger auf den Anfang der Baslc-Programme im 

INST 





Speicher 

212 

$D4 

Flagge für Gänsefu8-Modus 

45-46 

$2D-$2E 

Zeiger auf die Anfangsadresse des Speicherbereichs 

216 

$D8 

Flagge für INSERT-Modus 



für Variable 

Interrupt 

ult BREAK 


47-48 

$2F-$30 

Zeiger auf die Anfangsadresse des Speicherbereichs 

57-58 

$39-$3A 

Nummer der laufenden Basic-Programmzeile 



für Felder (Arrays) 

170 

$AA 

Zwischenspeicher für Kassettenroutinen 

49-50 

$31-$32 

Zeiger aul die Endadresse +1 des Speicherbereichs 

663 

$297 

RS232-Status-Regl8ter 



lür Felder (Arrays) 

790-791 

$316-5317 

Vektor auf die BREAK-Inferrupt-Routlne 

51-52 

$33-$34 

Zeiger auf die untere Grenze des Speicherbereichs für 

Interrupt mit IRQ 




den Text der String-Variablen 

671-672 

$29F-$2A0 

Zwischenspeicher für den IRQ-Vektor während 

53-54 

$35-$36 

Zeiger auf die Adresse des zuletzt eingegebenen 



Kassetten-Ein-/Ausgabe 



Strings 

788-789 

$314-5316 

Vektor auf die IRQ-Interrupt-Routlno 

55-56 

$37-$38 

Zeiger auf das Endo des für Baslc-Programme 

Interrupt mit NMI 




verfügbaren Speichers 

792-793 

$318-5319 

Vektor auf die NMI-Interrupt-Routine 

641-642 

$281-$282 

Zeiger auf den Anfang des Programmspeichers 

Kaaiettenpulfer 


643-644 

$283-$284 

Zeiger auf das Ende des Programmspeichers 

166 

$A6 

Zähler der bearbeiteten Bytes im Kassettenpuffer 

648 

$288 

Beginn des Bildschirmspeichers 

178-179 

$B2-$B3 

Zeiger auf den Kassettenpuffer 

Speichnr zur freien Verfügung 

828-1019 

$33C-$3FB 

Kassettenpuffer 

146-16C 

$92-$96 

nur wenn Datasette nicht benutzt wird 

LIST 



163-177 

$A3-$B1 

nur wenn Datasette oder RS232-Schnittstelle nicht 

15 

$F 

Flagge bei LIST, Garbage Collection und Text¬ 



benutzt wird 



umwandlung 

247-250 

$F7-$FA 

nur wenn RS232-Schnittstelle nicht benutzt wird 

20-21 

$14-$15 

Zellennummer für LIST, GOTO, GOSUB und ON 

251-254 

$FB-$FE 


LOAD/VERIFY 


659-670 

$293-$29E 

nur wenn RS232-Schnittstelle nicht benutzt wird 

10 

$A 

Flagge für LOAD oder VERIFY 

671-672 

$29F-$2A0 

nur wenn Datasette nicht benutzt wird 

147 

$93 

Flagge für LOAD oder VERIFY 

673-678 

$2A1-$2A6 

nur beim VC 20 

172-173 

$AC-$AD 

Zeiger auf die Anfangsadresse für Ein-/Ausgabe 

679-767 

$2A7-$2FF 


174-175 

$AE-$AF 

Zeiger auf die Endadresso für Eln-/Ausgabe 

784-787 

$310-5313 

nur beim VC 20 

183 

$B7 

Länge des File-Namens 

820-827 

$334-$33B 


185 

$B9 

Sekundär-Adresse 

828-1019 

$33C-$3FB 

nur wenn Datasette nicht benutzt wird 

187-188 

$BB-$BC 

Zolger auf Adresse des derzeitigen File-Namens 

1020-1023 $3FC-$3FF 


196-196 

$C3-$C4 

Zeiger auf den Anfang des Programms hinter dem Tape 

ST(atus) 





Header 

144 

$90 

Status-Variable ST 

816-817 

$330-$331 

Indirekter Sprungvektor aut die LOAD-Routine des 

663 

$297 

RS232-Statusreglster 



Betriebssystems 

Stapelspeicher (Stack) 


NEXT (siehe FOR) 


25-33 

$19-$21 

Stack für vorläufige Zeichenketten 

READ DATA 


319-511 

$13F-$1FF 

Speicherbereich des Mikroprozessor-Stapels 

17 

S11 

Flagge für INPUT, GET oder READ 

STOP 



63-64 

$3F-$40 

Zellennummer des gerade laufenden DATA-Befehls 

57-58 

$39-$3A 

Nummer der laufenden Basic-Programmzeile 

65-66 

$41-$42 

Zeiger auf die Adresse, ab der die laufenden DATA- 

59-60 

$3B-$3C 

Zeilonnummer der letzten Programmunterbrechung 



Angaben gespeichert sind 

145 

$91 

Zwischenspeicher für Abfrage der STOP-Taste 

67-68 

$43-$44 

Zeiger auf die Adresse, aus welcher die Befehle INPUT, 

808-809 

$328-$329 

Indirekter Sprungvektor auf die STOP-Routine des 



GET und READ die Zelchen/Zahlen holen 



Betriebssystems 

75-76 

$4B-$4C 

Zwischenspeicher für Zeiger bei READ und bei 

STRINGS 





mathematischen Operationen 

22 

$16 

Zeiger auf freien Speicherplatz im String Descriptor 

RESET (siehe Einschalten) 



Stack 

RND 



23-24 

$17-$18 

Zeiger auf die Adresse der letzten Zeichenkette Im 

139-143 

$8B-$8F 

Wert der RND-Funktion als Gleitkommazahl 



Temporary String Stack 

RS232-Schnlttstelle 


25-33 

$19-$21 

Descriptor Stack für vorläufige Zeichenketten 

167 

$A7 

Zwischenspeicher für Eingabe über die 

51-52 

$33-$34 

Zeiger auf die untere Grenze des Speicherbereichs für 



RS232-Schnittstelle 



den Text der String-Variablen 

168 

$A8 

Bitzähler für RS232-Elngabe 

53-54 

$35-$36 

Zeiger auf die Adresse des zuletzt eingegebenen 

169 

SA9 

RS232-Flagge für Startbit-Prüfung 



Strings 

170 

SAA 

RS232-Eingabespeicher 

80-82 

$50-$52 

Zeiger auf einen vorläufigen Speicherplatz einer 

171 

SAB 

Parityprüfung 



Zeichenkette, die gerade bearbeitet wird 

181 

SB5 

RS232-Anzeige für nächstes Bit 

SYS 



182 

$B6 

Ausgabe-Zwischenspeicher für RS232 

780 

$30C 

Speicher für den Akkumulator 

189 

$BD 

Zwischenspeicher für RS232-Parlty-Prüfung 

781 

$30D 

Speicher für das X-Register 

247-248 

$F7-$F8 

Zeiger auf den Anfang des RS232-Eingabepuffers 

782 

$30E 

Speicher für das Y-Register 

249-250 

$F9-$FA 

Zeiger auf den Anfang des RS232-Ausgabepuffers 

783 

$30F 

Speicher für das Status-(P)-Register 

659 

$293 

RS232-Steuerreglster 




660 

$294 

RS232-Befehlsreglster 




661-662 

$295-5296 

RS232 frei wählbare Baudrate 
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GRUNDLAGEN 


C 128 


Die Zeropage-Straße 

des C128 


Die Zeropage ist einer der wichtigsten Bereiche in 
unserem Computer. Dort laufen die meisten Ope¬ 
rationen ab und liegen viele Betriebssystem- 
Vektoren. Hier erhalten Sie eine Übersicht über 
die Funktion der ersten 256 Adressen des 
Computer-Speichers. 

D ort, wo die viele tausend Adressen umfassende Spei¬ 
cherstraße unseres C128 beginnt, gewissermaßen im 
ältesten Teil dieser Straße, heißt sie »Zeropage«. Die 
Erklärung dieses Namens liegt darin, daß man eine Anzahl 
von 256 Häusern (Adressen) eine Page (zu deutsch: Seite) 
nennt und daß es sich hier um die »nullten« 256 Adressen (in 
Computerkreisen fängt man immer bei Null an zu zählen) 
unserer Speicherstraße dreht. Das englische Wort für Null ist 
»Zero«, daher also Zeropage. 

Jedes Haus in der Zeropage-Straße ist einmalig und man 
kann durchaus behaupten, daß auch nur der Ausfall eines 
einzigen leicht zur Desorganisation unserer ganzen Spei¬ 
cherstadt CI28 führen kann. Als unsere Speicherstadt 
gegründet wurde, hieß sie KIM 1 und war ein kleines Dorf, 
einfach aufgebaut und überschaubar. Von Computergenera¬ 
tion zu Computergeneration wurde sie komplexer und ele¬ 
ganter. Bald reichten die 256 Häuser der Zeropage-Straße 
nicht mehr aus und es kamen immer neue dazu. So wurde die 
Zeropage-Straße um viele hundert Adressen verlängert. Im 
neueren Teil nennt man sie nun allgemein »Erweiterte Zero¬ 
page«. Es kam immer wieder vor, daß einige Bewohner der 
Häuser, die bestimmte Aufgaben wahrzunehmen haben, 
umgezogen oder gar weggezogen sind. Andere - ziemlich 
viele - sind neu dazugekommen. Zwar verfügen die Verwal¬ 
tungen unserer Speicherstadt (in den Stadtteilen Basic- 
Interpreter oder Betriebssystem etc.) über alle aktuellen 
Angaben, die sie zum reibungslosen Verkehr mit den Einrich¬ 
tungen der Zeropage Straße benötigen - sonst wäre ja das 
Funktionieren unseres Gemeinwesens nicht gewährleistet - 
andererseits ist es aber wünschenswert, daß auch Orts¬ 
fremde sich der vielen Möglichkeiten dieses wichtigen Teiles 
unserer Stadt fachkundig bedienen können. 

Orientierung 


Damit haben wir auch einen Schwachpunkt unserer Compu¬ 
terstadt angesprochen: Fachkundig! Nur allzu leicht passiert 
es, daß Unkundige fehlerhaft die Einrichtungen unserer 
wichtigsten Straße benutzen. Die Folgen waren oft gravie¬ 
rend und konnten nur durch einen Neustart behoben werden! 
Aus diesem Grund wird hiermit der Führer durch die Zero¬ 
page und die erweiterte Zeropage vorgestellt, der die wich¬ 
tigsten Adressen und ihre Benutzung erläutert. 

Bevor wir aber die Zeropage-Straße beschreiben, sollten 
Sie auch noch wissen, wie unsere Speicherstadt aussieht 
und wo diese Straße überhaupt zu finden ist. Im Bild 1 sehen 
Sie eine Gesamtansicht der C128-Stadt: 

Darin erkennen Sie, daß die Speicherstadt aus mehreren 


Ebenen besteht, deren untere BANK 0 genannt wird. Dar¬ 
über befindet sich BANK 1. BANK 2 bis BANK 13 sind sozu¬ 
sagen vorbereitet für den weiteren Ausbau unserer Stadt. In 
den BANKs 14 und 15 befindet sich die Verwaltung des 
gesamten Gemeinwesens. Alle Ebenen dieser Stadt haben 
einen Bereich gemeinsam, der COMMON AREA genannt 
wird, was etwa »Gemeinsamer Bereich« bedeutet. Gleichgül¬ 
tig in welcher Ebene der Stadt Sie sich gerade befinden, 
wenn Sie nur weit genug die Straße hinuntergehen bis zu den 
niedrigen Hausnummern, Sie landen unweigerlich ab 
Adresse $0400 (und kleiner) in dieser Common Area. Noch 
eine interessante Eigenschaft der Ebenen 14 und 15. Deren 
niedrigste Hausnummer ist nämlich $4000. Unterhalb dieser 
Hausnummer befinden Sie sich plötzlich wieder in BANK 0. 
Daher gibt es für den Neuling in unserer Stadt ein recht einfa¬ 
ches Rezept, die Zeropage-Straße und ihre Verlängerung zu 
finden: Einfach zu den Hausnummern unter $0400 gehen! 
Wir werden später noch erkennen, daß die Straße der erwei¬ 
terten Zeropage sogar noch Hausnummern enthält, die grö¬ 
ßer als $0400 sind. Um diese zu finden, muß der Besucher 
dann am besten mittels des Befehls BANK 0 in die untere 
Etage aehen (BANK 15 und BANK 14 sind aber - wegen der 
ebeii v,. klärten Eigenart dieser Stadtteile - auch erlaubt). 

Die beiden ersten Häuser 


Noch eine technische Bemerkung: Es ist an dieser Stelle 
natürlich nicht möglich, wirklich jedes Haus dieser Straße mit 
gleicher Aufmerksamkeit vorzustellen. Einige sind in der 
Beschreibung sogar weggelassen worden. Einige andere 
enthalten lediglich den Hinweis auf einen anderen Führer, 
den Sie in diesem Heft vollständig abgedruckt finden: 
»Memory Map mit Wandervorschlägen« von Dr. H. Hauck. 
Jener hatte die C 64-Stadt beschrieben, aus der dann unsere 
Stadt entstand. Überall dort also, wo die einzelnen Häuser 
noch dieselbe Funktion wie damals haben, finden Sie einen 
Verweis auf das Werk dieses exzellenten Kenners jener 
Stadt. 

Sie werden sich erinnern: Man fängt bei Null an zu zählen. 
Daher haben die beiden ersten Häuser der Zeropage-Straße 
die Nummern 0 und 1. Beide haben Namen und in ihnen wer¬ 
den bestimmte - gleich noch zu beschreibende - Arbeiten 
geleistet: 

Adresse Name Aufgabe 

00 D8502 8502 Datenrichtungsregister 

01 R8502 8502 Datenregister 

Jedes dieser Häuser (Bytes) besteht aus 8 Zimmern (Bits), 
deren Inhalt bedeutend ist für einige Computerfunktionen. 
Die Zuordnung der Aufgaben auf die Zimmer ist in beiden 
Adressen identisch, lediglich die Bedeutung des Inhaltes ist 
unterschiedlich. In Register 00 entscheidet dieser Inhalt nur 
darüber, ob eine Leitung auf Ausgang (dann ist das Bit = 1) 
oder Eingang (dann ist es 0) geschaltet wird. In Adresse 01 
haben die Zimmer folgende Funktion: 

Bit Funktion 

7 unbenutzt, steht auf 0 

6 Zustand der ASCII/DIN-Taste 
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0 Taste ist gedrückt (DIN) 

1 Taste ist nicht gedrückt (ASCII) 

5 Kassettenmotorsteuerung 

0 Motor ein 
1 Motor aus 
4 Datasettentaste 

0 Taste gedrückt 
1 keine Taste gedrückt 
3 Serielle Schreibleitung Datasette 

2 und 1 Steuerung von Text- und Grafikmodus 
01 Textmodus 
10 Grafikmodus 

0 Inhalt von $D800 bis $DC00 

0 Farb-RAM für Grafik (Multicolorfarbe 2) 

1 Farb-RAM für Text 

Der normale Inhalt von 00 ist $2F = 47, der von 01 bei 
ASCII-Betrieb ist $73 = 115. Ist der DIN-Zeichensatz aktiv, 
dann findet man in 01 statt dessen $33 = 51. Eine Umschal¬ 
tung von ASCII auf DIN ohne Benutzung der Taste und eine 
gleichzeitige Sperrung dieser Taste erreicht man auf fol¬ 
gende Weise: 

POKE 0,111 schaltet die Leitung, die durch Bit 6 des Daten¬ 
richtungsregisters erfaßt wird, auf Ausgang. Danach ist es 
möglich, mittels POKE 1,51 auf den DIN- und mittels POKE 
1,115 auf den ASCII-Zeichensatz umzuschalten. Sobald man 
das Datenrichtungsregister wieder auf den Normalwert setzt 


(durch POKE 0,4,7), schaltet sich wieder der ASCII- 
Zeichensatz ein. Durch POKE 0,111 bleibt die ASCII/DIN- 
Taste gesperrt. Das ganze funktioniert nur dann, wenn vor 
dem POKE 0,111 der ASCII-Zeichensatz eingeschaltet, also 
die Taste nicht gedrückt war. 

Die nächsten acht Häuser dienen vor allem dem Monitor, 
der ja durch F8 aufruf bar ist. Außerdem benutzt sie der Com¬ 
puter zur Parameterübergabe bei bestimmten Operationen, 
die sich zwischen verschiedenen BANKs abspielen. Den 
Basic-Programmierer interessieren sie daher weniger. Hier 


die Bedeutungen:. 


Adresse 

Name 

Aufgabe 

02 

BANK 

BANKteil des Programmzählers PC 
bei Registeranzeige 

03 

PC-HI 

MSB des Programmzählers bei 
Registeranzeige 

04 

PC-LO 

LSB des Programmzählers 

05 

S-REG 

Prozessorstatus SR bei Register¬ 
anzeige 

06 

A-REG 

Akkumulator A bei Registeranzeige 

07 

X-REG 

X-Register X bei Registeranzeige 

08 

Y-REG 

Y-Register Y bei Registeranzeige 

09 

STKPTR 

Stapelzeiger SP bei Register¬ 
anzeige 


Bei den nun folgenden Häusern handelt es sich um solche, 
in denen bestimmte Aufgaben erledigt werden, die mit dem 
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Basic-Betrieb Zusammenhängen. Dabei kommt der Adresse 
09 außer der eben vorgestellten noch eine weitere Aufgabe 
zu: sie enthält ein Zeichen, das im Basic-Text gesucht wird 
(wie beispielsweise ein Anführungszeichen, einen Doppel¬ 
punkt oder ein RETURN zur Beendigung der Basiczeile). All 
diese Funktionen gab es auch schon beim C 64. Dort waren 
die entsprechenden Speicherstellen genau 2 Byte tiefer 
gelegen: Der Adresse 09 entspricht beim C 64 die Adresse 
07 und so fort. Wegen einer genauen Beschreibung ver¬ 
weise ich Sie daher auf den Artikel von Dr. Hauck. 


Arrays und Variable 


Die Adressen 45 bis 58 gehören zu Zeigern, die ebenfalls im 
C 64 zu finden sind (43 bis 56). Auch hier empfehle ich Ihnen 
die Lektüre der Memory Map von Dr. Hauck. Die Namen und 
die Bedeutungen stimmen bei beiden Computern überein 
(lediglich der letzte Zeiger heißt hier MAXMEM1). Bedingt 
aber durch den komplexeren Aufbau des CI28 finden Sie 
völlig andere Inhalte. 

45/46 ist ein Zeiger, der auf den Start des Basic- 
Textspeichers weist. Er heißt TXTTAB. Im LSB/MSB-Format 
enthält er die Adresse $1C01 der BANK 0. Der Basic-Text- 
Start ist durch Eintragungen in diesen Zeiger verschiebbar, 
beispielsweise macht das der Computer in Windeseile, wenn 
ein Bitmap-Modus (also ein Grafikbildschirm) eingeschaltet 
wird. Dann nämlich findet man hier plötzlich die Basic- 
Startadresse $4001. Erst durch den Befehl GRAPHIC CLR 
landet wieder die Anschrift $1C01 in diesem Zeiger. Wollen 
Sie selbst diese Startadresse verlegen (das muß geschehen, 
bevor ein Basic-Programm im Speicher liegt!), zum Beispiel 
nach $2001, dann verfahren Sie so: 

1) Berechnen des LSB und des MSB: LSB = $01 = 1, MSB 

= $20 = 32 

2) Einträgen in den Vektor TXTTAB: POKE45,1:POKE46,32 

3) NEW eingeben! Damit werden alle anderen Vektoren - 

soweit nötig - angepaßt. 

Durch PRINT FRE(O) können Sie dann schnell feststellen, 
daß der Speicherplatz in der BANK 0 abgenommen hat. Eine 
interessante Kleinigkeit noch am Rande: Sollten Sie auf die 
eben beschriebene Weise einmal den Basic-Textstart ver¬ 
schoben haben und dann durch einen GRAPHIC-Befehl den 
Bitmap-Modus aktivieren, dann verschiebt der Computer den 
Basic-Textstart nicht nach $4000, sondern er legt ihn immer 
um 9216 Speicherplätze höher als die Adresse, die in 45/46 
angegeben wurde. Das wäre dann in unserem eben gewähl¬ 
ten Beispiel $4401. 

47/48 ist wieder ein Vektor. Er heißt VARTAB und weist auf 
die Adresse, bei der die erste Variable abgelegt wird. Der 
C128 benutzt dazu im Normalfall die Speicherstelle $0400 
in der BANK 1. Auch hier ist es wieder möglich, die Adresse 
zu verschieben, indem man andere Werte nach 47/48 ein¬ 
trägt. Die Veränderung im Speicher der BANK 1 kann dann 
mittels PRINT FRE(1) festgestellt werden. Auch hier sollte 
man nach den POKE-Kommandos ein NEW eingeben. Jede 
Variable beansprucht in dieser Variablenliste sieben Spei¬ 
cherplätze. Der genaue Aufbau eines Variableneintrages 
kann bei Dr. Hauck nachgelesen werden, er unterscheidet 
sich kaum bei beiden Computern. 

Interessant in diesem Zusammenhang ist die POINTER- 
Funktion des Basic 7.0, mit deren Hilfe der Ort in der BANK 
1 festgestellt werden kann, an dem ein Variableneintrag 
steht. Das probieren wir mal aus. 

Zuerst löschen wir den Variablenspeicher durch CLR. 
Dann geben Sie bitte im Direktmodus ein: 

A* = 32 : B* = 10 

Ebenfalls im Direktmodus schreiben Sie folgende Zeile: 


PRINT P0INTER(A?),HEX$(POINTER(A*)),P0INTER(B«), 
HEX$ (P0INTER(B*)) <RETURN> 

Als Ergebnis druckt der Computer aus: 

1025 0402 1033 0409 

Die sich ergebenden Werte zeigen mehrerlei: Zum einen 
erkennt man den Abstand von 7 Byte beider Variablenein¬ 
träge voneinander. Zum anderen sehen Sie, daß die ausge¬ 
worfene Adresse von A% nicht dem vorhin festgestellten 
Variablenstartwert $0400 entspricht, sondern 2 Byte höher 
liegt. Der Unterschied rührt vom Variablennamen her, der 
2 Byte beansprucht. Das Ergebnis der Pointer-Funktion 
weist also direkt auf den Wert der Variablen. Mittels des Moni¬ 
tors können Sie das überprüfen: Drücken Sie F8 und geben 
Sie ein 

M 10400 10401 

Eine Zeile wird ausgegeben, von der die beiden ersten 
Bytes zum Namen gehören (ASCII-Werte + 128: CI 80), die 
folgenden 5 Byte zum Wert (in der Reihenfolge MSB LSB: 00 
20) und zum Füllen (00 00 00). Dann schließt sich die näch¬ 
ste Variable an. Dies ist nicht der geeignete Ort, um tiefer in 
die Struktur der verschiedenen Variableneinträge einzustei¬ 
gen (in der Serie »Von Basic zu Assembler« im 64'er-Stamm- 
heft geschieht das demnächst). Es sollte nur noch erwähnt 
werden, daß die POINTER-Funktion bei String-Variablen auf 
das erste Byte des Stringdeskriptors weist. 

Der folgende Zeiger 49/50 bezeichnet den Anfang des 
Bereiches in der BANK 1, der zur Speicherung von Feldern 
(auch Arrays oder dimensionierte Variable genannt) dient. 
Gleichzeitig liegt hier das Ende der einfachen Variablenein¬ 
träge. Im Einschaltzustand findet man hier den gleichen Ein¬ 
trag wie in 47/48, nämlich die Adresse $0400. Mit jeder 
neuen Variablen verschiebt sich dieser Zeiger um 7 Byte auf¬ 
wärts und mit ihm natürlich auch alle Einträge in der Arrayliste. 
Stelle,. Sie sich vor, Sie hätten ein Programm geschrieben, in 
dem zunächst irgendeine Variable angesprochen wird, dann 
mehrere Felder durch DIM... definiert werden. Im weiteren 
Programmlauf taucht noch die eine oder andere Variable auf: 
Schleifenzähler, Zwischenwerte und so weiter. Jede neu auf¬ 
tretende Variable führt dazu, daß der gesamte Arrayinhalt um 
7 Byte höher gelegt werden muß. Sie wissen vermutlich auch 
schon, daß Arrays viel Speicherplatz fressen und können 
sich daher nun auch vorstellen, daß diese Verschiebungen 
Zeit kosten. Die Lehre aus dieser Erkenntnis führt zu einer 
Beschleunigung des Programms: Jede Variable sollte schon 
definiert werden (unter Umständen mit irgendwelchen Dum¬ 
mywerten), bevor das erste Array definiert wird. Auf diese 
Weise braucht nichts mehr verschoben zu werden. 


Variable vordefinieren! 


Der Name des Arraystartzeigers ist übrigens ARYTAB und 
auch hier lassen sich die Orte der einzelnen Einträge mittels 
der POINTER-Funktion feststellen. Das sollten Sie mal mit 
einem zweidimensionalen Array ausprobieren, um festzustel¬ 
len, in welcher Reihenfolge die einzelnen Elemente abgelegt 
sind. 

Der Zeiger 51/52 heißt STREND und gibt die Endadresse 
der Arrayeinträge an. Er wächst also mit jedem neudefinierten 
Feld um die Anzahl Byte weiter, die das Feld für alle Elemente 
und für den Kopf benötigt. Sehen wir uns nun einmal an, wie¬ 
viele Byte das sind. Geben Sie zuerst CLR ein, um den Varia¬ 
blenspeicher zu löschen. Im Direktmodus schreiben Sie 
dann: 

DIM AB(300,32) 

Mittels des Monitorkommandos M 10400 10401 lassen 
Sie sich wieder eine Zeile aus dem Variablenspeicher auf 
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dem Bildschirm ausgeben. Weil wir nur das Array definiert 
haben, gehört alles, was wir nun sehen, zum Array: 

41 42 OA C2 02 00 21 01 2D 00 ... 

Dies ist der Kopf unseres Feldes. Die beiden ersten Anga¬ 
ben kennzeichnen den Namen und den Typ des Arrays (41 

42 = ASC II für A B). Die beiden folgenden Bytes geben im 
LSB/MSB-Format die Länge unseres gesamten Feldes an: 
$C20A = 49674! Ganz schön lang, unser Feld. Es folgt die 
Anzahl der Dimensionen (02): in unserem Beispiel ist diese 
Anzahl 2. Weil ein ganzes Byte für diese Zahl reserviert wird, 
könnte man theoretisch bis zu 255 Dimensionen verwenden. 
Bis hierher ist der Aufbau des Arraykopfes für alle möglichen 
Felder identisch. Nun folgen - jeweils in 2 Byte angegeben 
- die Anzahl der Elemente pro Dimension. Dabei fängt die Ein¬ 
tragung bei der letzten angegebenen Dimension an: $0021 
gehört zu der von uns eingegebenen Menge von 32 Elemen¬ 
ten in der zweiten Dimension. $21 entspricht der dezimalen 
Angabe 33. Das kommt dadurch zustande, daß auch ein Ele¬ 
ment mit der Nummer 0 mitgezählt wird. Vielleicht ist es Ihnen 
schon aufgefallen, daß diese Angabe der Elementanzahl im 
ungewöhnlichen Format MSB/LSB stattfindet. Das sehen Sie 
auch an der nächsten Elementangabe $012D, was dezimal 
301 entspricht. Wir fassen also zusammen: 

Fester Arraykopf : 5 Byte 

Für jede Dimension : 2 Byte 

In unserem Beispiel ergibt sich daher eine Länge von 
5+2*2 = 9 Byte. An diesen Kopf schließen sich nun die ein¬ 
zelnen Elementeinträge an. Dabei haben je nach Arraytyp die 
Einträge unterschiedliche Längen: 

Integer-Array : 2 Byte 

Fließkomma-Array : 5 Byte 

String-Array : 3 Byte 

Unser Beispielfeld ist ein Fließkomma-Array. Jeder Eintrag 
beansprucht daher 5 Byte. Die Anzahl der Elemente (mit den 
jeweiligen Null-Einträgen) ist (32 + 1)*(300+1) = 9933. 
Diese Anzahl also mal fünf pro Eintrag ergibt 49665 Byte für 
alle Einträge zusammen. Dazu addieren wir noch die 9 Byte 
für den Kopf und erhalten so die Gesamtlänge von 49674 
Byte. Das hatten wir oben auch schon aus den Byte 3 und 4 
des Arraykopfes herausgelesen. 

Der Vektor 51/52 sollte nun den Wert $0400 + $C20A = 
$C60A enthalten. Sehen Sie nach mittels des Monitorkom¬ 
mandos M 00033 00034: genau an den ersten beiden Stel¬ 
len steht im LSB/MSB-Förmat diese Adresse. Sie wissen nun, 
wie man die Länge eines Feldes berechnen kann. Gleichzei¬ 
tig haben Sie aber auch gesehen, daß solch ein Feld sehr 
schnell eine gewaltige Größe annehmen kann. Das sollten 
Sie im Gedächtnis behalten, denn bei den nächsten Vektoren 
stoßen wir nochmal auf diese Eigenschaft. 

FRETOP wird der nächste Vektor bei 53/54 genannt. Er 
weist immer auf das Ende des Bereiches, in dem Stringtexte 
stehen. Im Einschaltzustand findet man hier die Adresse 
$FF00 in BANK 1. Definiert man nun im Programm oder im 
Direktmodus einen Stringtext, dann lagert der Interpreter 
unseres Computers diesen Text und noch einen Zeiger (der 
besteht aus 2 Byte und weist auf den Stringdeskriptor) von 
$FF00 an abwärts in den Speicher. Der Vektor 53/54 folgt 
dieser Eintragung und sein Inhalt nimmt einen geringeren 
Wert an. Bestünde der einzutragende String aus 4 Zeichen, 
dann senkt sich 53/54 um 6 Byte. Wenn viele und lange 
Strings auftreten, dann nähert sich - immer weiter abwärts 
schreitend - der Vektor 53/54 langsam aber sicher dem Vek¬ 
tor 51/52. Vor jedem neuen Eintrag prüft unser Computer, ob 
noch genug Platz zwischen den beiden Adressen vorhanden 
ist. Reicht einmal dieser Raum nicht mehr aus, dann erfolgt 
die Garbage Collection. Darunter versteht man die Vernich¬ 
tung von nicht mehr benötigten Stringtexten, die dazu führt, 
daß der Abstand beider Vektoren wieder etwas wächst. 
Sollte aber irgendwann einmal auch diese Operation nicht 


mehr genügend Raum schaffen können, dann meldet sich 
der Computer mit einem OUT OF MEMORY ERROR. Beim 
CI28 dürfte das allerdings nicht allzu häufig der Fall sein. 

Der Vektor 55/56 heißt FRESPC und ist ein für uns nicht 
so bedeutender Hilfszeiger zur Stringverarbeitung. 

Interessant ist wieder MAXMEM1, wie der Zeiger 57/58 
genannt wird. Er enthält die höchste für die Variablenspei¬ 
cherung zur Verfügung stehende Adresse in der BANK 1. Der 
normale Inhalt ist $FF00. Es gibt Situationen, in denen es 
wünschenswert erscheint, den oberen Speicherraum der 
BANK 1 für andere Zwecke zu benutzen. In solchen Fällen 
genügt es dann, die neue Variablenspeichergrenze im 
LSB/MSB-Format in MAXMEM1 einzuschreiben und 
anschließend CLR einzugeben. Durch das letztere Kom¬ 
mando werden auch die anderen Zeiger auf sinnvolle Werte 
gesetzt. 

Wo hört Basic auf? 


Wir müssen nun der Reihenfolge der Häuser in der Zeropage- 
Straße gewaltig vorausgreifen: Nachdem wir Vektoren gefun¬ 
den haben, die jede Einzelheit der Variablenspeicherung in 
der BANK 1 fixieren, die das in Basic erreichbare Ende dieser 
Bank festlegen und die den Beginn des Basic-Textes in BANK 
0 kennzeichnen, fehlen uns noch zwei Angaben: Wo hört der 
Basic-Text auf und wo ist das für den Basic-Text maximal 
erreichbare Ende des Speichers in der BANK 0? 

Dazu eilen wir in die Page 12 (kann man das noch als erwei¬ 
terte Zeropage bezeichnen?) und finden darin den Vektor 
4624/4625 (das ist $1210/1211), der TEXTTOP genannt 
wird. Darin befindet sich die Endadresse des Basic- 
Progr?"imtextes. Ebenfalls in dieser Page liegt der Zeiger 
MAXMcMO, nämlich bei 4626/4627 ($1212/1213). Wie es 
der Name schon nahelegt, bezeichnet dieser Vektor das 
äußerste Ende des Basic-Textspeichers in BANK 0. Auch hier 
gibt es wieder die Möglichkeit, durch geeignete POKE- 
Befehle diese Grenze herabzusetzen. Mit dieser Kenntnis 
der entscheidenden Basic-Vektoren wird es möglich, 
Assembler-Programme zu schreiben, die einen OLD- und 
einen MERGE-Befehl enthalten. Beide Programme finden 
Sie im Buch »Grafik-Programmierung C128«, (auf den Seiten 
144 und 150) das im Markt & Technik Verlag unter der Num¬ 
mer MT90202 erschienen ist oder in den 64’er-Ausgaben 
12/85, Seite 43 und 5/86, Seite 95. 

Das Bild 2 zeigt Ihnen die Bedeutung all dieser Zeiger für 
die BANK 0 und BANK 1 in übersichtlicher Form. 

Direkt nach der Gruppe von Basic-Zeigern finden wir den 
Vektor CURLIN (59/60), der dasselbe leistet wie der Vektor 
57/58 im C 64. Daher verweise ich Sie wieder an die Memory 
Map von Dr. Hauck. 

TXTPTR bei 61/62 ist aber etwas Neues. Das ist ein Vektor, 
der in der sogenannten CHRGET-Routine verwendet wird 
und immer auf das nächste Zeichen im Basic-Text weist. Für 
den Basic-Programmierer allerdings dürfte ein Verändern 
dieser beiden Speicherstellen auf das bekannte Absägen 
des Astes, auf dem man sitzt, hinauslaufen. Die CHRGET- 
Routine nämlich arbeitet sich Zeichen für Zeichen durch den 
Basic-Text und schaufelt auf diese Weise dem Basic- 
Interpreter den Text Byte für Byte zu. Wird also im Rahmen 
eines Programms TXTPTR durch das Programm selbst verän¬ 
dert, dann kann schon nach dem ersten POKE-Befehl (bei¬ 
spielsweise nach 61) der Computer den zweiten POKE- 
Befehl nicht mehr finden (den nach 62), weil der Zeiger nun 
schon ganz woanders hinweist. 

Bei 63/64 handelt es sich um den Hilfszeiger FNDPNT, der 
unter anderem beim PRINT USING eine Rolle spielt. 

Die Bedeutung der Speicherstellen 65 bis 98 ist identisch 
mit der der um 2 erniedrigten Adressen im C 64 (also 63 bis 
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96). Weitere Informationen dazu finden Sie bei Dr. Hauck. 

Auch die folgenden Speicherstellen 99 bis 104 und 106 
bis 111 enthalten dasselbe, wie die C 64-Speicherstellen 97 
bis 102 und 105 bis 110: hier liegen die beiden Fließkomma- 
Akkumulatoren FAC und ARG. Bild 3 zeigt den Aufbau dieser 
beiden Speicherbereiche. 

Die Fließkomma-Akkumulatoren sind gewissermaßen die 
Hauptrechenwerke unseres Computers, der nahezu alle 
Rechenoperationen mit Fließkommazahlen ausführt. Hier 
müssen vor einem Aufruf einer mathematischen Operation 
die davon betroffenen Zahlen enthalten sein. Nach der Ope¬ 
ration findet sich das Ergebnis fast immer im FAC. Für den 
Basic-Programmierer haben die beiden Akkumulatoren kaum 
eine direkte Bedeutung, dafür sind sie für den Assemblerpro¬ 
grammierer - besonders für den, der auch Interpreterrouti¬ 
nen verwendet - das tägliche Brot. 

FAC und ARG 


Eine Speicherstelle haben wir bislang ausgelassen: SGNFLG 
bei 105. Dieses Byte liegt beim C 64 bei 103 und dort erfüllt 
es auch die gleiche Aufgabe bei Polynomauswertungen. Die 
Speicherstellen 112 (ARISGN) und 113 (FACOV) entspre¬ 
chen den C64-Adressen 111 und 112. Erstere dient dem Ver¬ 
gleich der Vorzeichen von FAC und ARG, letztere ist ein Run¬ 
dungsbyte für den FAC. In 114/115 liegt ein Zeiger auf den 
Kassettenpuffer, der im Normalfall ab $B00 zu finden ist. Der 
Name dieses Vektors ist FBUFPT und im C64 befindet sich 
dasselbe bei 113/114. Siehe also dazu wieder den guten Dr. 
Hauck in seiner Memory-Map-Serie. 

Nun kommen wir zu allerlei Unterschieden zwischen dem 
C 64 und dem C128. Beim ersteren begann ab 115 die vorhin 
schon erwähnte CHRGET-Routine. Der CI28 enthält hier 
statt dessen eine Menge Vektoren und gespeicherter Werte: 

116/117 AUTINC enthält die Schrittweite, in der beim 
AUTO-Befehl die Basic-Zeilennummern erhöht werden. 

118 MVDFLG ist ein Flag, das anzeigt, ob durch einen 
GRAPHIC-Befehl die Verschiebung des Basic-Programm- 
textes von $1C00 nach $4000 veranlaßt worden ist. In dem 
Fall ist dieses Flag gesetzt. 

119 SPRNUM dient als Mehrzweckspeicher für vielerlei 
Anwendungen. Beispielsweise enthält er beim MOVSPR- 
Befehl die Spritenummer (daher der Name), aber auch die 
Lautstärke beim VOL-Befehl oder andere Dinge werden hier 
gelagert. 

120 HULP wird nur in Verbindung mit SPRNUM gebraucht 
und hat dann auch vielerlei Funktionen. 

121 SVNTMP ist ein Zwischenspeicher, der meist bei Ver¬ 
gleichen mit Werten aus anderen BANKs verwendet wird. 
Diese sind dann hier abgelegt. 

122 DSDLEN dient im Monitorbetrieb als Zeiger in den Ein¬ 
gabepuffer ab $200. Im Basic-Betrieb findet sich hier die 
Länge von DS$. Die Floppy-Statusvariable wird dann als 
gelöscht angesehen, wenn hier eine Null enthalten ist. 

123/124 DSDADR zeigt in den Stringbereich der BANK 1. 
Dort befindet sich dann der laufend aktualisierte Wert von 
DS$. 

125/126 TOS ist ein Zeiger in den Basic-Programmlauf- 
Stapelspeicher (der geht von $A00 bis $800). Hier werden 
während eines Programmes Informationen über FOR...NEXT, 
DO...LOOP-Schleifen oder Return-Adressen aufbewahrt. 
Beim C 64 geschah das noch im Prozessor-Stapelspeicher, 
der aber für die stark erweiterten Möglichkeiten des Basic 
7.0 zu klein wäre. 

127 RUNMOD enthält Informationen darüber, ob sich der 
Computer im Direkt- (dann liegt hier $00) oder im Programm¬ 
modus (Inhalt $80) befindet. Das entspricht der MSGFLG bei 
157 des C 64. 


128 SYNTAX1 enthält ein Prüfbyte der sogenannten 
DOSPAR-Routine. Diese Routine holt die Parameter für Dis¬ 
kettenbefehle. Die Bedeutung der einzelnen Bits ist: 

Bit Zuordnung 

0 1. Filenamen gelesen 

1 2. Filenamen gelesen 

2 logische Filenummer gelesen 

3 Gerätenummer gelesen 

4 1. Laufwerksnummer gelesen 

5 2. Laufwerksnummer gelesen 

6 Recordlänge gelesen 

7 Klammeraffe gelesen (Überschreiben des Files) 
Ebenfalls von dieser Routine angesteuert wird die folgende 

Speicherstelle: 

129 SYNTAX2. Hier haben nur die Bits 0 bis 2 eine Bedeu¬ 
tung: 

Bit Zuordnung 

0 Segmentnummer gelesen 

1 Startadresse gelesen 

2 Endadresse gelesen 

130 OLDSTK dient beim TRAP-Befehl des Basic 7.0 als 
Aufbewahrungsort für den Stapelzeiger des Prozessors. 

Bevor wir hier weiter untersuchen, noch eine kleine Bemer¬ 
kung: Sie haben sicherlich schnell festgestellt, daß wir das 
Bild von der Speicherstadt mit den Häusern der Zeropage- 
Straße oft fallengelassen haben. Das hängt damit zusammen, 
daß die Materie stellenweise recht kompliziert ist und man 
davon ausgehen kann, daß sowohl Einsteiger als auch Freaks 
diese C128-Memory-Map verwenden. Es wäre unsinnig, 
beispielsweise die gerade vorgestellte Speicherstelle 130 
als Haus zu bezeichnen, wenn man nun nicht auch noch Ent¬ 
sprechungen für den Begriff des Stapelzeigers oder des Pro¬ 
zessors verwenden würde. Das aber würde sehr auf Kosten 
der Kic heit gehen und ab und zu auch reichlich lächerlich 
klingen. Ohnehin kann mit einigen Speicherstellen nur der 
Fortgeschrittene etwas anfangen. Deshalb wird unser Bild 
von der Speicherstadt auch nur dort verwendet, wo es darum 
geht, dem Einsteiger einen Zusammenhang zu verdeutli¬ 
chen. 

131 COLSEL enthält im Einschaltzustand den Wert 0. Hier 
ist gespeichert, welche Farbquelle bei einer grafischen Ope¬ 
ration (beispielsweise DRAW) herangezogen wird. Folgende 
Möglichkeiten stehen zur Verfügung: 

0 Hintergrundfarbe 

1 Vordergrundfarbe 

2 Multicolorfarbe 1 

3 Multicolorfarbe 2 

Auf diese Weise ist es möglich, daß Grafikbefehle auch 
ohne Angabe einer Farbquelle gegeben werden. In diesem 
Fall wird die in COLSEL gespeicherte Farbquelle angespro¬ 
chen, also die aus der letzten grafischen Operation. 

Multicolor-Farben 


132 MCOLOR1 enthält die aktuelle Multicolorfarbe 1. Im Ein¬ 
schaltzustand findet sich hier der Wert 1, was dem Farbcode 
von Weiß (1) entspricht. 

133 MCOLOR2 weist bei Einschalten den Wert 2 auf 
(Rot - 1) und dient der Aufbewahrung der aktuellen Multi- 
colorfarbe 2 

134 FOREGND ist im Einschaltzustand auf den Wert 13 
(Hellgrün -1) gesetzt und enthält den Code der Vordergrund¬ 
farbe. 

135/136 SCALEX dient zur Aufbewahrung des maximalen 
X-Wertes beim SCALE-Befehl. Interessant scheint, daß man 
- entgegen der Angaben im Handbuch - hier Werte bis 
32767 (der höchsten positiven 16-Bit-lntegerzahl) verwen¬ 
den kann. 
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Bild 2. Die Zeiger in das Basic-Text- und -Varlablen-RAM in 
BANK 0 und BANK 1 


Byte 

99 

100 

101 

102 

103 

104 

Inhalt 

Exponent 

inklusive 

Vorzolchon 

MANTISSE 

Vorrolchon 

dor 

Mantisse 


Byte 

106 

107 

108 

109 

110 

111 

Inhalt 

Exponont 

inklusive 

Vorzeichen 

MANTISSE 

Vorzolchen 

dor 

Mantisse 


Bild 3. Anordnung und Inhalte der Fließkomma-Akkumulatoren 
FAC und ARG 


Bit: 

3 

2 

1 

0 











Entspricht 


R 

G 

B 

J 

Dez. 

Farbe 

Farbcode im 
40-Z.-Modus 


0 

0 

0 

0 

0 

schwarz 

1 


0 

0 

0 

1 

1 

dunkelgrau 

12 


0 

0 

1 

0 

2 

blau 

7 


0 

0 

1 

1 

3 

hellblau 

15 


0 

1 

0 

0 

4 

grün 

6 


0 

1 

0 

1 

5 

hellgrün 

14 


0 

1 

1 

0 

6 

türkis 

4 


0 

1 

1 

1 

7 

orange 

9 


1 

0 

0 

0 

8 

rol 

3 


1 

0 

0 

1 

9 

hellrot 

11 


1 

0 

1 

0 

10 

lila 

13 


1 

0 

1 

1 

1 1 

violett 

5 


1 

1 

0 

0 

12 

braun 

10 


1 

1 

0 

1 

13 

gelb 

8 


1 

1 

1 

0 

14 

hellgrau 

16 


1 

1 

1 

1 

15 

weiß 

2 


Bild 4. Aufbau-Schema der Spelcherstelle 241 (80-Zeichen- 
Betrieb) 


Bit: 

7 

6 

5 

4 

3 

2 

1 

0 

Name: 

ALT 

RVS 

UL 

FL 

R 

G 

B 

J 


Bild 5. Kombinationen der Bits 0 bis 3 der Speicherstelle 241 
und die sich ergebenden Farben (Sehr von der Art und Einstel¬ 
lung des verwendeten 80-Zeichen-Bildschirmes abhängig) 


137/138 SCALEY erfüllt den gleichen Zweck wie der eben 
genannte Speicher, hier aber für den maximalen Y-Wert. Auch 
bei Y ist es möglich, Werte bis 32767 sinnvoll anzuwenden. 

139 STOPNB enthält ein Flag, das beim PAINT-Befehl der 
Randbegrenzung dient. 

140/141 GRAPNT wird verschieden genutzt als Zeiger in 
die Bitmap. 

142 VTEMP1 und 143 VTEMP2 sind Zwischenspeicher 
für verschiedene Grafikoperationen. 

Zeropageadressen des Betriebssystems 


Die Speicherstellen 144 STATUS bis 203 ROBUF kann man 
als Zeropage des Betriebssystems bezeichnen. Größtenteils 
sind hier die Zuordnungen - bei gleichen Adressen - iden¬ 
tisch mit denen im C64. Lesen Sie für weitere Informationen 
dazu in dem Kurs über die Memory Map nach. Hier sollen nun 
nur die Unterschiede - soweit bekannt - erklärt werden. 

145 STKEY hat zwar dieselbe Aufgabe wie bei Dr. Hauck 
beschrieben, basiert aber auf einer veränderten Tastaturma¬ 
trix. Es gibt ja wesentlich mehr Tasten beim C128. Die Matrix 
besteht in unserem Computer aus 11 Zeilen zu je 8 Plätzen 
und ist - wie beim C 64 - mit den Ports A (Zeilen) und B (Spal¬ 
ten) des CIA 1 verbunden. Weil aber durch diese Ports nur 
FAC je 8 Plätze erfaßt werden können, hat ein neues Register 47 
des VIC-Chip die Aufgabe übernommen, mit seinen Bits 0 bis 
2 die Zeilen 9 bis 11 der Tastaturmatrix zu beobachten. Weil 
aber in diesen drei zusätzlichen Zeilen ausschließlich die 
neuen Tasten abgefragt werden (der Zehnerblock, ESC, TAB, 
ALT, HELP, LINE FEED, NO SCROLL und obere Cursorta¬ 
sten), und weil die Anordnung der anderen Tasten in der 
Matrix identisch mit der im C64 ist, ergeben sich in 145 die 
gleiche.. Werte wie bei Dr. Hauck beschrieben. 

147 VERCK verhält sich genauso wie beim C64. Sein 
Inhalt ist identisch mit dem der Speicherstelle 12 (nicht 10 
wie beim C64). 

172/173 SAL hat zwar die bei Dr. Hauck beschriebene 
Funktion, außerdem aber liegt hier die Startadresse eines 
Programmes beim BOOT-Befehl, wenn mit der Floppy 1570 
oder 1571 gearbeitet wird. 

191 DRIVE hat außer der Aufgabe der Speicherstelle 
M YCH des C 64 - die an derselben Stelle liegt - noch zusätz¬ 
lich eine beim Booten: Der ASCII-Wert »0* liegt hier für das 
Laufwerk parat. 

193/194 STAL enthält außer den bei Dr. Hauck beschriebe¬ 
nen Werten beim Booten noch Track (in 194) und Sektor (in 
193) des Programmes. 

195/196 MEMUSS dient auch im C128 als Zeiger auf 
einen Programmanfang bei LOAD und VERIFY. Außerdem ist 
MEMUSS aber noch ein Zwischenspeicher beim Kopieren 
der Kernal-Vektoren in die erweiterte Zeropage und bei der 
Suche nach der Zeichenfolge »CBM« in der BANK 1. 

197 DATA ist ein Bitspeicher für das Lesen vom Band und 
auch ein Prüfsummenpuffer für das Schreiben auf Band. 

198 BA steuert bei LOAD, SAVE und VERIFY die Speicher¬ 
konfiguration, auf die zugegriffen wird. 

199 FNBANK erledigt dasselbe für den Zugriff auf einen 
aktuellen Filenamen. 

200/201 RIBUF gibt die Startadresse des RS232-Einga- 
bepuffers an, der von $C00 bis $D00 in BANK 0 reicht. Er 
entspricht etwa dem Zeiger 247/248 des C64. 

202/203 ROBUF enthält die Anfangsadresse des 
RS232-Ausgabepuffers. Dieser liegt zwischen $D00 und 
$E00 in der BANK 0. Ein ähnlicher Zeiger findet sich im C 64 
bei 249/250. 

204/205 KEYTAB ist ein Zeiger auf die aktuelle Tastatur- 
decodierertabelle. Dabei wird ein Wert aus der Zeigertabelle 
ab 830 verwendet. 
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206/207 IMPARM ist ein Vektor, der für die Kernal- 
PRIMM-Routine reserviert ist. Für Assembler-Programmierer 
ist diese Routine, die durch JSR $FF7D aufgerufen werden 
kann und einen direkt anschließenden Text ausgibt, sehr 
interessant. 

208 NDX entspricht der C64-Speicherstelle 198. Hier ist 
die Anzahl der Zeichen im Tastaturpuffer (liegt von 842 bis 
851) enthalten. Vorgesehen ist - wie auch schon beim C64 
- die Speicherung von 10 Zeichen. Allerdings nimmt es der 
CI28 nicht übel, wenn man noch weitere 10 benutzt, ledig¬ 
lich die Tabulatorstopps, die durch CTRL-I oder TAB aufgeru¬ 
fen werden, hat er dann vergessen. Die Verwendungs¬ 
möglichkeiten dieser Speicherstelle und des Tastaturpuffers 
im sogenannten programmierten Direktmodus werden Sie 
später erkennen, wenn wir uns den Tastaturpuffer genauer 
ansehen. 

209 KYNDX enthält die Länge eines Funktionstasten¬ 
strings. Gleichzeitig dient diese Speicherstelle als Flag für 
das Holen von Zeichen aus dem String, wenn sie ungleich 
Null sind. 

210 KEYIDX ist ein I-Byte-Zeiger auf den aktuellen Funk¬ 
tionstastenstring, der in den Speicherbereich ab $100A 
weist. 

211 wird SHFLG genannt und enthält einen Code für 
bestimmte Tasten: 

Bit Taste 

0 Shift 

1 CBM-Taste 

2 Control-Taste 

3 ALT 4 DIN 

Jedesmal, wenn solch ein Bit gleich 1 ist, ist die entspre¬ 
chende Taste gedrückt. Ist der Inhalt gleich 0, dann ist keine 
von diesen Tasten betätigt worden. 

212 enthält die Codenummer der gerade gedrückten Taste 
und wird SFDX genannt. Welche Taste zu welcher Nummer 
gehört, können Sie aus dem Handbuch, Anhang J, entneh¬ 
men. 

213 LSTX speichert ebenfalls den Tastencode. Diese Spei¬ 
cherung dient der Repeat-Funktion. 

Ein Flag zum Lesen vom Bildschirm liegt in 214 (CRSW). Ist 
dieses Flag ungleich Null, dann wird bei eingeschaltetem 
Cursor gelesen. 

215 MODE gibt an, welcher Bildschirm (40 oder 80 Zei¬ 
chen) gerade der Ausgabebildschirm ist. Man findet hier den 
Inhalt 0, wenn der 40-Zeichen- und den Inhalt 128, wenn der 
80-Zeichen-Bildschirm aktiv ist. Das ist für die Textausgabe 
auf dem Bildschirm wichtig. Es genügt eine Basic-Zeile wie: 
IF PEEK(215) > 0 THEN : ELSE ... 

216 GRAPHM gibt Auskunft über den aktuellen Grafikmo¬ 
dus. Ein bequemerer Weg, diesen zu erfahren, ist der Basic- 
Befehl RGR. Man findet in 216 folgenden Zusammenhang: 
Inhalt Modus 

0 Text-Modus 
32 HiRes-Bitmap-Modus 

96 Splitscreen: HiRes und Text 

160 Multicolor-Modus 
224 Splitscreen: Multicolor und Text 

217 CH AREN hat eine noch unklare Bedeutung: In der Lite¬ 
ratur finden sich zwei Beziehungen. Zum einen soll diese 
Speicherstelle als Flag für den Rastervergleichs-Interrupt 
dienen. Zum anderen aber soll der Inhalt des Bit 1 angeben, 
ob Zeichen aus dem ROM (=0) oder RAM ( = 1) entnommen 
werden. Das gilt immer dann, wenn über den VIC-Chip Zei¬ 
chen ausgegeben werden. Allerdings kann man auch ohne 
Berücksichtigung dieser Speicherstelle eigene Zeichen aus 
dem RAM holen. 

218/219 SEDSAL und 220/221 SEDEAL sind zwei Hilfs¬ 
zeiger des Bildschirmeditors, die beispielsweise für das 
Scrollen oder Löschen von Zeilen nötig sind. 


222 SEDT1 und 223 SEDT2 sind ebenfalls Hilfszellen, die 
als I-Byte-Speicher des Editors dienen. 

Die nachfolgenden Speicherstellen sind praktisch zweimal 
vorhanden, nämlich einmal für den 40-Zeichen- und dann 
noch für den 80-Zeichen-Bildschirm. Der jeweils aktuelle 
Inhalt findet sich in den nun folgenden Speicherstellen, 
wohingegen die Parameter des anderen Bildschirmes ab 
2624 gelagert sind. Wechselt man den Bildschirm (beispiels¬ 
weise durch ESC-X), dann werden blitzartig die beiden 
Inhalte ausgetauscht. 

224/225 PNTist ein Zeiger, der die Adresse der aktuellen 
Bildschirmzeile im jeweiligen Bildschirm-RAM enthält. 

226/227 USER enthält ebenfalls solch einen Zeiger, nun 
aber in das Farb-RAM beziehungsweise in das Attribut-RAM. 

Die folgenden vier Speicherstellen haben mit Bildschirm¬ 
fenstern zu tun. Als Fenster kann auch der gesamte Bild¬ 
schirm verstanden werden. Es gelten folgende Zuordnun¬ 
gen: 


Adresse 

Name 

Funktion 

228 

SC BOT 

Unterer Rand (Maximal 24) 

229 

SCTOP 

Oberer Rand (Minimal 0) 

230 

SCLF 

Linker Rand (Minimal 0) 

231 

SCRT 

Rechter Rand (Maximal 39 
oder 79) 


Die in Klammern angegebenen Werte beziehen sich 
jeweils auf den ganzen Bildschirm als Fenster. Der WINDOW- 
Befehl schreibt in diese Speicherstellen, der RWINDOW- 
Befehl liest sie aus. 

232 LSXP und 233 LSTP enthalten die Startspalte und die 
Startzeile für Eingaben bei blinkendem Cursor. 

234 INDX gibt das Ende der Zeile bei einer Eingabe an. 

235 TBLX und 236 PNTR halten die aktuelle Cursorzeile 
und Ci irsorspalte fest. 

In 2C7 LINES befindet sich die höchste zulässige Zeilen¬ 
nummer, also 24. 

238 COLUMNS enthält die höchste zulässige Spalten¬ 
nummer, die je nach aktuellem Bildschirm 39 oder 79 
beträgt. Auch hier ist eine Prüfung auf den gerade eingesetz¬ 
ten Bildschirm möglich. 

239 DATAX enthält das nächste auszugebende Zeichen. 

240 LSTCHR dagegen speichert das zuvor ausgegebene 
Zeichen. Diese Speicherung ist nötig, um beispielsweise 
ESC-Sequenzen zu bearbeiten. 

241 COLOR enthält - je nach angeschlossenem Bild¬ 
schirm - Zeichenfarbe oder Attribut des auszugebenden Zei¬ 
chens. Beim 40-Zeichen-Bildschirm entspricht diese Spei¬ 
cherstelle der bei 646 im C64. Ihr Inhalt ist dann gleich dem 
Farbcode 1 (also beispielsweise 1 für Weiß). Die Möglichkei¬ 
ten bei angeschlossenem 80-Zeichen-Bildschirm sind wei¬ 
taus vielfältiger. Bild 4 zeigt Ihnen den Aufbau von COLOR, 
der gleich dem einer Attribut-RAM-Zelle des VDC-Chip unse¬ 
res Computers ist. 

Bit 7: Im Gegensatz zum 40-Zeichen-Bildschirm, der die 
Umschaltung zwischen den beiden Zeichensätzen (Groß- 
und Kleinschreibung) nur durch Umschalten (per Commo- 
dore- und Shift-Taste) erlaubt, können auf dem 80-Zeichen- 
Bildschirm beide Zeichensätze gleichzeitig verwendet wer¬ 
den. Welches von den beiden möglichen Zeichenmustern 
abgebildet wird, entscheidet dieses Bit. Ist hier eine 1 enthal¬ 
ten, dann stammt das Zeichen aus dem zweiten Zeichensatz. 

Bit 6: Hiermit wird ein Aspekt der Zeichendarstellung dop¬ 
pelt gemoppelt: die Reverse-Darstellung. Eigentlich kann 
man nämlich durch Einträgen einer 1 in dieses Bit genau das¬ 
selbe erreichen, wie durch das ansonsten etwas speicher¬ 
fressende Verfahren eines gesonderten Zeichenmustersat¬ 
zes, aus dem sonst die inversen Zeichen abgerufen werden. 

Bit 5: Das Zeichen ist unterstrichen, wenn sich hier eine 1 
befindet. 

Bit 4: Wenn dieses Bit gleich 1 ist, dann blinkt das Zeichen. 
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Bits 3 bis 0: Diese Bits regeln durch ihre Kombination die 
dargestellte Farbe. R steht für Rot, G für Grün, B für Blau und 
I für Intensität. 

Alle diese einzelnen Aspekte können durch CHR$- 
oder/und ESC-Befehle gesteuert werden. So erzeugt: 
PRINT CHR$(2)"A" 

ein unterstrichenes und 
PRINT CHR$(27)+"F";"A* 

ein blinkendes A. Das Handbuch gibt ab Seite 44 darüber 
Auskunft. Aber auch durch einen sinnvollen POKE-Befeh! in 
diese Speicherstelle 241 können Sie alle Optionen ansteu¬ 
ern. Nehmen wir an, daß wir unterstrichene blinkende blaue 
Zeichen ausgeben möchten, also die Bits 5,4 und 1 auf 1 set¬ 
zen müssen: 

N = 0*217 + 0*216 + 1*2t5 + l*2t4 + 0*2(3 
+ 0 * 2 t 2 + 1 * 2(1 + 0 * 2(0 
POKE 241,N 

242 TCOLOR ist ein Zwischenspeicher. 

243 RVS enthält ein Reverse-Flag. Steht hier eine 0, dann 
wird das nächste Zeichen normal ausgegeben, bei anderen 
Inhalten dagegen invers. 

244 QTSW dient als Flag für den sogenannten Quote- 
Modus. Das ist der Modus, in dem Steuerzeichen als reverse 
Zeichen auf dem Bildschirm auftreten. Dieser Modus ist ein¬ 
geschaltet, wenn sich in 244 ein Inhalt ungleich O befindet. 
Durch einen nachfolgenden Print-Befehl können dann Steu¬ 
erzeichen ausgedruckt statt ausgeführt werden. 

245 INSRT zählt im Insert-Betrieb die Anzahl der eingege¬ 
benen Inserts. 

246 INSFLG ist ein Flag für den automatischen Einfüge- 

Modus (das ist der Insert-Modus). Dieser Modus wird durch 
ESC-A eingeschaltet und erzeugt dann in INSFLG einen Wert 
von 255. , _ 

247 wird LOOKS genannt und sperrt einige Tastenfunktio¬ 
nen. Nur die Bits 6 und 7 spielen eine Rolle: 


Bit sperrt bei Inhalt 1 

7 Umschaltung durch CBM- und Shift-Taste 

6 No-Scroll-Taste und Control-S 

248 SCROLL bewirkt, daß ein Aufwärtsscrollen des Bild¬ 
schirmes verhindert wird, wenn das Bit 7 gesetzt ist. Erreicht 
dann der Cursor den unteren Bildschirmrand, wird der Bild¬ 
schirm nicht nach oben gerollt, sondern der Cursor an den 
oberen Bildschirmrand gesetzt. Das Scrollen durch andere 
Ursachen (beispielsweise ESC-V) wird dadurch nicht verhin¬ 
dert. Ein gesetztes Bit 6 verhindert, daß die letzte Bildschirm¬ 
zeile versehentlich ein Zeilenüberlaufbit erhält. 

249 BEEPER ist eine Flagge, die das Sperren des Tones 
durch Control-G ermöglicht. Dazu muß das Bit 7 gleich 1 sein. 

250 bis 255 FREKZP: Hier hat man als Assembler- 
Programmierer einige freie Zeropage-Speicherstellen zur 
Verfügung. Die Speicherstelle 255 allerdings hat noch den 
Namen LOFBUF und scheint für irgendwelche Zwecke doch 
noch vom Computer benutzt zu werden (wie es auch beim 
C 64 der Fall ist). In der Literatur findet sich aber keine genau¬ 
ere Angabe darüber. 

Was nun folgt, könnte man als den erweiterten Teil der 
Zeropage-Straße bezeichnen. Haben Sie eine Vorstellung 
davon, wie lang diese »erweiterte Zeropage« ist? Sie reicht 
bis zur Adresse 4863. Etwa 18 weitere Pages liegen also 
noch vor unsl Diese lange Straße wird unser Thema sein in 
einer demnächst beginnenden Artikelfolge im 64’er- 
Magazin. (Heimo Ponnath/dm) 
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Spielen mit Musik 
und Grafik 


Lernen Sie das Programmieren von Grafik und 
Sound auf Ihrem C 64. Daß das auch in Basic mög¬ 
lich ist, beweist der folgende Artikel. 

W ie oft schon hat der Basic-Programmierer die hervor¬ 
ragenden Sound- und Grafikmöglichkeiten seines 
C 64 bestaunt, wenn er ein gekauftes Spiel, Grafik¬ 
oder Musikprogramm auf seinem Heimcomputer laufen ließ. 
Und wie oft hat er sich dabei gewünscht, ebensolche Klänge 
und Grafiken in seinen eigenen Basic-Programmen verwen¬ 
den zu können. 

Um sich diesen Wunsch zu erfüllen, gibt es zwei Möglich¬ 
keiten. Zum einen gibt es da die meist recht teueren Basic- 
Erweiterungen, die mit Zusatzbefehlen ohne großen Auf¬ 
wand Sound- und Grafikprogrammierung in Basic möglich 
machen. 

Nachteilig dabei ist jedoch, daß ein mit diesen speziellen 
Befehlen geschriebenes Programm nur mit der verwendeten 
Basic-Erweiterung lauffähig ist, da für den Standard-Basic- 
Interpreter zum Beispiel Befehle wie »PLOT« oder »MUSIC« 
Fremdwörter sind. Sie sind also zum normalen C64-Basic 
vollkommen inkompatibel. 



Die andere Möglichkeit ist die Programmierung mit dem 
Basic, das Ihrem C64 zur Verfügung steht. Sie ist zwar 
ungleich komplizierter und, wenn es auf Geschwindigkeit 
ankommt, sehr viel langsamer. Die so geschriebenen Pro¬ 
gramme sind aber ohne Erweiterungen auf jedem C 64 zu 
betreiben. 

Um die Programmierung von Sound und Grafik in Basic soll 
es auch in diesem Bericht gehen. 

Zu diesem Zweck werden die dafür verantwortlichen C 64- 
Bausteine, der VIC 6569 (Grafik) und der SID 6581 (Sound), 
unter die Lupe genommen und deren Steuerung von Basic 
aus aufgezeigt. Schließlich betrachten wir noch die beiden 
Ein-/Ausgabechips CIA 1 und CIA 2, denn auch mit diesen 
Bausteinen läßt sich in Basic einiges anstellen. 

Im allgemeinen geschieht die Steuerung der drei gerade 
erwähnten Chips durch Register, die in bestimmten Spei¬ 
cherbereichen des C64 adressiert sind. Die direkte Spei¬ 
chermanipulation ist bekanntlich mit den beiden Basic- 
Befehlen »PEEK« und »POKE« möglich. So lassen sich auch 
die VIC-, SID- und CIA-Register ansprechen und verändern. 

In den Action-Grafikspielen, Zeichen- und Soundprogram¬ 
men passiert im Prinzip dasselbe, nur in der sehr viel schnel¬ 
leren Maschinensprache. 
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Der VIC ist derjenige Chip, der für das Bild auf Ihrem Moni¬ 
tor oder Fernseher sorgt, während Sie mit dem C 64 arbeiten. 
Er ist dafür verantwortlich, daß die Buchstaben und Zeichen 
ordnungsgemäß, leserlich und in der richtigen Farbe auf dem 
Bildschirm erscheinen. Auch die Verarbeitung der HiRes- 
Grafik mit 320*200 Punkten Auflösung und die Steuerung 
der vielgerühmten Sprites stehen in seinem Aufgaben¬ 
bereich. 

Zu diesem Zweck besitzt der VIC 47 Register, die im Spei¬ 
cher des C64 ab $D000 (dezimal 53248) liegen. Welches 
Register für welche Funktionen zuständig ist, ist in Bild 1 zu 
sehen. 

Durch Setzen oder Löschen der jeweiligen Bits in den Regi¬ 
stern kann die gewünschte Funktion ein- oder ausgeschaltet 
werden. So läßt sich der VIC auf verschiedene Darstellungs¬ 
arten umschalten. 

Der wohl bekannteste Zustand ist der Modus der normalen 
Zeichendarstellung, den der VIC nach dem Einschalten des 
Computers annimmt. In dieser Betriebsart holt sich der VIC 
der Reihe nach Bytes aus dem Video-RAM (auch Bildschirm¬ 
speicher genannt), und bringt dann das dazugehörige Bitmu¬ 
ster aus dem Charakter-ROM als entsprechendes Zeichen 
auf den Bildschirm. 

Sämtliche 512 Zeichen, die der C64 kennt, sind im 
Charakter-ROM als Bitmuster gespeichert und werden auf 
die eben beschriebene Weise auf dem Bildschirm sichtbar 
gemacht. Dabei ist es prinzipiell möglich, den Zeichensatz 
nach eigenem Belieben zu verändern. Um dies von Basic aus 
zu tun, ist einiger Programmieraufwand nötig, der im Rahmen 
dieses Kurses nicht erklärt werden soll. 

Die Farbinformation für jedes Zeichen auf dem Monitor ent¬ 
nimmt der VIC aus einem extra eingerichteten Farb-RAM, in 
dem jeweils 4 Bit pro Bildschirmposition zur Festlegung der 
Zeichenfarbe vorgesehen sind. 

Etwas komplizierter ist die Darstellung von sogenannten 
Multicolor-Zeichen. Hierbei kann jedes Zeichen bis zu vier 
Farben haben. Man erreicht dies, indem man das Bit 4 des 
VIC-Registers 22 setzt. 

Der VIC kontrolliert in diesem Modus zuerst die entspre¬ 
chenden 4 Farbbit eines Zeichens und untersucht das erste 
Bit. Ist es 0, wird das Zeichen »normal« in der Größe von 8 * 8 
Punkten dargestellt. Sollte das Bit gleich 1 sein, so wird das 
Zeichen nur noch in einer 4 * 8-Punktematrix mit doppelt brei¬ 
ten Punkten behandelt. 2 Bit im Bitmuster des Zeichens ent¬ 
sprechen also jetzt einem Bildschirmpunkt. Diese beiden Bits 
geben nun dem Grafik-Chip an, wo er den Farbwert des dop¬ 
pelt breiten Punktes entnehmen soll: 

00 Hintergrund-Farbregister 0 (Register 33) 

01 Hintergrund-Farbregister 1 (Register 34) 

10 Hintergrund-Farbregister 2 (Register 35) 

11 restliche 3 Bit aus dem Farb-RAM 


Hochauflösende Grafik 


Setzt man im VIC-Register 17 das Bit mit der Nummer 5, so 
arbeitet der Video-Chip von nun an im Bitmap-Modus, das 
heißt jedes gesetzte Bit im Speicher entspricht einem Punkt 
auf dem Bildschirm. Der VIC verarbeitet eine Auflösung von 
320*200 Punkten, wofür er einen Grafikspeicher von 
8 KByte benötigt. Der normale Bildschirmspeicher wird dabei 
zum Farb-RAM »umfunktioniert« und liefert jetzt die Informa¬ 
tionen für die Farbe der gesetzten und nichtgesetzten Bild¬ 
schirmpunkte. 

Jedes Byte enthält hierbei den Farbwert für eine 
8*8-Matrix von Punkten. Die ersten 4 Bit bestimmen die 
Farbe der gesetzten Punkte, die letzten 4 Bit sind für die nicht 
gesetzten Punkte der Matrix zuständig. Eine recht kompli¬ 

7 A 


ziert klingende Sache also, die, wie wir noch sehen werden, 
auch nicht gerade einfach zu programmieren ist. 

Wem die zwei Farben einer 8*8-Matrix nicht genug sind, 
der mag den Multicolor-Modus benutzen, der durch Bit 5 im 
Register 17 und durch Bit 4 des Registers 22 aktiviert wird. 
Er ermöglicht eine hochauflösende Grafik in vier verschiede¬ 
nen Farben gleichzeitig. Die Auflösung beträgt hier aber nur 
noch die Hälfte des normalen HiRes-Modus, nämlich 
160*200 Punkte. Jeder Bildschirmpunkt ist nun doppelt so 
breit und wird durch je 2 Bit im Grafikspeicher repräsentiert. 
Wie im Multicolor-Zeichenmodus gibt dieses Bitpaar die 
Farbe an, die der Grafikpunkt bekommen soll. Die Zustände 
der beiden Bits lassen den VIC wissen, woher er den Farb¬ 
wert holen soll: 

00 aus Hintergrund-Farbregister 0 (Register 33) 

01 höherwertiges Halbbyte aus Video-RAM 

10 niederwertiges Halbbyte aus Video-RAM 

11 aus Farb-RAM 

Auf diese Weise lassen sich Grafikbilder mit bis zu vier Far¬ 
ben nebeneinander erzeugen. 

Was wäre ein anständiger VIC 6569 ohne seine Sprites, 
von denen er acht gleichzeitig steuern kann. Durch die Mani¬ 
pulation von bestimmten VIC-Registern ist es möglich, diese 
Sprites ziemlich schnell über den Bildschirm zu bewegen. 

Sprites gibt's auch 


Weitere Register zeigen Zusammenstöße mit Hintergrund¬ 
zeichen oder anderen Sprites an, weshalb die Sprites hervor¬ 
ragend für Spiele geeignet sind, in denen Figuren schnell 
bewegt werden müssen. 

Wiö bei der hochauflösenden Grafik gibt es auch zwei ver¬ 
schiedene Spritearten: die zweifarbigen HiRes-Sprites und 
die Multicolor-Sprites, die aus vier Farben bestehen dürfen. 
So ist auch die Auflösung der Multicolor-Sprites nur halb so 
groß wie die der Zwei-Farben-Sprites, nämlich nur 12*21 
Punkte statt 24*21. 

Doch wie, so wird mancher Basic-Programmierer fragen, 
kann man diese so kompliziert klingenden Dinge selbst pro¬ 
grammieren? 

Um diese Frage zu beantworten, beginnt man am besten 
mit dem Einfachsten, nämlich mit der Manipulierung von Zei¬ 
chen und deren Farben. 

Was Sie sicherlich schon oft in Ihren Programmen getan 
haben, ist die Änderung der Rahmen- und Hintergrundfar¬ 
ben. Mit »POKE 53280,1« und »POKE 53281,1« wird der 
Bildschirm beispielsweise vollkommen weiß, während die 
Zeichenfarbe gleich bleibt. Diese Befehle bewirken nichts 
anderes, als daß die VIC-Register 32 (Rahmenfarbe) und 33 
(Hintergrundfarbe 0) jeweils mit dem Farbwert Eins belegt 
werden (Eins entspricht der Farbe Weiß). Genauso wird auch 
bei den anderen Registern verfahren. Die Adressen der ein¬ 
zelnen Register sind in Bild 1 dezimal und hexadezimal aufge¬ 
führt. 

Die Zeichenfarbe selbst kann man, wie aus dem C64- 
Handbuch ersichtlich, über die Tasten »1« bis »8« in Verbin¬ 
dung mit der CTRL- und der Commodore-Taste verändern. Die 
zweite Möglichkeit ist, die Farbwerte im Farb-RAM zu verän¬ 
dern. Im Normalfall befindet sich das Farb-RAM im Textmodus 
im Bereich von 55296 bis 56295 ($D800-$DBE7). »POKE 
55299,1« bewirkt zum Beispiel, daß das vierte Zeichen in der 
obersten Zeile weiß wird. Ebenso kann man es mit allen Zei¬ 
chen machen, wie das Beispielprogramm in Listing 1 zeigt. 

Nun aber zur interessanteren Seite des Video-Prozessors, 
der hochauflösenden Grafik. Sie ist leider auch am kompli¬ 
ziertesten zu programmieren. Schon einfache Dinge, wie das 
Setzen oder Löschen eines Grafikpunktes, können beträcht¬ 
liche Schwierigkeiten bereiten. Schuld daran ist die unge- 
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Register 

Beschreibung 

Adresse 

0 

X-Koordinate von Sprite 0 

53248 

1 

Y-Kooridnale von Sprite 0 

53249 

2-15 

X- und Y-Koordinaten der weiteren Sprites 1 bis 7 

53250-53263 

16 

Übertaulregister lür alle X-Koordinaten der Sprites. 

Bit 0 för Sprite 0, Bit 1 lür Sprite 1 und so weiter 

53264 

17 

Steuerregister 1 

Bit 4 0= Bildschirm aus 

Bit 5 1 = HiRes-Modus (hochauflösende Grafik) 

Bit 6 1= Extended Color 

53265 

18-20 

zuständig für Rasterzeilen-Interrupt in Maschinensprache 

53266-53268 

21 

Sprites an/aus. Jedem Sprite ist ein Bit zugeordnet 

1-Sprite an 0-Sprite aus 

53269 

22 

Steuerregister 2 

Bit 4 1 = Multicolor-Modus 

53270 

23 

Sprite-VergröBerung in Y-Richtung. 

Jedem Sprite ist ein Bit zugeordnet 

1 - Sprite wird In Y-Richtung vergrößert 

0= Sprite wird normal dargestellt 

53271 

24 

Basisadressen von Zeichengenerator und Video-RAM 

Bit 1-3 für Zeichengenerator 

Bit 4-7 für Video-RAM 

53272 

25-26 

Interrupt Request- und Interrupt Mask-Registere 

53273-53274 

27 

Hintergrund/Sprite Priorität 

Jedem Sprite ist ein Bit zugeordnet 

1 = Priorität der Hintergrundzeichen 

0= Priorität des Sprites 

53275 

28 

Sprite Multicolor/Normal. Jedem Sprite ein Bit zugeordnet. 

1 - Sprite ist Multicolor-Sprite 

0= Sprite ist normal 

53276 

29 

Sprite-VergröBerung in X-Richtung 

Jedem Sprite ist ein Bit zugeordnet 

1 = Sprite wird in X-Richtung vergröBert 

53277 

30 

Sprite-Sprite-Kollision. Jedem Sprite Ist ein Bit zugeordnet 
Bei einer Kollision zweier Sprites sind die entsprechenden 

53278 


Bits gesetzt 

C 

31 

Sprite- Hintergrund-Kollision. 

Jedem Sprite ist ein Bit zugeordnet 

Bei der Kollision eines Sprites mit dem Hintergrund ist das 
entsprechende Bit gesetzt 

53279 

32 

Rahmenfarbe 

53280 

33-36 

Hintergrundfa/be 0-3 

53281-53284 

37-38 

Sprite Multicolor-Register 1 und 2 

53285-53286 

39-46 

Spritefarbe für Sprite 0 - Sprite 7 

53287-53294 


Bild 1. Die Register des VIC 
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Bild 2. AND- und OR-Verknüpfungstafeln und Beispiele 


wöhnliche Aufteilung des 8 KByte großen Grafikspeichers. 
Sie macht es erst durch einigen Programmieraufwand mög¬ 
lich, den Bildschirm in ein Koordinatensystem aufzuteilen und 
die einzelnen Punkte über die X- und Y-Koordinaten anzu¬ 
sprechen. 

Im Normalfall, das heißt nach dem Einschalten des Compu¬ 
ters, liegt der Grafikspeicher des VIC im Bereich von $2000 
bis $3FFF (8192-16383) und das dazugehörige Farb-RAM 
an der Stelle des »normalen« Bildschirmspeichers, also von 
$0400 bis $07FF (1024-2047). Wie man sieht, liegt die 
Grafikseite direkt im Basic-Speicher und kann bei größeren 


Basic-Programmen zu Konflikten mit der Grafik führen. Es ist 
jedoch möglich, den Aktionsbereich unseres VIC im Gesamt¬ 
speicher zu verschieben und somit das Problem zu beseiti¬ 
gen. Wie man das macht, wird am Ende dieses Abschnitts 
beschrieben, da dies mit der eigentlichen Programmierung 
der Grafik nichts zu tun hat. 

Bevor man eine Grafik erzeugen will, muß natürlich der VIC 
darüber informiert werden, daß er eine Grafik erzeugen und 
in welchem Modus dies geschehen soll. 

Untersucht man die Tabelle in Bild 1, so entdeckt man in 
Register 17 und 22 die entprechenden Bits zum Ein- und 
Ausschalten des HiRes- und des Multicolor-Modus. 

Doch wie, wird sich mancher Basic-Programmmierer fra¬ 
gen, kann man von Basic aus einzelne Bits löschen oder set¬ 
zen? Um diese Frage zu beantworten, muß man etwas in die 
Welt der Binär-Arithmetik mit ihren logischen Verknüpfungen 
eintauchen: 

Das Basic des C 64 beherrscht unter anderem auch zwei 
logische Operatoren, nämlich »AND« und »OR«. Sie bewirken 
eine logische Und- beziehungsweise Oder-Verknüpfung zwi¬ 
schen zwei Werten. Bild 2 zeigt eine Wahrheitstabelle, die 
angibt, wie sich die Verknüpfung auswirkt. 


Etwas zur »Wahrheit« 


Dieses Verknüpfen der einzelnen Bits kann auch zum geziel¬ 
ten Setzen oder Löschen von bestimmten Bits verwendet 
werden. Dazu verknüpft man einfach das entsprechende 
Byte mit einem bestimmten Wert, so daß das gewünschte Bit 
1 oder 0 wird. Hier einige Beispiele: 

Wir haben ein Byte mit dem Wert 155. Binär umgeformt 
sähe uo.- Wert so aus: 

10011011 = 155 (dezimal) 

Angenommen in diesem Byte wollen wir das vierte Bit von 
rechts (also Bit 3) löschen, das heißt gleich Null setzen. Nun 
braucht man einen Wert, der mit »AND« oder »OR« verknüpft 
das Bit Nummer 3 löscht, die restlichen Bits aber unverändert 
läßt. 

Betrachtet man die Wahrheitstabellen für »AND« und »OR« 
(Bild 2), so stellt man fest, daß sich die Und-Verknüpfung 
dafür eignen würde. 

10011011 =155 
AND 11110111=247 

10010011 = 147 

Und schon ist das besagte Bit gelöscht. Allgemein erreicht 
man den dezimalen Wert zur Und-Verknüpfung durch fol¬ 
gende Formel: 

255-(dezimaler Wert des zu löschenden Bits) 

In unserem Beispiel ist der Stellenwert unseres Bits Num¬ 
mer 3 gleich Drei. Der Dezimalwert errechnet sich also aus 
2 3 , das ergibt 8. Setzen wir ihn in die Formel ein, so erhalten 
wir den gewünschten Wert 247 zur Und-Verknüpfung: 

155 AND (255-8) = 147 

Nach demselben Muster läßt sich selbstverständlich auch 
ein Bit setzen. Hier allerdings bietet sich der »OR«-Operator, 
also die Oder-Verknüpfung an. Bleiben wir beim Beispiel von 
vorhin, nur daß nun Bit Nummer 6 (das zweite Bit von links) 
auf Eins gesetzt werden soll: 

10011011 =155 
OR 01000000 = 64 

11011011 = 219 

Das entsprechende Byte muß nur mit dem dezimalen Wert 
des zu setzenden Bits ge-oder-t werden, um dieses Bit gleich 
Eins werden zu lassen. Der Stellenwert des Bits Nummer 6 
beträgt 2 6 , und somit nach Adam Riese 64: 

155 OR 64 = 219 
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Nach diesem Prinzip kann man sämtliche Bits in einem Byte 
setzen oder löschen. Genauso werden auch die einzelnen 
Bits in den Registern des VIC 6569 manipuliert. 

Zum Einschalten der hochauflösenden Grafik sind einige 
POKE-Befehle nötig. Im folgenden einige Basic-Zeilen, die 
die hochauflösende Grafik einschalten: 

60000 REM ##*GRAFIK EINSCHALTEN *** 

60100 REM 

60200 VIC=53248:REM STARTADRESSE VIC 
60300 P0KE VIC+17, PEEK(VIC+17) 0R 2l5 
60400 POKE VIC+17, PEEK(VIC+17) 0R 2t6 
60450 POKE VIC+24, PEEK(VIC+24) 0R 8 
Nun muß man noch entscheiden, ob man im vierfarbigen 
Multicolor-Modus mit einer niedrigeren Auflösung arbeiten 
will oder die Zweifarben-Grafik mit 320 * 200 ansprechbaren 
Punkten benutzen möchte. 

Für die hochauflösende Grafik muß man im Normalzustand 
des Computers eigentlich nichts mehr verändern, sollte 
jedoch sicherheitshalber das Multicolor-Bit in Register 22 
löschen. Das geschieht mit: 

60500 POKE VIC+22,PEEK(VIC+22) AND 255-16 
Soll der Multicolor-Modus eingeschaltet werden, ist ein 
entsprechender POKE-Befehl zu verwenden, der das Bit 
setzt: 

60500 POKE VIC+22,PEEK(VIC+22) 0R 16 
Doch damit ist das Einschalten der Grafik genaugenommen 
noch nicht zu Ende. Startet man obiges Programm, so schal¬ 
tet der VIC zwar auf Grafik um, doch man wird nur ein buntes 
Durcheinander von verschiedenfarbigen Punkten auf dem 
Bildschirm erkennen. 

Grafik einschalten 


Das liegt daran, daß der jetzt vom VIC als Grafikspeicher 
deklarierte Bereich (normalerweise $2000-$3FFF) zuvor 
anderweitig benutzt wurde. Daher ist er mit »wilden« Werten 
»gespickt«, die der Video-Chip in seinem Bitmap-Modus als 
wirres Muster auf den Bildschirm bringt. 

Aus diesem Grund muß der Grafikspeicher vor Benutzung 
stets »leergeräumt«, das heißt sämtliche 64000 Bit gelöscht 
werden. Das ist mit einer einfachen FOR-NEXT-Schleife zu 
bewerkstelligen. Im folgenden Basic-Programm ist dies reali¬ 
siert. 

61000 REM »»»GRAFIKSPEICHER LÖSCHEN *## 

61100 REM 

61200 VD= 8192:REM STARTADRESSE GRAFIKSPEICHER 
61300 F0R X=VD to VD+8000 
61400 POKE X,0 
61500 NEXT X 

Fügt man diese Basic-Zeilen zu unserem Programm hinzu, 
kann man feststellen, daß das »Punktewirrwarr« langsam aber 
sicher verschwindet. Die Farben bleiben jedoch, wo sie sind. 
Wir erinnern uns, daß im Grafik-Modus die Farbe jedes 
8*8-Kästchens in einem gesonderten Farb-RAM festgelegt 
ist. In unserem Fall liegt es, wie schon erwähnt, im Bereich 
des normalen Textbildschirms. 

Jedem 8*8-Kästchen im Grafikspeicher ist ein Byte im 
Farb-RAM zugeordnet. Die vier höchstwertigen Bits eines 
jeden Bytes geben dabei die Farbe der gesetzten, die vier 
niederwertigen Bits die der nichtgesetzten Punkte an. 

Um ein »anständiges« Grafikbild zu erzeugen, muß die 
Farbe jedes Kästchens einheitlich gesetzt werden, was wie¬ 
derum in einer FOR-NEXT-Schleife geschehen kann: 

62000 REM »»»FARBE SETZEN »»* 

62100 REM 

62200 FR=1024:REM ANFANGSADRESSE FARBRAM 
62300 FARBE= 0*16 + l4:REM PUNKTE SCHWARZ¬ 
HINTERGRUND HELLBLAU 


62400 F0R X=FR T0 FR+1000 

62500 POKE X,FARBE:REM FARBWERT SETZEN 

62600 NEXT X 

Jetzt haben wir einen leeren Grafik-Bildschirm mit blauem 
Hintergrund. Die Grafikpunkte werden später in der Farbe 
Schwarz auf dem Monitor erscheinen. 

Drücken Sie nun RUN/STOP und RESTORE zugleich, 
gelangen Sie wieder in den normalen Text-Modus zurück. Ein 
laufendes Basic-Programm wird dabei aber unterbrochen. 
Soll dies nicht geschehen, muß man die Grafik vom Pro¬ 
gramm aus wieder abschalten. Dazu müssen lediglich die 
Bits wieder gelöscht werden, mit denen man den Grafik- 
Modus zuvor eingeschaltet hatte. 

Das sind also die Bits 5 und 6 im VIC-Register 17: 

63000 REM »»»GRAFIK AUSSCHALTEN *** 

63100 REM 

63200 VIC=53248:REM GRUNDADRESSE VIC 
63300 POKE VIC+17, PEEK(VIC+17) AND 255-32:REM 
BIT 5 

63400 POKE VIC+17, PEEK(VIC+17) AND 255-64:REM 
BIT 6 

Damit hat man alle Programmteile zusammen, um die 
HiRes-Grafik zu bedienen. 

Jetzt zum schwierigeren Teil, dem Setzen und Löschen von 
einzelnen Punkten. Hierbei müssen einige Berechnungen 
angestellt werden, bevor der Punkt auf dem Bildschirm 
erscheint. 

Es ist leider nicht möglich, Punkte direkt über X- und Y- 
Koordinaten in den Grafikspeicher einzugeben. Das liegt am 
recht unhandlichen Aufbau des Grafikspeichers. 

So wird das Grafikbild nicht Zeile für Zeile hintereinander im 
Speicher abgelegt, sondern wie im Zeichengenerator die 
einzelnen Zeichen in Blöcken von jeweils 8*8 Punkten. 

8 B y las des Grafikspeichers sind jeweils für eine solche 
8*8-Matrix (auch Grafik-Matrix oder Grafik-Kästchen ge¬ 
nannt) zuständig. Je eine 8-Punkte-Reihe in dieser Matrix 
wird durch ein Byte dargestellt. 

Die nächsten 8 Byte liefern dann die Information für die 
zweite Matrix, die folgenden acht für den dritten Block und so 
weiter bis zum rechten Rand des Bildschirms. Dann beginnt 
die zweite Matrix-Zeile nach dem gleichen Schema und wird 
so Kästchenzeile für Kästchenzeile bis zum unteren Bild¬ 
schirmrand fortgeführt. Bild 3 veranschaulicht dieses Prinzip. 

Insgesamt passen 320/8, also gleich 40 der 8*8-Blöcke 
in eine Reihe und 200/8, also gleich 25 8*8-Blöcke in eine 
Spalte der Grafik. Man sieht, daß dies dem Text-Modus 
ähnelt, da ja ein normales Zeichen auch aus einer 8 * 8-Matrix 
besteht. 

Wegen diesem, für den Programmierer etwas komplizier¬ 
ten Bildaufbau einer HiRes-Grafik, ist es nur mit einigen 
Berechnungen möglich, die einzelnen Punkte wie in einem 
Koordinatensystem nach X- und Y-Koordinaten festzulegen. 
Die X-Achse legen wir dabei waagrecht von links nach rechts 
und numerieren die Punkte in dieser Richtung nach ihrer 
Anzahl von 0-319. Die Y-Achse wird senkrecht von oben 
nach unten von 0-199 angelegt. Jeder Punkt wird dadurch 
mit seinem X- und Y-Wert in seiner Position auf dem Bild¬ 
schirm eindeutig bestimmt. Um von den Koordinaten (X,Y) 
eines Punktes auf das richtige Byte und Bit im Grafikspeicher 
zu schließen, bedarf es einiger Überlegungen. Betrachten 
wir zunächst die Y-Koordinate. 

Im ersten Schritt wird der Y-Wert durch acht dividiert. 
Dadurch ermittelt man die Kästchenzeile des zu berechnen¬ 
den Grafikpunktes: 

Kästchenzeile = INT(Y/8) 

Wie schon ausgerechnet, passen 40 Grafik-Kästchen in 
jeweils eine der Kästchenzeilen. Jede Grafik-Matrix benötigt 
8 Byte. Eine Kästchenzeile belegt demnach 40 * 8 = 320 
Byte des Grafikspeichers. 
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Multiplizieren wir nun das Ergebnis der oben beschriebe¬ 
nen Division mit 320, erhalten wir jetzt die relative Start¬ 
adresse der errechneten Kästchenzeile im Grafikspeicher. 
Adresse der Kästchenzeile = 320 * INT(Y/8) 

Schließlich darf man die restlichen Bytes der obigen Divi¬ 
sion nicht vergessen und zählt sie zur besagten Adresse 
dazu. 

Der Divisionsrest berechnet sich sehr einfach: 

DivRest = Y-(Kästchenzeile*8) 

Kennt man die Gesetze der Binärarithmetik, erkennt man 
sofort eine einfachere Berechnung des Restes einer Division 
durch den Wert 8: 

DivRest = Y AND 7 

Addieren wir den Rest zu unserer Adresse hinzu, erhalten 
wir letztendlich folgende Formel: 

Y-Adresse = 320 * INT(Y/8) + (Y AND 7) 

Jetzt benötigt man noch den X-Wert des Grafikpunktes. 
Wie oben dividiert man ihn durch 8, um analog dazu die Num¬ 
mer der Kästchenspalte, in der sich der Punkt befindet, zu 
erhalten. 

Kästchenspalte = INT(X/8) 

Daraus läßt sich durch eine Multiplikation mit acht die 
Anzahl der Bytes berechnen, die zur vorhin ermittelten Y- 
Adresse dazugezählt werden müssen: 

Bytes = 8 * INT(X/8) 

Damit hätte man die Adresse des Grafik-Bytes, in dem der 
betreffende Punkt gespeichert ist, gefunden. 

Grafikadresse = 320 * INT(Y/8) + (Y AND 7) + (8 * 
INT(X/8)) 

Was geschieht mit dem Rest der Division des X-Wertes; 
muß auch er eine Bedeutung haben? Er gibt an, welches Bit 
in der Adresse gesetzt werden muß, um unseren Grafikpunkt 
auf dem Bildschirm erscheinen zu lassen. 

Man berechnet die Nummer des Bits folgendermaßen: 
Bitnummer = 7-(X AND 7) 

Nun kann der Grafikpunkt an der richtigen Stelle gesetzt 
oder gelöscht werden. Wie man einzelne Bits von Basic aus 
setzt oder löscht, ist Ihnen ja bereits bekannt. 


Listing 2 und 3 zeigen zwei kleine Basic-Programme zum 
Setzen und Löschen von Grafikpunkten, die unsere erstellten 
Formeln verwenden. 

Durch weitere Berechnungen lassen sich daraus auch wei¬ 
tere Grafikfunktionen programmieren. Probieren Sie doch 
einmal ein Basic-Programm zu schreiben, das eine Linie zwi¬ 
schen zwei vorgegebenen Punkten (X1;Y1) und (X2;Y2) 
zieht. 

Im Multicolor-Modus (Bit 4 = 1 im VIC-Register 22) läuft 
die Punkteberechnung ähnlich ab. Der entscheidende Unter¬ 
schied ist die nur halbe Auflösung von 160, dafür aber dop¬ 
pelt breiten Punkten in X-Richtung. In Y-Richtung hat sich 
nichts geändert. Die Formel zur Berechnung der Y-Adresse 
des Grafikpunktes ist demnach im HiRes-und im Multicolor- 
Modus identisch (siehe auch Bild 4). 

Man erkennt, daß nun 2 Bit für einen Grafikpunkt zuständig 
sind. Ein Byte hat also nur noch für vier Punkte Platz. Das 
bedeutet eine Änderung bei den Formeln »Bytes« und »Bit¬ 
nummer«. Auch das Setzen oder Löschen von Punkten ist 
nun etwas komplizierter. 

Bytes = 8 * INT(x/4) 

Bitnummerl = (3-(X-(4*INT(X/4))))*2 
Bitnummer2 = Bitnummerl + 1 

Da jetzt auch 2 Bit pro Punkt verändert werden müssen, 
gibt es auch zwei Bitnummern. Listing 4 zeigt das Setzen 
eines Punktes in Multicolor. 

Als Anwendungsbeispiele sollen die Listings 5 und 6 die¬ 
nen, die beide eine Sinuskurve auf den Bildschirm bringen. 
Das Programm in Listing 5 tut dies im HiRes-Modus; das Pro¬ 
gramm in Listing 6 verwendet die Multicolor-Grafik. 


Sprites richtig programmiert 


Die Fähigkeit des VIC, Sprites zu erzeugen, ist wohl jedem 
bekannt. Sprites sind genau gesagt kleine Grafiken von 
24*21 Punkten Größe, die frei über den Bildschirm bewegt 
werden können. Der VIC kann 8 Sprites gleichzeitig auf dem 
Bildschirm verwalten. 

Er tut dies über einige seiner Register, die sämtliche Infor¬ 
mationen über alle Sprites enthalten. 

Anders als bei der hochauflösenden Grafik wird ein Sprite 
Punkt für Punkt, das heißt Bit für Bit der Reihe nach im Spei¬ 
cher abgelegt (siehe Bild 5). 

So ist die Erstellung von Sprites etwas einfacher als die 
Erzeugung von Grafik. 

Jedes Sprite besteht aus 24*21, also 504 Punkten und 
braucht somit 504/8 = 63 Byte Speicherplatz. 

Die Farbinformationen für »normale« Sprites entnimmt der 
VIC aus eigens dafür angelegten Sprite-Farbregistern (VIC- 
Register 39-46; Adressen 53287 bis 53294). Eine Farbän¬ 
derung von beispielsweise Sprite Nummer 3 auf rot ist mit 
POKE 53290,2 zu bewerkstelligen. 

Damit liegt der Nachteil »normaler« Sprites schon auf der 
Hand. Sie können nur aus jeweils einer Farbe bestehen, die 
in das entsprechende Farbregister gePOKEt wird. 

Wenn es normale Sprites gibt, so muß es wohl auch noch 
andersartige Sprites geben. Die gibt es auch: es sind die 
Multicolor-Sprites. 

Wie bei der Multicolor-Grafik kann ein solches Sprite aus 
bis zu vier verschiedenen Farben bestehen (wenn man die 
Hintergrundfarbe mitrechnet). Doch wie sollte es anders 
sein, ein solch buntes Sprite besitzt nur noch die halbe Auflö¬ 
sung von 12*21 Punkten. Auch hier sind die Punkte wieder 
doppelt so breit wie normal und werden jeweils durch 2 Bit im 
Speicher repräsentiert. Dabei bestimmt wieder der Zustand 
der beiden Bits, woher der Farbwert für diesen Punkt stam¬ 
men soll: 
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00 Hintergrund-Farbregister 
01 Multicolor-Register 0 (Register 37) 

10 Multicolor-Register 1 (Register 38) 

11 Sprite-Farbregister (Register 39-46) 

Man sieht, daß alle Multicolor-Sprites zwei gemeinsame 
Farbregister haben. Das sind die Multicolor-Register 0 und 1. 
Nur das Register für die vierte Farbe ist für jedes Sprite extra 
angelegt, und kann somit für alle Sprites unterschiedlich 
gewählt werden. Der Aufbau entspricht dem eines normalen 
Sprites mit dem einen Unterschied, daß nun 2 Bit einen Punkt 
darstellen (Bild 6). 

Ob ein Sprite »normal« oder in Multicolor dargestellt wer¬ 
den soll, ist in einem besonderen VIC-Register festgehalten 
(Register 28; Adresse 53276). Jedem Sprite ist ein Bit die¬ 
ses Registers zugeordnet. Ein gesetztes Bit bedeutet für den 
Video-Chip, daß es sich bei dem entsprechenden Sprite um 
ein Multicolor-Sprite handelt. POKE 53276,128 macht zum 
Beispiel das Sprite Nummer 7 zum Multicolor-Sprite. 

Nachdem man sich überlegt hat, welche Sprites »normal« 
oder im Multicolor-Modus verwaltet werden sollen, stellt sich 
noch die Frage, wie man seinen Spriteentwurf am einfach¬ 
sten in den Speicher bringt. 

Hat man keinen Sprite-Editor zur Hand, muß man diese 
Arbeit wohl oder übel selbst tun. Dazu legt man sich auf 
Papier ein Raster von 24*21 Punkten an und zeichnet sich 
seinen Entwurf Punkt für Punkt hinein. Auf einem zweiten 
Entwurf zeichnet man sich sein Sprite im Bitmuster auf. Jeder 
gesetzte Punkt entspricht einer Eins im Muster, alle unge¬ 
setzten Punkte haben den Wert Null (Bild 7). 

Für ein Multicolor-Sprite legt man entsprechend ein 
12*21-Raster an und verfährt nach demselben Muster. Der 
Unterschied ist nur, daß man im zweiten Entwurf nun pro 
Punkt 2 Bit entsprechend der Farbe einträgt, die der Punkt 
später haben soll. 

Anschließend rechnet man der Reihe nach 8 Bit (also 
immer ein Byte) in einen dezimalen Wert um und notiert sie 
neben dem Raster (Bild 7). 

Hat man seine 63 Byte zusammengestellt, müssen sie 
durch POKE-Befehle an den richtigen Platz im Speicher 
gebracht werden. Dazu muß man sie in den 16-KByte- 
Adressierungsbereich des VIC legen, damit sie auch gelesen 
und verarbeitet werden können. Zu diesem Zweck wird der 
VIC-Bereich in Blöcke zu je 64 Byte eingeteilt. Jeder Block 
erhält eine Nummer von 0 bis 255. Unsere Spritedefinition 
muß nun in einem dieser Blöcke untergebracht werden. 

In der Einschaltkonfiguration gibt es allerdings einige Ein¬ 
schränkungen. Hier überschneidet der Adreßbereich des 
VIC einige wichtige Teile des Speichers, wie zum Beispiel die 
Zeropage. 

Block Nummer 0 hätte die Startadresse $0000, Block 1 
die Adresse $0040 (dezimal 64) und so weiter. 

Setzen wir unser Sprite in diesen Bereich, hätte das ver¬ 
heerende Folgen für die Funktionsbereitschaft unseres C 64. 
Die ersten Blöcke, die keinen so sehr wichtigen Speicher 
belegen, sind die Blöcke 
11 Bereich $02C0-02FE (704-766) 

13 Bereich $0340-037E (832-894) 

14 Bereich $0380-03BE (896-958) 

15 Bereich $03C0-03FE (960-1022) 

Arbeiten Sie mit der Datasette, kann es dabei auch zu Pro¬ 
blemen kommen, da sich die Blöcke 13,14 und 15 im Kasset¬ 
tenpuffer befinden. 

Danach ist es erst wieder ab Block 128, das heißt ab 
Adresse $2000 (8192) möglich, gefahrlos Sprite-Definitio- 
nen abzulegen. Vorsicht sei aber geboten bei großen Basic- 
Programmen oder wenn Sie gleichzeitig mit HiRes-Grafik 
arbeiten, da ja bekanntlich ab $2000 (8192) das Grafikbild 
abgelegt ist. Verschieben Sie den Adreßbereich des VIC, 
können Sie diesen Problemen teilweise aus dem Weg gehen. 


Wollen wir aber nur eine Spritedefinition abspeichern, genü¬ 
gen uns die Blöcke 11 und 13 bis 15. 

Nehmen wir für unser Sprite den Block 11 und schreiben 
eine kleine Routine, die uns alle 63 Byte der Definition in die¬ 
sen Block POKEt. Am besten legt man die Spritewerte in 
DATA-Zeilen ab und benutzt eine FOR-NEXT-Schleife (Listing 
7 verwendet ein kleines Demo-Sprite). 

So stehen sie im Speicher 


Damit ist die Arbeit der Definition noch nicht zu Ende. Jetzt 
muß dem VIC mitgeteilt werden, daß unser Sprite ab Block 11 
gespeichert ist. Dazu benutzt der VIC je einen Zeiger für 
jedes der 8 Sprites. Er zeigt auf den Block, aus dem er die 
Definition für das augenblickliche Aussehen eines jeden 
Sprites nehmen soll. 

Die Zeiger liegen am Ende des Video-RAMs. Das Video- 
RAM ist genau 1 KByte, also 1024 Byte groß. Zur Darstellung 
des Bildschirms werden aber nur 40 *25 = 1000 Byte benö¬ 
tigt. Der Rest, das sind 24 Byte, liegt brach. Davon werden 
die letzten 8 Byte als Sprite-Zeiger benutzt. Das sind in unse¬ 
rem Fall die Adressen $07F8-07FF (dezimal 2040- 
2047). Die Adresse 2040 enthält den Zeiger für Sprite Num¬ 
mer null, die Speicherstelle 2041 ist für Sprite 2 zuständig 
und so weiter bis zum Zeiger für Sprite 7 bei Adresse 2047. 

Verlegen wir das Video-RAM in einen anderen Bereich 
(diese Möglichkeit besteht), liegen die Sprite-Zeiger selbst¬ 
verständlich in anderen Speicherstellen. In diesen Zeigern 
stehen nun die Blocknummern, bei denen die Definitionen für 
jedes der 8 Sprites stehen. 

Wollen wir dem Sprite 0 zum Beispiel das Aussehen unse¬ 
res oben genannten Demo-Sprites geben, stellen wir den 
Zeigei iür Sprite 0 auf Block 11 (in dem unsere Sprite- 
Definition gespeichert ist). Mit POKE 2040,11 ist das schnell 
geschehen. Soll ein zweites Sprite genauso aussehen, 
genügt ein entsprechender POKE-Befehl: POKE 2042,11. 

Wir legen den gewünschten Zeiger auf denselben Block, 
und somit sieht Sprite Nummer 2 so aus wie Sprite Nummer 
0. Man kann also jede beliebige Sprite-Definition für jedes 
beliebige Sprite nutzen. Eine Multicolor-Definition für ein nor¬ 
males Sprite zu verwenden, ist natürlich nicht ratsam. Sie 
können es ja zum Spaß einmal ausprobieren. 

Es ist möglich, jederzeit die Definition eines Sprites zu 
wechseln, indem man den Zeiger auf einen anderen Block 
stellt. So kann man das Aussehen eines Sprites blitzschnell 
ändern und somit den Effekt einer Animation erzielen. 

POKE 2040,13 ändert das Aussehen des Sprites 0 sofort 
auf die Definition in Block 13. 

Bevor man jedoch ein Sprite auf dem Bildschirm sehen 
kann, muß es erst eingeschaltet werden. Dazu besitzt der VIC 
das Register 21 mit der Adresse 53269, das den Einschalt¬ 
zustand aller Sprites enthält. Für jedes Sprite ist wieder ein 
Bit des Registers zuständig. Schalten wir also unser Sprite 
0 ein: 

POKE 53269,1 (Bit 0 wird gesetzt) 

Jetzt ist möglicherweise immer noch nichts auf dem Bild¬ 
schirm zu entdecken, das unserem Sprite gleicht. Womög¬ 
lich steht es in einer Position außerhalb des sichtbaren Bild¬ 
schirmbereichs. 

Der Bereich, in dem sich ein Sprite befinden kann, ist wie 
ein Koordinatengitter in X- und Y-Richtung aufgeteilt. Das Git¬ 
ter ist aber größer als der sichtbare Bildschirm. Es ist möglich, 
das Sprite einzelpunktweise von 0-511 in X-Richtung und von 
0-255 in Y-Richtung zu bewegen. 

Der Nullpunkt unseres Sprite-Koordinatengitters liegt weit 
außerhalb des Bildschirms in der linken oberen Ecke. Positio¬ 
nieren wir das Sprite auf die Koordinaten 20,30, ist es voll¬ 
ständig in der linken oberen Ecke sichtbar. Die Übergröße 
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Bit-Nr. 

7 6 5 4 3 2 1 0 

7 6 5 4 3 2 1 0 

1. Zeichen - 


4 Byte 0^ 

• * Bytet^A 
4 Byte2^^^ 
4 Byte 3^ 

4 Byte 4^ 

4 Byte 5^ 

4^ ^ Byte 6^ 

4^ 4 Byte 8 ^ 

4 Byte 9^ 



^ Byte 7 ^ 

Byte 15 



Byte 320 

Byte 328 

2. Zeichen - 


• 

• 

• 

• 



Byte 327 




Byte 640 


1 

u 

• 

• 

• • • 


Bild 4. So werden die Bildschirmpunkte im Multicolor-Modus 
beschrieben 


7 6 5 4 3 2 1 0 

7 6 5 4 3 2 1 0 

7 6 5 4 3 2 1 0 

• • • Byt.0 • • • 

• • • Byte 1 • • • 

• • • By!e2 • • • 

• • • Byte 3 • • • 

• • • Byte 4 • • • 

• •• Byte 5 • • • 




• • • Byte9 • • • 

• • • • • 



Byte 58 

Byte 59 

Byte 60 

Byte 61 

Byte 62 


24 Spalten 


Bild 5. Aufbau eines HiRes-Sprites mit 24*21 Punkten. Das Ist 
die maximal erreichbare Auflösung. 



Bild 6. Ein Multlcolor-Sprite verfügt nur mehr über eine Auflö¬ 
sung von 12*21 Punkten 


des Sprite-Bewegungsraumes führt zu dem recht schönen 
Effekt, daß man das Sprite zu allen Seiten des Bildschirms 
punktweise hinauswandern lassen kann. Doch wo werden 
die X.Y-Positionen für jedes Sprite gespeichert? 

Bewegung von Sprites 

— — ■■■ 

Betrachtet man Bild 1, die Registertabelle des VIC, entdeckt 
man sie sofort. Die ersten 17 Register sind für die Position der 
8 Sprites reserviert. Durch einfache POKE-Befehle kann man 
die X- und Y-Werte aller Sprites schnell verändern und somit 
jedes Sprite blitzartig an sämtliche Positionen des Sprite- 
Koordinatengitters versetzen: 

POKE 53248,150 
POKE 53249,111 

Mit diesen Befehlen wird zum Beispiel Sprite 0 auf Position 
x=150 und y=111 plaziert. 

Die X-und Y-Register aller Sprites können nur Werte von 
0-255 annehmen. Will man ein Sprite auf eine X-Position ver¬ 
schieben, die größer als 255 ist (bis maximal 511), muß ein 
Übertrag auf ein anderes Register geschehen. Dabei muß im 
Register 16 (53264), dem Übertragsregister, das Bit für das 
betreffende Sprite gesetzt werden. 

In Listing 8 wurde das eben Beschriebene in ein Programm 
umgesetzt, das die Bewegung eines Sprites verdeutlichen 
soll. 

Doch damit sind die Fähigkeiten unseres Videoprozessors 
noch nicht ausgeschöpft. So kann jedes Sprite seine Größe 
in X- und Y-Richtung verdoppeln. 

Für diesen Effekt sind die Register 23 (Adresse 53271) für 
die Y-Vergrößerung und 29 (Adresse 53277) für die 
X-Vergrößerung verantwortlich. Wieder ist in diesen Regi¬ 
stern für jedes Sprite ein Bit zuständig, dessen Zustand dem 
VIC mitteilt, ob das Sprite normal oder vergrößert dargestellt 
werden soll. POKE 53271,64 beispielsweise vergrößert das 
Sprite Nummer 6 in Y-Richtung auf doppelte Höhe. 

Betrachtet man die Registertabelle in Bild 1, entdeckt man 
noch einige andere Sprite-Register, mit deren Hilfe man wei¬ 
tere Eigenschaften der Sprites einstellen kann. 

Register 27 (Adresse 53275) erlaubt für jedes Sprite die 
Wahl, ob es auf dem Bildschirm vor den Hintergrundzeichen 
oder dahinter bewegt werden soll. Ist das entsprechende Bit 


gesetzt, so erscheint das angesprochene Sprite hinter den 
Hintergrundzeichen. Ein gelöschtes Bit gibt dem Sprite Prio¬ 
rität vor dem Hintergrund. 

Hintergrundzeichen sind in diesem Fall alle gesetzten 
Punkt die sich außer den Sprites noch auf dem Bildschirm 
befinden. Das können wahlweise Zeichen oder auch Grafik- 
punkL sein. 

Stoßen 2 Sprites zusammen, so wird das von Register 30 
(Adresse 53278) angezeigt. Der VIC setzt dabei die entspre¬ 
chenden Bits der Sprites, die kollidiert sind. Sind beispiels¬ 
weise Bit 5 und 6 gleich 1, zeigt dies eine Berührung von 
Sprite Nummer 5 mit Sprite Nummer 6 an. 

Dabei ist aber Vorsicht geboten, da nach dem Zusammen¬ 
stoß die Bits nicht mehr selbständig vom Videoprozessor 
zurückgesetzt werden. Nach jeder Kollisionsabfrage sollte 
daher das Register regelmäßig vom Basic-Programm 
gelöscht werden. Mit POKE 53278,0 ist das schnell getan. 

Das nächste Register mit der Nummer 31 hat die Adresse 
53279 und registriert eine Berührung eines Sprites mit 
einem Hintergrundzeichen. Wie in Register 30 besagt ein 
gesetztes Bit, daß das entsprechende Sprite gerade einen 
Punkt des Hintergrundes berührt hat. Auch hier muß das 
Register danach wieder von Hand gelöscht werden. So sollte 
der Befehl POKE 53279,0 nach der Kollisionsabfrage nicht 
fehlen. 

Die Abfrage, ob bestimmte Bits gesetzt sind, ist mit einer IF- 
THEN-Abfrage leicht zu bewerkstelligen. 

Wollen wir überprüfen, ob die Sprites 2 und 7 zusammen¬ 
gestoßen sind, so benutzen wir die folgende Basic-Zeile: 

IF (PEEK(53278) AND (2t2) < > 0) AND (PEEK(53278) 
AND (2t7) <> 0) THEN ... :REM KOLLISION 

Damit hätten wir sämtliche Funktionen des VIC beisam¬ 
men, um alle 8 Sprites auf dem Bildschirm »tanzen« zu lassen. 

Bleibt nur noch die Möglichkeit, den Adreßbereich des VIC- 
Chips zu verschieben. 

In manchen Fällen, wie bei besonders langen Basic- 
Programmen, ist es manchmal notwendig, den HiRes- 
Grafikspeicher in einen anderen Bereich zu verlegen, als er 
nach dem Einschalten steht. Durch bestimmte Register im 
VIC und im CIA 2 (den wir auch noch besprechen werden) 
kann der 16-KByte-Adreßbereich des VIC im Speicher ver¬ 
schoben werden. Zuständig dafür sind die Bits 0 und 1 im 
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Register 0 der CIA 2, die je nach Zustand den Arbeitsbereich 
des VIC in bestimmte Speicherbereiche Ihres C64 legen: 
Bits 1 /0 Arbeitsbereich des VIC 

11 $0000-$3FFF (0-16383) 

01 $4000-$7FFF (16384-32767) 

10 $8000-$BFFF (32768-49151) 

00 $C000-$FFFF (491 52-65535) 

Verlegen Sie zum Beispiel den Arbeitsbereich des VIC auf 
$4000-7FFF (16384-32767), werden auch sämtliche Bild¬ 
speicherfunktionen mitverschoben. So liegt nun das Video- 
RAM im Bereich von $4400-47 FF. Auch der Zeichengenera¬ 
tor liegt an anderer Stelle und der Beginn der Sprite- 
Definitionsblöcke beginnt dann bei $4000 (16384), das 
heißt Block 0 fängt bei Adresse 16384 und nicht mehr bei 
Adresse 0 an. 

POKE 56576, PEEK(56576) AND (255-2) 
würde das eben Erklärte realisieren. Ohne weitere Verände¬ 
rungen wäre aber so kein anständiges Arbeiten mit dem Com¬ 
puter mehr möglich. 

Innerhalb des 16-KByte-Adressierungsbereiches läßt sich 
auch der Bildschirmspeicher in 1-KByte-Schritten verschie¬ 
ben. Um das durchzuführen, sind die Bits 4 bis 7 im VIC- 
Register 24 zuständig. 

Diese 4 Bit repräsentieren die dezimalen Werte von 0 bis 
15 und geben an, in welchem 1-KByte-Block sich das Video- 
RAM befindet. Im Einschaltzustand haben die 4 Bit den Binär¬ 
wert %0001, was dezimal dem Wert 1 entspricht (Bildschirm 
in Block 1 bei $0400; dezimal 1024). Wollen wir den Bild¬ 
schirm nach $0800 (2048), also nach Block 2 verschieben, 
ist es notwendig, die 4 Bit mit dem Wert 2 zu belegen. Die Bits 
müssen dann wie folgt gesetzt werden: %0Q10, was dem 
Wert 2 entspricht. 

Wie das Video-RAM kann auch der Zeichsngensrator, das 
heißt der Speicher, an dem die Bitmuster der Zeichen abge¬ 
legt sind, innerhalb des VIC-Arbeitsbereiches venschoben 
werden. Dies ist lediglich in 2-KByte-Schritten möglich und 
wird mit den Bits 1 bis 3 des VIC-Registers 24 ermöglicht. 

»Verschiebereien« 


Auch hier repräsentieren diese 3 Bit einen Wert, der 
beschreibt, in welchem 2-KByte-Block der Zeichengenera¬ 
tor liegt. Im Normalfall sind die Bits folgendermaßen gesetzt: 
%010, was dezimal dem Wert 2 entspricht. Der Zeichenge¬ 
nerator liegt also im zweiten 2-KByte-Block des VIC- 
Arbeitsbereiches. Theoretisch wäre dies der Bereich von 
$1000-1FFF (dezimal 4096-8191). Eine hardwaremäßige 
Verschaltung hat aber den Effekt, daß beim Zugriff des VIC 
auf diesen Adreßbereich automatisch auf das Charakter- 
ROM im Bereich $D000-DFFF zugegriffen wird. Dort steht 
der normale Zeichensatz des C64 und bringt somit die Zei¬ 
chen auf den Bildschirm. 

Verschiebt man den Zeichengenerator beispielsweise auf 
den Bereich $2000-2FFF (dezimal 8192-12287; Bits 1 bis 
3 auf %100), werden die Bitmuster für die Zeichen tatsäch¬ 
lich aus diesem Bereich geholt. Haben Sie dann dort keinen 
eigenen Zeichensatz gespeichert, wird sich ein heilloses 
Durcheinander auf dem Bildschirm einstellen. Diese Tat¬ 
sache ermöglicht aber auch die Herstellung eigener Zei¬ 
chensätze und kann somit von Vorteil sein. 

Schließlich kann auch noch der Grafikspeicher innerhalb 
des 16-KByte-Arbeitsbereiches auf zwei Positionen ver¬ 
schoben werden. Position 0 wäre der untere 8-KByte- 
Bereich und Position 1 der beim Einschalten eingestellte 
obere 8-KByte-Bereich des VIC-Arbeitsspeichers. Liegt der 
VIC-Adreßbereich von $0000-3FFF (0-16383), so kann also 
wahlweise der Grafik-Bildschirm auf $0000-$1FFF oder auf 
$2000-3FFF gelegt werden. Ein Verlegen auf $0000 wäre 


Register 

Bedeutung 

Adresse 

0 

Tonfrequenz für Stimme 1 höherwertiges Byte 

54272 

1 

Tonfrequenz für Stimme 1 niederwertiges Byte 

54273 

2-3 

Pulsbreite für Rechleckschwingung 
höher- und niederwertiges Byte 

54274-54275 

4 

Steuerregister für Stimme 1 

Bit 0 KEY: 1 = Ton beginnt nach der entsprechenden 

54270 



Hüllkurve zu erklingen 



Bit 1 SYNC: 1 = synchronisiert Oszillator 1 und 3 

Bit 2 RING: 1 = Dreiecksausgang wird durch eine 




Modulation von Oszillator 1 und 3 ersetzt 



Bit 4 TRI. 

1= Dreiecksschwingung 



Bit 5 SAW: 1 = Sagezahnschwingung 

Bit 6 PUL 1 = Rechteckschwingung (Pulsbreite In den 




Registern 2 und 3) 



Bit 7 NSE: 1= Rauschen 


5 

Hüllkurvenregister 1 

Bits 0-3: Decay-Wert (0-15) 

54277 


Bits 4-7 

Attack-Wert (0-15) 


6 

Hüllkurvenregister 2 

Bits 0-3: Release-Wert (0-15) 

54278 


Bits 4-7 

Sustain-Wert (0-15) 


7-13 

Entsprechende Register für Stimme 2 Ausnahmen 

SYNC synchronisiert Oszillator 2 und 1 

RING Dreiecksausgang wird durch Modulation von Oszilla¬ 
tor 2 und 1 ersetzt 

54279-54205 

14-20 

Entsprechende Register für Stimme 3 Ausnahmen 

SYNC synchronisiert Oszillator 3 und 2 

RING Dreiecksausgang wird durch Modulation von Oszilla¬ 
tor 3 und 2 ersetzt 

54286-54292 

21-22 

Filterfrequenzregister nieder- und höherwertiges Byte 

Die Frequenz errechnet sich mit diesem Wert (FW) durch 
F=(30+FW« 5.8) 

54293-54294 

23 

Filterresonanz und Stimmenschalter 

54295 


BitO 

1= Stimme 1 wird über den Filter geleitet 



Bit 1 

1 = Stimme 2 wird über den Filler geleitet 



Bit 2 

1 - Stimme 3 wird über den Filter geleitet 



Bit 4-7 

Fillerresonanz (0-15) 


24 

Lautstärke und Fiter an/aus 

54298 


Bit 0-3 

Gesamte Lautstärke 



Bit 4 

1= Tiefpaß eingeschaltet 



Bit 5 

1= Bandpaß eingeschaltet 



Bit 6 

1= Hochpaß eingeschaltet 



Bit 7 

1 = Stimme 3 wird stumm geschaltet 


Die nächsten Register können nur gelesen werden: 

25-26 

A/O-Wandler 1 und 2 

54297-54298 

27 

Rauschgenerator-Wert von Stimme 3 
augenbkcklicher Stand des Rauschgenerators; erzeugt 

54299 

28 

gute Zufallszahlen 

HOIIkurvengenerator-Wert von Stimme 3 

54300 


augenblicklicher Stand der Lautstärke von Stimme 3 durch 
die Hüfflojive; geeignet zur Modulation anderer Parameter 



Bild 7. Die Registerbelegung des SID 6581 


Register 

Bedeutung 

Adresse 

8 

Zehntelsekunden der Echtzeituhr 

Bits 0-3 Zehntelsekunden 

56328 

9 

Sekunden der Echtzeltuhr 

Bit 0-3 Einersekunden 

Bit 4-6 Zehnersekunden 

56329 

10 

Minuten der Echtzeituhr 

Bit 0-3 Einerminuten 

Bit 4-6 Zehnerminuten 

56330 

11 

Stunden der Echtzeltuhr 

Bit 0-3 Einerstunden 

Bit 4-6 Zehnerstunden 

Bit 7 0 = vormittags (AM) 

1 = nachmittags(PM) 

56331 


Bild 8. Notwendige Register des CIA zur Nutzung der 
Echtzeituhr 
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allerdings nicht sehr ratsam, da sich sonst der Grafikspeicher 
mit der wichtigen Zeropage überschneiden würde. 

Das Verschieben der eben genannten Bereiche erfordert 
aber einiges an Programmiererfahrung und sollte nur mit 
äußerster Vorsicht geschehen. 

Damit wäre der Abschnitt über den VIC 6569 abgeschlos¬ 
sen. Sollte Ihnen aufgrund der Informationsfülle der Kopf 
noch nicht rauchen, wird er es spätestens am Ende des 
nächsten Abschnittes tun. Denn da nehmen wir den SID 
6581 mit seinen Eigenschaften zur Klangerzeugung unter 
die Lupe. 

Der SID 6581 ist ein sehr außergewöhnlicher Baustein. 
Anders als bei den üblichen Tongeneratoren in Computern, 
kann er als vollständiger dreistimmiger Mini-Synthesizer 
bezeichnet werden, da er alle Elemente für die einfache 
Tonerzeugung bis zur Herstellung komplexer Klänge besitzt. 

So können mit ihm drei unabhängige Stimmen frei program¬ 
miert werden. Dafür bietet er vier Schwingungsarten (Drei¬ 
eck, Sägezahn, Rechteck und rosa Rauschen) an, die auch 
gemischt werden können. Jede Stimme besitzt außerdem 
einen Hüllkurvengenerator (ADSR-Control), der den zeitli¬ 
chen Ablauf der Lautstärke eines Tones bestimmt. Alle drei 
Stimmen lassen sich über drei ebenfalls mischbare Filter lei¬ 
ten, womit sich die Klangfarbe manipulieren läßt. Auch die 
Möglichkeit der Ringmodulation wurde nicht vergessen. 

Der SID ist also ein sehr komplexer Baustein, der sich auch 
nicht gerade einfach programmieren läßt. Will man kompli¬ 
zierte Klänge erzeugen, bedarf es schon einiger Erfahrung 
und Kenntnisse im Bereich der Tonsynthese. Wie eine solche 
Klangerzeugung prinzipiell vor sich geht, soll hier erklärt wer¬ 
den. 

Richten wir zunächst wieder einen Blick auf die Register 
des SID, von denen es deren 28 gibt. Bild 7 zeigt eine Aufstel¬ 
lung aller Register mit den Adressen, über die sie angespro¬ 
chen werden können. 

Alle Funktionen, wie die Tonhöhe, Hüllkurve und Schwin¬ 
gungsformen, sind für jede der drei Stimmen extra vorhan¬ 
den. 

Register 0- 6 Stimme 1 
Register 7-13 Stimme 2 
Register 14-20 Stimme 3 

Die entsprechenden Register sind für jede Stimme iden¬ 
tisch, kleine Änderungen sind in der Tabelle in Bild 5 beson¬ 
ders erwähnt. 

Untersuchen wir nun die Register für Stimme 1. Dasselbe 
gilt dann analog für die anderen beiden Stimmen. 

Das wichtigste Register für Stimme 1 ist das Register Num¬ 
mer 4, das sogenannte Steuerregister, mit dem die wichtig¬ 
sten Funktionen ein- und ausgeschaltet werden können. 
Durch Setzen und Löschen der entsprechenden Bits auf die 
schon bekannte Weise lassen sie sich einfach bedienen. Soll 
für Stimme 1 beispielsweise die Schwingungsform Rechteck 
eingestellt werden, ist lediglich Bit 6 in Register 4 zu setzen: 
POKE 54276, PEEK(54276) OR 2'6 

Das Puls-Pause-Verhältnis ist in Register 2 und 3 einstell¬ 
bar. Register 5 und 6 geben dem SID die ADSR-Werte für die 
Hüllkurve in jeweils 4-Bit-Zahlen an. Jeder dieser Parameter 
kann Werte von 0-15 annehmen und ist einfach mit POKE zu 
beschreiben. Eine Einstellung des Decay-Wertes auf 7 ist 
zum Beispiel durch folgenden Befehl möglich: 

POKE 54277,16*7 

Damit werden die Bits 4-7 auf den dezimalen Wert 7 
gestellt. Ebenso kann man auch Attack, Sustain und Release 
für jede Stimme programmieren. 

Register 0 und 1 bestimmen schließlich die Tonhöhe. Man 
muß dabei die entsprechende Frequenz des Tones angeben. 
Welcher Ton welcher Frequenz entspricht, ist in einer Tabelle 
im C64-Handbuch aufgelistet. 

Wenn gewünscht, können alle drei Stimmen über einen Fil¬ 


ter geleitet werden. In Register 23 dienen die Bits 0-2 als 
Schalter, welche der drei Stimmen gefiltert werden sollen. 
Zur Einstellung des Filters werden die Register 21-24 ver¬ 
wendet, über die Resonanz- und Filterfrequenz bestimmt 
werden können. 

Mit den Bits 0-3 des Registers 24 läßt sich zusätzlich die 
Gesamtlautstärke (0-15) aller Stimmen verändern. 

POKE 54296,1 sehr leise 
POKE 54296,15 sehr laut 

Die Register 27 und 28 bilden unter allen anderen Regi¬ 
stern, die nur beschrieben werden können, eine Ausnahme. 
Sie lassen sich nur lesen. Register 27 mit dem Namen 
Rauschgenerator zeigt bei eingeschalteter Stimme 3 und der 
gewählten Schwingungsform Rauschen den augenblick¬ 
lichen Stand des Rauschgenerators an. Da es sich um rosa 
Rauschen handelt, ist dieser Wert absolut zufällig und kann 
in Spielen als hervorragender Zufallszahlengenerator ver¬ 
wendet werden. 

Durch Bit 7 im Register 24 läßt sich die Stimme 3 stumm¬ 
schalten, das heißt sie ist eingeschaltet, aber nicht zu hören. 

POKE 54296, PEEK(54296) OR 128 
schaltet Stimme 3 stumm. 

So können die Werte auch ohne hörbare Stimme 3 gelesen 
und benutzt werden. 

Das gleiche gilt auch für Register 28, das den augenblick¬ 
lichen Stand der Hüllkurvenamplitude von Stimme 3 enthält. 
Dieser Parameter kann zum Beispiel auch bei stummgeschal¬ 
teter Stimme 3 hüllkurvenabhängigen Änderungen der Para¬ 
meter anderer Stimmen dienen, was schier unerschöpfliche 
Möglichkeiten der Klangerzeugung bietet. Was damit mög¬ 
lich ist, kann man am besten durch intensives Ausprobieren 
und Setzen und Löschen der einzelnen Bits erfahren. Ein 
Koc.'v .zept gibt es dafür nicht. Listing 9 erzeugt einen Ton in 
allen Schwingungsformen. Es soll zeigen, wie die Erzeugung 
eines Tones prinzipiell abläuft. 

Zum Abschluß noch einiges über unsere Ein-/Ausgabe- 
Bausteine CIA 1 und 2. Sie sind für den Basic-Programmierer 
nur von geringer Bedeutung und müssen deshalb nur kurz 
erwähnt werden. Ein Bonbon jedoch gibt es, das sich von 
Basic aus erreichen läßt: Die eingebaute Echtzeituhr. 

Wer schon öfters mit der softwaregestützten C64-Uhr 
über die Variable TIS gearbeitet hat, wird die enorme Unge¬ 
nauigkeit dieses Zeitgebers bemängelt haben. Für diejeni¬ 
gen, die jedoch genaueste Uhrzeiten benötigen, bietet sich 
die CIA-Echtzeituhr mit ihrer recht guten Genauigkeit an. Als 
Taktgeber wird dafür die Netzfrequenz von 50 Hz (in Europa) 
verwendet, die, wie wir wissen, sehr gut stabilisiert und somit 
geradezu ideal dafür geeignet ist. 

Die Uhr setzt sich aus Zehntelsekunden, Sekunden, Minu¬ 
ten und Stunden zusammen und ist in den Registern 8 bis 11 
eines jeden CIA gespeichert. Die für die Uhr wichtige Bele¬ 
gung dieser Register ist in Bild 8 zusammengestellt. 

Beim Stellen der Uhr muß jedoch eine bestimmte Reihen¬ 
folge eingehalten werden. Schreibt man in das Stunden- 
Register, bleibt die Uhr stehen und läuft erst wieder an, wenn 
das Zehntelsekunden-Register beschrieben worden ist. Man 
sollte also mit dem Stellen bei den Stunden beginnen und die 
Zehntelsekunden zum Schluß setzen, damit die Uhr auch 
zum richtigen Zeitpunkt wieder anläuft. In Listing 10 und 11 
sind kleine Basic-Programme abgedruckt, die das Stellen 
und Ausgeben der Echtzeituhr vornehmen. Sie können nach 
Belieben abgeändert werden, um sie in die eigenen Basic- 
Programme einzubauen. 

Welchen CIA Sie für Ihre Uhr verwenden, ist gleichgültig. 
Wenn Sie wollen, können Sie beide programmieren und 
haben somit zwei recht exakte Uhren zur Verfügung. In den 
beiden Basic-Programmen muß dazu lediglich die Start¬ 
adresse des gewünschten CIAs eingesetzt werden. 
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Wie man sieht, lassen sich auch von Basic aus einige Dinge 
mit den Peripheriebausteinen VIC, SID und den beiden CIAs 
anstellen. Wichtig dabei ist das direkte Ausprobieren (insbe¬ 
sondere beim SID), um die Wirkung sofort zu erfahren. 


10 

REM FARBDEMO (TEXTMODUS) 

<020> 

20 

PRINT"<CLR>“ 

<008> 

30 

FOR X=1024 TO 2023s REM VIDEORAM 

<087 > 

40 

POKE 54272+X, INT(RND(1>#16)sREM FARBRA 



M VON 54272-55296 

<036> 

50 

POKE X,INT(RND(1)*128)sREM BELIEBIGE BI 



LDSCHIRMWERTE 

<159> 

60 

NEXT X 

<00B> 

70 

BET T*iIF TS=""THEN 70 

< 145> 

Listing 1. Farbdemo auf dem Textbildschirm 



50000 REM GRAFIKPUNKT BETZEN (HI-RES) <171> 

50010 GA=B192sREM STARTADRESSE GRAFIKSPEIC 

HER <22B> 

50020 AD=320 * INT(Y/8) + <Y AND 7) + <8 * 

INT (X/8))I REM ADRESSE BERECHNEN <238> 

50030 BN= 7—(X AND 7):REM BITNUMMER <226> 

50040 POKE BA+AD, PEEK(BA+AD) OR 2TBN <140> 

50050 END <01I> 


Listing 2. Setzen eines Grafikpunktes im HiRes-Modus 


51000 REM BRAFIKPUNKT LOESCHEN (HI-RES) <096> 
51010 GA=B192:REM STARTADRESSE GRAFIKSPEIC 

HER <212> 

51020 AD=320 * INT(Y/B) + (Y AND 7) + (8 * 

INT<X/8))sREM ADRESSE BERECHNEN <222> 

51030 BN= 7—(X AND 7):REM BITNUMMER <210> 

51040 POKE GA+AD, PEEK(GA+AD> AND (255-2TB 

N) <049> 

51050 END <251> 


Listing 3. Löschen eines HiRes-Grafikpunktes 


51000 REM GRAFIKPUNKT SETZEN (MULTI-COLOR) <178> 
51010 GA=3192:REM STARTADRESSE GRAFIKSPEIC 


HER <212> 

51020 AD=320 * INT(Y/B) + (Y AND 7) + (8 * 

INT(X/4)):REM ADRESSE BERECHNEN <093> 

51030 Bl=(3—(X—(4*INT(X/4)> >)*2sREM BITNUM 

MER 1 <125> 

51040 B2=B1+1:REM BITNUMMER 2 <158> 

51050 IF FA =0 THEN Fl=0sF2=0 <021> 

51060 IF FA -1 THEN Fl=0sF2=l <096> 

51070 IF FA =2 THEN Fl=lsF2=0 <177> 

51080 IF FA =3 THEN F1=1:F2=1 <252> 

51090 IF F1=0 THEN GOTO 51110 <034> 

51100 POKE GA+AD, PEEK(BA+AD) OR 2tBl <021> 

51110 IF F2=0 THEN GOTO 51130 <102> 

51120 POKE GA+AD, PEEK(GA+AD) OR 2tB2 <073> 

51130 RETURN <131> 

51140 REM FA= FARBWERT DES PUNKTES (0-3) <199> 


Listing 4. Setzen eines beliebigen Punktes im Multicolor- 
Bildschirm 


100 REM SINUSKURVE IN HI-RES 

<006> 

110 REM 

< 172> 

120 REM GRAFIK EIN 

<222> 

130 VIC=5324B 

<015> 

140 POKE VIC+17, PEEK(VIC+17) 

OR 11*163 REM 

GRAFIK EIN 

<060> 


Dadurch bekommt man Erfahrung und lernt immer weitere 
Tricks und Kniffe bei der Programmierung von Grafik und 
Sound. 

(Michael Thomas/ks) 


150 

POKE VIC+22, PEEK(VIC+22) AND 255-16sR 



EM MUTICOLOR EIN 

<154> 

155 

POKE VIC+24, PEEK(VIC+24) DR 8s REM VIC 



-ARBEITSBEREICH AUF T0000-*3FFF 

< 153> 

160 

REM GRAFIKBILD LOESCHEN 

<058 > 

170 

GB=3192sREM STARADRESSE GRAFIK 

<204> 

180 

FOR X—GB TO GB+8000S POKE X,0SNEXT X 

<090> 

190 

REM FARBWERTE SETZEN 

<043> 

200 

VR=1024sREM STARTADRESSE HIRES-FARBRAM 



(=VIDEORAM> 

<046> 

220 

FARBE=0*16+14s REM HINTERGRUND HELLBLAU 



PUNKTE SCHWARZ 

< 154> 

240 

FOR X=VR TO VR+1000S POKE X.FARBEsNEXT 



X 

<075> 

251 

POKE 53280,0 

<045> 

260 

REM SINUSKURVE ZEICHNEN 

<215> 

270 

FOR X=0 TO 319 

<110> 

230 

Y=70* SIN(X/25.6) +99 

<239> 

290 

GOSUB 51000 

<064 > 

300 

NEXT X 

<250> 

9999 END 

<095> 

51000 REM GRAFIKPUNKT SETZEN (HIRES) 

<075> 

51010 GA=B192:REM STARTADRESSE GRAF I KSPE IC 



HER 

<212> 

51020 AD=320 * INT(Y/8) ♦ (Y AND 7) + (8 * 



INT(X/8))s REM ADRESSE BERECHNEN 

<222> 

51030 BN=7—(X AND 7)8REM BITNUMMER BERECHN 



EN 

<208> 

51040 POKE BA+AD, PEEK(GA+AD) OR 2TBN 

<124> 

51050 RETURN 

<051 > 

Listing 5. Dieses Programm zeichnet eine einfarbige 

Sinuskurve In HiRes auf den Bildschirm 



snuntf** 


100 REM SINUSKURVE IN MULTICOLOR <238> 

110 REM <172> 

120 REM GRAFIK EIN <222> 

130 VIC=5324B <015> 

140 POKE VIC+17, PEEK(VIC+17) OR 11*16:REM 

GRAFIK EIN <060> 

150 POKE VIC+22, PEEK(VIC+22) OR 16sREM MU 

TICOLOR EIN <1B3> 

155 POKE VIC+24, PEEK(VIC+24) OR B <059> 

160 REM BRAFIKBILD LOESCHEN <058> 

170 GB=B192s REM STARADRESSE GRAFIK <204> 

180 FOR X=GB TO GB+S000:POKE X,0;NEXT X <090> 

190 REM FARBWERTE SETZEN <043> 

200 VR=1024sREM STARTADRESSE VIDEORAM <043> 

210 FR=54272:REM STARADRESSE FARBRAM <055> 

220 Fl=2*16+6sREM FARBE 1 ROT UND 2 BLAU <012> 

230 F2=13s REM FARBE 3 <020> 

240 FOR X=VR TO VR+1000:POKE X.FlsNEXT X <065> 

250 FOR X=FR TO FR+1000sPOKE X,F2sNEXT X <073> 

251 POKE 53280,0 <045> 

260 REM SINUSKURVE ZEICHNEN <215> 

270 FOR X=0 TO 159 <113> 

280 Y=70* SIN(X/25.6) +99sFA=INT(RND(1)#4> 

+1 < 110 > 

290 GOSUB 51000 <064> 

300 NEXT X <250> 

9999 END <095> 

51000 REM GRAFIKPUNKT SETZEN (MULTI-COLOR) <17B> 
51010 GA=8192:REM STARTADRESSE GRAFIKSPEIC 

HER <212> 

51020 AD=320 * INT(Y/8) + (Y AND 7) + (8 * 

INT(X/4)>:REM ADRESSE BERECHNEN <093> 

51030 Bl=(3—(X—(4*INT(X/4)))>*2:REM BITNUM 

MER 1 <125> 

51040 B2=B1+1:REM BITNUMMER 2 <15B> 

51050 IF FA =0 THEN F1=0:F2=0 <021> 

51060 IF FA =1 THEN F1=0:F2=1 <096> 

51070 IF FA =2 THEN F1=1:F2=0 <177> 

51080 IF FA =3 THEN F1=1:F2=1 <252> 

51090 IF F1=0 THEN GOTO 51110 <034> 

51100 POKE BA+AD, PEEK(GA+AD) OR 2TB1 <021 > 

51110 IF F2=0 THEN GOTO 51130 <102> 
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51120 POKE GA+AD, PEEK(GA+AD) OR 2tB2 <073> 

51130 RETURN <131> 

51140 REM FA= FARBWERT DES PUNKTES <0-3> <199> 

Listing 6. Nach dem Löschen des Grafik-Bildschirms 
erscheint eine bunte Sinuskurve in Multicolor-Grafik 


10 REM SPRITEDEFINITION 

< 1B6> 

20 DATA 0,255,0 

<030> 

30 DATA 1,227,192 

<231 > 

40 DATA 3,255,224 

< 183> 

50 DATA 7,255,240 

<201 > 

60 DATA 15,255,248 

<074 > 

70 DATA 31,255,252 

<204 > 

90 DATA 63,255,254 

<046> 

90 DATA 124,111,254 

<234 > 

100 DATA 251,223,255 

< 114> 

110 DATA 251,158,107 

<240> 

120 DATA 248,133,167 

<031 > 

130 DATA 251,108,111 

<079> 

140 DATA 251,109,239 

< 132> 

150 DATA 252,238,111 

<007> 

160 DATA 127,255,254 

<029> 

170 DATA 63,255,252 

< 104> 

180 DATA 31,255,248 

< 146> 

190 DATA 15,255,240 

<076> 

200 DATA 7,255,224 

< 119> 

210 DATA 3,255,192 

< 107> 

220 DATA 1,255,0 

<238> 

225 RESTORE 

230 AD=11*64:REM BLOCKADRESSE FUER BLOCK 1 

<019> 

1 

<240> 

240 FOR Q=AD TO AD+62 

< 125> 

250 READ SW: POKE Q,SW 

<042> 

260 NEXT Q 

< 154> 

Listing 7. Dieses Programm erzeugt Spritedaten in 
Block 11 des VIC-Adreßbereichs 

6W c 


10 REM SPRITEDEMONSTRATION 

<224> 

20 DATA 0,255,0 

<030> 

30 DATA 1,227,192 

<231 > 

40 DATA 3,255,224 

< 183> 

50 DATA 7,255,240 

<201 > 

60 DATA 15,255,248 

<074> 

70 DATA 31,255,252 

<204> 

80 DATA 63,255,254 

<046> 

90 DATA 124,111,254 

<234> 

100 DATA 251,223,255 

< 114> 

110 DATA 251,158,107 

<240> 

120 DATA 248,133,167 

<031 > 

130 DATA 251,108,111 

<079> 

140 DATA 251,109,239 

< 132> 

150 DATA 252,238,111 

<007> 

160 DATA 127,255,254 

<029> 

170 DATA 63,255,252 

< 104> 

180 DATA 31,255,248 

< 146> 

190 DATA 15,255,240 

<076> 

200 DATA 7,255,224 

< 119> 

210 DATA 3,255,192 

< 107> 

220 DATA 1,255,0 

<23B> 

225 RESTORE 

<019> 

230 AD=11*64:REM BLOCKADRESSE FUER BLOCK 1 
1 

<240> 

240 FOR Q=AD TO AD+62 

<125> 

250 READ SW: POKE Q,SW 

<042> 

260 NEXT 0 

<154> 

270 REM SPRITE ANSCHALTEN 

<023> 

280 VIC=53248 

< 167> 

290 POKE 2040,11:REM SPRITEZEIGER AUF BLOC 
K 11 

<094 > 

300 POKE VIC+39,2:REM SPRITEFARBE 0 AUF RO 
T 

< 106> 

310 POKE VIC+21,1:REM SPRITE 0 EIN 

<091 > 

320 REM SPRITEBEWEGUNG 

< 124 > 

330 FOR X=20 TO 255 

<083 > 

340 Y= 199—(ABS(150*SIN(X/20))) 

<243> 


350 POKE VIC,XsPOKE VIC+1,Y <243> 

360 NEXT X:GOTO 330 <159> 

Listing 8. Hier wird ein definiertes Sprite über den 
Bildschirm bewegt, wobei der Eindruck eines 
hüpfenden Balls entsteht 


10 REM TONDEMO <069> 
20 pn=4440:REM FREQUENZWERT <037> 
25 FH=INT(FQ/256):FL=FQ-256*FH <237> 
30 3=54272:REM BASISADRESSE FUER STIMME 1 <142> 

35 POKE S+5,0:POKE S+6,15*16 <077> 

36 POKE B+24,15 <202> 
40 PRINT"DREIECKSCHWINGUNG" <197> 
50 POKE S,FL:POKE S+l.FH <240> 
60 POKE S+4,16:REM DREIECK <171> 
70 POKE S+4,17:REM TON AN <208> 
80 GET T*:IF T*=“"THEN 80 <18B> 
90 PRINT"SAEGEZAHNSCHWINGUNB“ <000> 
100 POKE S+4,32:REM SAEGEZAHN <076> 
110 POKE S+4,33:REM TON AN <245> 
120 BET TS:IF T*=""THEN 120 <155> 
130 PRINT"RECHTECKSCHWINGUNB" <089> 
140 POKE S+2,100:POKE S+3,0 <231> 
150 POKE S+4,64:REM RECHTECK <076> 
160 POKE S+4,65:REM TON AN <171> 
165 GET TS:IF T*=""THEN 165 <075> 
170 PRINT"RAUSCHEN" <232> 
1B0 POKE S+4,128:REM RAUSCHEN <042> 
190 POKE S+4,129:REM TON AN <064> 
200 GET TS:IF TS=""THEN 200 <139> 
210 POKE S+4,0:REM TON AUS <075> 


Listing 9. Erzeugung eines Tons In allen vier 
Wellenformen des SID 6581 


IC* REM ECHTZEITUHP STELLEN <005> 

110 CIA=5632B:REM ANFAN8BADRESSE VON CIA 1 <175> 
120 PRINT“GEBEN SIE DIE GENAUE UHRZEIT EIN 

" <118> 

130 PRINT"<3SPACE>HHMMSSCBLEFT>"|:INPUT ZS <207> 
140 HH=VAL(LEFTS(ZS,2)) <159> 

150 MM=VAL(MIDS(ZS,3,2)) <085> 

160 SS=VAL(RIGHTS(ZS,2)> <183> 

170 IF HH>23 OR MM>59 OR SS>59 THEN PRINT" 

EINGABEFEHLER":GOTO 120 <005> 

180 IF HH>12 THEN HH=HH-12:TM=1 <241> 

190 POKE CIA+7, PEEK(CIA+7) AND 255-2T7 <126> 

200 POKE CIA+6, PEEK(CIA+6) OR 2T7 <231> 

210 Q= INT(HH/10)»16+HH—INT <HH/10)*10 <133> 

220 IF TM=1 THEN Q=Q+128 <172> 

230 POKE CIA+3.Q <043> 

240 Q= INT(MM/10)*16+MM—INT(MM/10)#10 <086> 

250 POKE CIA+2.Q <191> 

260 Q= INT(SS/10)»16+SS-INT(SS/10)*10 <06B> 

270 POKE CIA+l.Q <0B4> 

280 POKE CIA+0,0: REM UHR STARTEN <121> 


Listing 10. Mit diesem Programm können Sie die 
Echtzeituhr des CIA 1 auf die Sekunde genau stellen 


300 REM ECHTZEITUHR LESEN <12e> 
310 CIA=5632B:REM ANFANGSADRESSE VON CIA 1 <121> 
320 HH=PEEK(CIA+3):ZS=PEEK(CIA) <240> 
330 MM=PEEK(CIA+2) <177> 
340 BS=PEEK(CIA+1) <251> 
350 TM=0: IF HH>128 THEN TM=1:HH=HH—128:RE 

M NACHMITTAGS <129> 
360 HH=INT(HH/16)*10+(HH AND 15) <221> 
370 IF TM=1 AND HHOJ2 THEN HH=HH+12 <150> 
375 IF TM=0 AND HH=12 THEN HH=0 <224> 
380 MM=INT(MM/16)*10+(MM AND 15) <240> 
390 SS=INT(SS/16)*10+(SS AND 15) <147> 
400 PRINT" <CLRJ“HH": “MM“: "SS <244> 
410 GOTO 320 <132> 


Listing 11. Dieses Programm zeigt laufend die aktuelle 
Zeit der Echtzeituhr an 


assta? 


SONDERHEFT 7/86 


83 











GRUNDLAGEN 


0 64 


»Masdiinen- 

Power« 

mit Basic 


Träumen Sie als Basic-Programmierer nicht auch 
manchmal von so atemberaubenden Geschwin¬ 
digkeiten, wie sie die Maschinensprache ermög¬ 
licht? Wenn ja, dann kommen Sie im folgenden 
Artikel voll auf Ihre Kosten. Wir werden dem 
Basic-Interpreter durch die Anwendung von 
Betriebssystem-Routinen nämlich ganz schön 
einheizen. 


D 


Kleine »Byfe«ologie 


1 REM BLOCKVERSCHIEBUNG 

<198> 

2 REM CREATED BY CHRISTOPH BERGMANN 

<242> 

3 REM 

<065> 

10 DEF FN H(X)“INT(X/256) 

<244> 

20 DEF FN L(X)=X-FN H<X>*256 

<019> 

100 INPUT"ALTE STARTADRESSE"JS 

<215> 

110 INPUT"ALTE ENDADRESSE*1" ; E 

<0B9> 

120 INPUT"NEUE ENDADRESSE+1N 

<212> 

200 POKE 95,FN L(S)sPOKE 96,FN H(S> 

<221 > 

210 POKE 90,FN L(E):POKE 91,FN H <E) 

<202> 

220 POKE B8,FN L(N):POKE 89,FN H(N) 

<136> 

300 SYS 41920:END 

<098> 


X% ist hierbei die zu wandelnde Zahl; L% und H% natürlich 
das Low- und High-Byte. 

Und umgekehrt das Errechnen einer Zahl aus zwei Byte; 
X*=H**256*+L* 

Eine Eigenschaft der Maschinensprache ist es, bei Anga¬ 
ben von Speicherbereichen die Endadresse plus 1 anzuge¬ 
ben. Beispiel: Sie wollen den Bildschirm von 1024 bis 2047 
speichern. Dann müssen Sie als Startdresse den Wert 1024 
und als Endadresse den Wert 2048 (I) verwenden. 

So, soviel zum nötigen »Grundwissen«. Jetzt geht’s los mit 
dem ersten Tip! Eine häufige Aufgabe, die der Computer zu 
erfüllen hat, ist das Verschieben von Speicherbereichen. 
Wollen Sie zum Beispiel einen deutschen Zeichensatz auf 
dem C64 realisieren, so müssen Sie zuerst den normalen 
Zeichensatz auf einen freien Platz kopieren und dann dort die 
gewünschten Zeichen in Umlaute ändern. Eine andere An¬ 
wendung ist das Kopieren des Basic-ROMs und des Be- 
triebssystem-ROMs (Kernel) in das darunterliegende RAM, 
um dort dann Änderungen vorzunehmen (zum Beispiel Ein¬ 
deutschen des Befehlssatzes). Dabei müssen allerdings 
über 16000 Byte gelesen und wieder geschrieben werden. 


er C 64 ist in der Grundausstattung nicht gerade mit 
) einem herausragenden Basic gesegnet. Will man mehr 
aus seinem Commodore herausholen, so kann man 
sich entweder eine der inzwischen zahlreichen Basic- 
Erweiterungen zulegen, oder (abgesehen davon, überhaupt 
eine neue Sprache zu erlernen) sich in die Tiefen der Maschi¬ 
nensprache wagen, um sich seine eigenen Befehle und 
Unterprogramme zu erstellen. 

Es gibt jedoch noch eine dritte Möglichkeit, sozusagen den 
goldenen Mittelweg, nämlich das Ausnutzen der vorhande¬ 
nen Interpreter- und Betriebssystem-Routinen von Basic aus. 
Wenn solche Routinen von Maschinensprache-Programmie¬ 
rern erst einmal analysiert worden sind, dann wird auch der 
Basic-Programmierer in die Lage versetzt, diese Unterpro¬ 
gramme ohne Maschinensprache-Kenntnisse zu verwen¬ 
den. 


1 REM DEMO ZUR CURSORPOS ITION16RUN6 

<250> 

2 REM CREATED BY CHRISTOPH BERGMANN 

<242> 

3 REM 

<065> 

10 POKE 53280,0-.POKE 53281,0 

< 138> 

20 PRINT"<CLR>"; 

<214> 

30 FOR X=0 TO 6 STEP.1 

<036> 

40 Y=SIN(X > +1 

<216> 

50 POKE 211, X»6: POKE 214,Y*U 

< 184> 

60 SYS 58732:POKE 783,1:SYS 58634 

<038> 

70 PRINT"CWHITE>6<GREY 3>4<GREY 2JE<BREY 

1 

>R" 

<007> 

80 NEXT:END 

<051 > 


Folgende kleine Tatsachen sollten Ihnen jedoch schon geläu¬ 
fig sein. Wie Sie sicher wissen, speichert Ihr Computer jede 
Zahl, jeden Buchstaben, jedes Programm, schlicht und ein¬ 
fach alles in Bytes ab. Ein Byte kann bis zu 256 verschiedene 
Werte annehmen, man kann also Zahlen von 0 bis 255 darin 
speichern. Um größere Werte verarbeiten zu können, nimmt 
man einfach zwei Byte zusammen und erhält so die maximale 
Zahl 65535. Das soll für unsere Zwecke genügen. Das erste 
Byte enthält den niederwertigen Anteil (nicht, wie man viel¬ 
leicht annehmen möchte, den höherwertigen Teil), im folgen¬ 
den deshalb Low-Byte genannt. Entsprechend heißt das 
zweite, höherwertige Byte, High-Byte. 

Folgende Basic-Zeile wandelt eine Zahl in zwei Byte um: 
H*=INT(XX/256):L*=X*-H*»256 


Llstlng 1. Routine zur Verschiebung von beliebigen 
Speicherbereichen 


Llsting 2. Dieses Programm demonstriert die Cursor- 
Positmoierung auf dem Bildschirm 

In Basic dauert das eine ganze Weile. Aber der Interpreter 
stellt uns eine Routine zur Verfügung, die genau dasselbe in 
Sekundenschnelle für uns erledigt. Hierzu muß man in die 
Speicherstelle 95 das Low-Byte und in 96 das High-Byte der 
Anfangsadresse des zu verschiebenden Bereichs angeben, 
sowie entsprechend in 90 und 91 die Endadresse. In 88 und 
89 schließlich muß die Endadresse (!) des Zielbereichs 
angegeben werden. Rufen Sie danach die Roumit SYS 
41920 auf (Das Programm in Listing 1 verschiebt einen belie¬ 
bigen Speicherblock). In den Zeilen 10 und 20 sehen Sie 
übrigens eine sehr schöne und komfortable Methode zur 
Umwandlung einer Adresse in das Low-Byte und High-Byte. 

Speicher »herumschieben« 

Vom Verschieben von Speicherbereichen zum Verschie¬ 
ben des Bildschirms. Sie können den Bildschirm jederzeit, 
ohne die Cursorposition zu verändern, nach oben scrollen, 
indem Sie einfach die entsprechende Routine mit SYS 
59626 aufrufen. 

An dieser und an den folgenden Routine sehen Sie übri¬ 
gens, wie leistungsfähig das Betriebssystem des Commo¬ 
dore 64 zum Beispiel in der Bildschirmsteuerung ist. Man 
muß es nur zu nutzen wissen. Wenn Sie eine oder mehrere 
Zeilen auf dem Bildschirm löschen wollen, so können Sie dies 
ebenfalls dem Betriebssystem überlassen. Einfach die zu 
löschende Zeile in die Speicherzelle 781 POKEn und die ent¬ 
sprechende Routine mit SYS 59903 starten. Schon ist die 
gewünschte Zeile vom Bildschirm verschwunden. Wollen Sie 
mehrere Zeilen löschen, so können sie das in einer FOR- 
NEXT-Schleife Das sieht dann folgendermaßen aus: 

10 FOR T=A TO E : POKE 781,T : SYS 59903 : NEXT T 

A ist hierbei die Anfangszeile und E entsprechend die End¬ 
zeile. Eine weitere, sehr wichtige Unterroutine ist die »Cursor 
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Setzen/Holen«. Damit kann man den Cursor auf jede belie¬ 
bige Position des Bildschirms setzen. Einfach die Zeile in 214 
und die Spalte in 211 schreiben und... Halt! Machen Sie nicht 
den Fehler und rufen Sie, wie schon oft in Zeitschriften 
geschrieben, sofort die Routine auf. Erstens sollten Sie mit 
POKE 783,1 die Routine auch auf »Setzen« schalten, und 
zweitens müssen sie vorher nämlich erst die »Cursorposition 
berechnen«-Routine aktivieren. Dies geschieht mit SYS 
58732. Dann können Sie gefahrlos mit SYS 58634 das erste 
Unterprogramm starten (Das Programm in Listing 2 demon¬ 
striert dies mit einer kleinen Sinuskurve). 

Für die zweite Funktion der Unterroutine, nämlich »Cursor¬ 
position holen«, müssen Sie lediglich POKE 783,0 und SYS 
58634 eingeben, danach steht die Zeile des Cursors in der 
Speicherzelle 781 und die Spalte in 782. Damit läßt sich zum 
Beispiel ein Menü, aus dem man mit einem Cursor auswählen 
kann, sehr gut realisieren. 

Sicher ist es Ihnen schon einmal passiert, daß Sie alle mög¬ 
lichen Parameter zur Bildschirmausgabe verändert haben 
(zum Beispiel Rahmen-, Hintergrundfarbe, Lage des Bild¬ 
schirms, und so weiter...) und Sie nun nicht mehr wissen, wie 
die Anfangswerte ausgesehen haben. Abgesehen davon ist 
es sehr mühsam, das alles »per Hand« wieder zurückzustel¬ 
len. Durch Aufruf der Routine »Bildschirm-Reset« mit SYS 
58648 wird alles wieder in den Ausgangszustand (wie nach 
dem Einschalten, also dunkelblauer Hintergrund, hellblaue 
Rahmen- und Zeichenfarbe, und so weiter...) zurückgesetzt. 
Dies sollten Sie übrigens zu Beginn jedes Programms einmal 
durchführen, da ja der Benutzer vorher alles verstellt haben 
könnte. 

Wenden wir uns nun ab von der Bildschirmsteuerung, hin 
zu anderen Betriebssystem-Routinen. Zur Fehlersuche zu 
gebrauchen ist eine Routine, die die aktuelle Zeilennummer, 
in der sich das Programm gerade befindet, ausgibt. Durch 
SYS 48578 erfolgt die Ausgabe »in xxxx«, wobei es sich bei 
»xxxx« um die aktuelle Zeilennummer handelt. 

Das laufende Basic-Programm wird danach ganz normal 
fortgesetzt. 

Wenn Sie nicht Fehler verhindern oder aufspüren, sondern 
produzieren wollen, so hilft Ihnen die folgende Routine wei¬ 
ter. POKEn Sie einen Wert zwischen 1 und 30 in die Spei¬ 


1 REM SPEICHERBEREICH ABSPEICHERN 

< 181 > 

2 REM CREATED BY CHRISTOPH BERSMANN 

<242> 

3 REM 

<065> 

10 DEF FN H <X) =INT< X/256) 

<244> 

20 DEF FN L<X)=X-FN H<X>*256 

<019> 

100 INPUT-STARTADRESSE";S 

<0B5> 

110 INPUT“ENDADRESSE*1”;E 

<230> 

120 INPUT"NAME IBSPACE >";N® 

< 146> 

150 SYS(57B12)N*,8 

<215> 

200 POKE 193,FN L(S):P0KE 194,FN H(S) 

<206> 

210 POKE 174,FN L(E)sPOKE 175,FN H(E) 

<222> 

300 SYS 62957iEND 

<198> 


Llsting 3. Speichern eines beliebigen Speicherbereichs auf 
Kassette oder Diskette 


cherzelle 781 und starten Sie das Unterprogramm mit SYS 
42039. Schon bricht Ihr Programm mit der der Nummer ent¬ 
sprechenden Fehlerausgabe ab. 

Alle Kanäle schließen 


Nun wieder zu etwas Nützlichem: Wenn Sie in einem Pro¬ 
gramm mehrere Ein- oder Ausgabekanäle mit OPEN eröffnet 
haben, so ist es etwas mühsam, alle Kanäle wieder mit 
CLOSE zu schließen. Das Betriebssystem hat hierfür ein 
Unterprogramm, das alle möglichen Kanäle auf einmal 
schließt. Die Startadresse der Routine lautet 62255. 

Wie Sie sicher wissen, kann ein Programm nicht nur mit 
LOAD "Name",8 (Hier wird das Programm immer ab dem 


Basic-Anfang, der bei 2049 liegt, geschrieben), sondern 
auch mit LOAD "Name",8,1 geladen werden. Bei letzterem 
lädt das Betriebssystem ein Programm an die angegebene 
Stelle im Speicher. Die Startadresse wird beim SAVEn mitge¬ 
speichert. Dies kann man sehr nutzbringend anwenden, 
denn es muß sich ja nicht unbedingt um ein (in diesem Fall 
Maschinen-)Programm handeln. Man kann vielmehr jeden 
beliebigen Speicherbereich speichern, zum Beispiel Sprite- 
Daten, den Bildschirmspeicher, HiRes-Grafiken, Variablen¬ 
werte, etc. Es ergeben sich wirklich viele Anwendungsmög¬ 
lichkeiten. 

Um so einen Bereich zu speichern, müssen Sie folgendes 
eingeben: Als erstes »SYS(57812) "Name'.g« zum Eröffnen 
des Programmfiles. Wenn Sie für »g« den Wert 8 verwenden, 


1 REM 

EINGABE - UNTERPROGRAMM 

<250> 

2 REM 

CREATED BY CHRISTOPH BERGMANN 

<242> 

3 REM 


<065> 

60000 

SYS 42336:E*-"":Z=512 

<059> 

60010 

P=PEEKCZ)tIF P THEN E*-E*+CHR*(P):Z= 



Z+l:GOTO 60010 

< 135> 

60020 

RETURN 

< 131 > 


Listing 4. Unterprogramm zur Eingabe einer Zeichenkette in 
eine Stringvariable 


so speichern Sie das Programm auf die Diskette, beim Wert 
1 auf Kassette. Danach müssen Sie die Startadresse des 
Speicherbereichs in die Speicherstellen 193 und 194 schrei¬ 
ben, sowie die Endadresse in 174 und 175. Zum Schluß 
rufen Sie die Routine zum Speichern mit SYS 62957 auf (Alle 
Basic-Zeiger bleiben dabei unverändert). Das Programm in 
Listing 3 speichert einen angegebenen Bereich wie oben 
beschrieben. 

Im folgenden ein sehr nützliches Beispiel: Wenn Sie in 
einem Programm Sprites verwenden, so werden Sie die 
zugr irigen Daten wahrscheinlich in DATA-Zeilen geschrie¬ 
ben haben, diese dann mit einer FOR-NEXT-Schleife wieder 
auslesen und an einen bestimmten Speicherplatz POKEn. 
Das dauert bei vielen Sprites nicht nur sehr lange, es ver¬ 
braucht auch ungefähr vier- bis fünfmal soviel Platz, wie 
eigentlich nötig wäre. Wenn Sie die Sprite-Daten allerdings 
auf Diskette speichern und dann direkt in den Speicher laden, 
so umgehen Sie beide Nachteile. Dies können Sie am besten 
folgendermaßen bewerkstelligen: 

Laden Sie Ihr »altes« Programm und starten Sie es. Nach¬ 
dem die Sprite-Daten an die richtige Stelle gePOKEt wurden, 
können Sie es unterbrechen und löschen. Tippen Sie nun 
das Programm in Listing 3 ab und starten Sie es. Als Start- 
und Endadresse geben Sie die entsprechenden Werte für 
Ihre Sprites ein. Nach Eingabe eines Namens werden die 
Daten als Programmfile gespeichert. Laden Sie nun abermals 
Ihr »altes« Programm. Daraus können Sie nun die DATA-Zeilen 
und die FOR-NEXT-Schleife entfernen. Fügen Sie als erste 
Zeile folgendes ein: 

1 IF A=0 THEN A=1 : LOAD "Name",8,1 

Als »Name« verwenden Sie natürlich den Namen, den Sie 
beim Speichern angegeben haben. So, jetzt ist Ihr neues Pro¬ 
gramm fertig und Sie können es speichern. 

Wenn Sie sich schon einmal über den INPUT-Befehl des 
Commodore-Basic geärgert haben, weil er verschiedene Zei¬ 
chen (zum Beispiel Doppelpunkt, Komma, führende Leerzei¬ 
chen und so weiter) einfach nicht übernimmt, dann ist hier die 
Abhilfe: Rufen Sie mit SYS 42336 die Eingaberoutine des 
Betriebssystems auf. Diese Routine schreibt alle Zeichen in 
einer logischen Bildschirmzeile (maximal 80 Zeichen) in den 
Basic-Eingabepuffer ab Adresse 512. Daraus kann man nun 
mit einer einfachen Schleife die Eingabe einiesen. Das Ende 
wird mit einem CHR$(0) gekennzeichnet (Das Programm in 
Listing 4 ist ein Beispiel dafür.) 

So, das war’s mit den Tips. Viel Spaß und Freude damit. 

(Christoph Bergman/ks) 
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C64/C16/C128 


Rechnen in 
Maschinen¬ 
sprache 


Praktische Tips und Tricks braucht jeder Program¬ 
mierer. Wir zeigen Ihnen, wie in Maschinenspra¬ 
che gerechnet wird. Mit vielen Beispielen erklä¬ 
ren wir Ihnen ausführlich alles Notwendige - 
Schritt für Schritt. 

I n diesem Artikel werden die wichtigsten Routinen des 
Basic-Interpreters zum Umgang mit Zahlen erläutert, zur 
Division, Multiplikation und so weiter, und die Nutzung 
dieser Routinen in Assemblerprogrammen. Sollten Sie 
bereits von der sogenannten »Fließkommadarstellung« 
gehört haben, die im Zusammenhang mit diesen Routinen 
ständig benutzt wird und ziemlich komplex ist: Durch diesen 
Artikel sollen Sie vor allem den praktischen Umgang mit den 
Arithmetikroutinen lernen. Zahlenformate werden nur behan¬ 
delt, soweit Sie für das Verständnis unbedingt erforderlich 
sind. Wenn Sie mehr über die Fließkommadarstellung wissen 
wollen, empfehle ich Ihnen den Kurs »Assembler ist keine 
Alchimie« von H.Ponnath (Sonderheft 8/85, Assembler für 
Einsteiger und Fortgeschrittene). 

Wer benötigt die Arithmetikroutinen? 

Die Kenntnis dieser Routinen ist vor allem für zwei Typen 
von Programmierern interessant. Zum einen für jene 
»Freaks«, die extreme Anforderungen an Kürze und 
Geschwindigkeit von Programmen stellen und diese daher 
vollständig in Maschinensprache beziehungsweise Assem¬ 
bler schreiben. 

Solange in reinen Maschinenprogrammen die meistver- 
wendeten Integerzahlen nur addiert oder subtrahiert werden 
müssen, hält sich der Programmieraufwand noch in Grenzen. 
Die meisten Assemblerprogrammierer werden mir jedoch 
zustimmen, daß bereits die Multiplikation und Division von 
Integerzahlen einen recht hohen Aufwand erfordert und es 
unumgänglich wird, eigene Unterprogramme zur Multiplika¬ 
tion, Division oder zur Ausgabe von Integerzahlen auf dem 
Bildschirm zu schreiben. 

Beim Rechnen mit Integerzahlen können diese Unterpro¬ 
gramme recht sinnvoll sein. Wenn Sie in Ihren Maschinenpro¬ 
grammen jedoch auch mit Realzahlen arbeiten, ist es unsin¬ 
nig, auch dafür eigene Routinen zu erstellen. Alle (!) Routi¬ 
nen, die zum Umgang mit Realzahlen benötigt werden, befin¬ 
den sich bereits in unserem Computer und zwar im Basic- 
Interpreter, der sie bei der Programmabarbeitung ständig 
benötigt. 

Die zweite Gruppe sind Programmierer, deren Programme 
vorwiegend in Basic geschrieben werden, die jedoch Unter¬ 
routinen in Maschinensprache als Ersatz für besonders zeit¬ 
kritische Basic-Programmteile einsetzen. Wenn in solchen 
Routinen gerechnet, zum Beispiel multipliziert werden muß, 
ist es unsinnig, nach Basic zurückzukehren und die benötigte 


Rechnung dort vorzunehmen, um anschließend das errech- 
nete Ergebnis in Maschinensprache weiterzuverarbeiten. 

Durch die Übergabe der Zahlen an das Basic-Programm 
(Lesen mit: PEEK(Zahll), PEEK(Zahl2)) und die Rückgabe 
des Ergebnisses an die Maschinenroutine mit POKE(Adres- 
se), (Ergebnis) würde derart viel Zeit vergehen, daß der 
Geschwindigkeitsvorteil der Maschinenroutine in vielen Fäl¬ 
len zunichte gemacht wird. Die Berechnungen müssen in sol¬ 
chen Fällen ebenfalls im Maschinenprogramm durchgeführt 
werden. 

Bei gemischten Basic- und Assemblerprogrammen stellt 
sich oft das Problem der Parameterübergabe und des 
Zugriffs auf eine Basic-Variable von einem Maschinenpro¬ 
gramm aus. Ein Beispiel: Eine Maschinenroutine soll die 
Werte Q ines Integer- oder Realarrays aufsummieren. Das 
erste noblem besteht in der Parameterübergabe: Wie wird 
der Maschinenroutine durch das Basic-Programm der Name 
des Arrays übermittelt, dessen Werte aufsummiert werden 
sollen? Das zweite Problem besteht darin, daß die Summie¬ 
rungsroutine »herausfinden« muß, wo im Computerspeicher 
das Array durch den Basic-Interpreter abgelegt wurde. 

Nach der Besprechung der Arithmetikroutinen werde ich 
erläutern, welche Möglichkeiten es zur Parameterübergabe 
an ein Maschinenprogramm gibt, und wie der Zugriff auf 
Basic-Variablen von Maschinensprache aus möglich ist. 

Gleich und doch nicht gleich 


Kompatibilitätsprobleme zwischen C16, C64 und C128 

Wie Sie vielleicht wissen, enthält das Betriebssystem von 
Commodore-Computern eine sogenannte »Kernel-Sprung¬ 
tabelle«, eine Liste der wichtigsten Routinen des Betriebs¬ 
systems und der jeweiligen Einsprungadresse. Diese 
Sprungtabelle gewährleistet eine problemlose Übertragbar¬ 
keit von Assemblerprogrammen, die Betriebssystemroutinen 
verwenden, zwischen verschiedenen (Commodore-) Com¬ 
putern. Unabhängig davon, ob Sie einen CI6, einen C64 
oder einen C128 besitzen, können Sie mit der Befehlsfolge: 
CLC 

LDX #5 (Zeile) 

LDY #5 (Spalte) 

JSR $FFF0 (PLOT, setzt den Cursor) 

den Cursor immer direkt auf Spalte fünf von Zeile fünf setzen. 
Die Kompatibilität wird dadurch hergestellt, daß erst nach 
dem Einsprung in $FFFO der Sprung zur eigentlichen Rou¬ 
tine erfolgt. Zum Beispiel befindet sich beim C 64 an Adresse 
$FFFO der Befehl »JMP $E50A«, ein Sprungbefehl mit der 
C64-spezifischen Adresse der Routine PLOT. 

Diese Sprungtabelle enthält jedoch keinerlei Routinen des 
Basic-Interpreters, die im folgenden fast ausschließlich ver- 
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wendet werden. Die folgenden Programme beziehen sich 
alle auf den C 64. Am Ende dieses Kapitels befindet sich eine 
Übersicht der verwendeten Routinen und Adressen. Soweit 
sie mir bekannt sind, finden Sie in dieser Tabelle auch die ent¬ 
sprechenden Adressen beim C16 und CI28, so daß der 
Großteil der vorgestellten Listings auch für den C16 oder den 
CI28 umgeschrieben werden kann, da die Funktionsweise 
der Arithmetikroutinen trotz unterschiedlicher Adressen auf 
allen drei Computern identisch ist. Alle (!) verwendeten Routi¬ 
nen besitzen eine Unterprogrammform, enden also mit einem 
»RTS« und können problemlos mit »JSR $....« aufgerufen 
werden. 

Die Redaktion ist dankbar für jeden Tip eines Lesers, der 
Lücken in dieser Tabelle füllen kann, oder aber gar weitere 
Arithmetikroutinen in seinem Computer entdeckt hat. 
Zahlendarstellung im Integer- und Fließkommaformat 

In Assemblerprogrammen wird vorwiegend mit Integerzah¬ 
len gearbeitet, das heißt mit ganzen Zahlen. Wie groß die dar¬ 
zustellenden Zahlen sein können, hängt davon ab, wie viele 
Bytes zur Darstellung verwendet werden. Bei Verwendung 
eines Bytes für eine Integerzahl ergibt sich ein Wertebereich 
von 0 bis 255, das heißt insgesamt 256 = 2 8 verschiedene 
ganze Zahlen können dargestellt werden. 

Bei Verwendung von zwei Byte = Word = 2 16 können 
bereits 65536 verschiedene Zahlen dargestellt werden (0 
bis 65535). In fast allen Assemblerprogrammen ist die Ver¬ 
wendung von Zwei-Byte-Zahlen und der sich daraus erge¬ 
bende Wertebereich völlig ausreichend. 

Dieser Wertebereich kann übrigens auch negative Zahlen 
umfassen, wenn die sogenannte »vorzeichenbehaftete Dar¬ 
stellung« verwendet wird. Bei dieser Art der Darstellung dient 
das oberste Bit zur Darstellung des Vorzeichens. 

1000 0000 0000 0000 

Ist es gelöscht, handelt es sich um eine positive, ist es 
gesetzt, um eine negative Zahl. Da das als Vorzeichen ver¬ 
wendete Bit zur Angabe der absoluten Größe entfällt, beträgt 
die größte mit zwei Byte darstellbare vorzeichenbehaftete 
Zahl 32767. Da der Wertebereich auch auf negative Zahlen 
ausgeweitet wird, können alle Zahlen zwischen -32768 und 


+32767 dargestellt 

werden. 



■ .+ 

32767 

= 

7fff 

s 

0111 

1111 

1111 

1111 

+ 

32766 

= 

7ffe 

= 

0111 

1111 

1111 

1110 

+ 

32765 

s 

7ffd 

s 

0111 

1111 

1111 

1101 

+ 

1 

s 

0001 

s 

0000 

0000 0000 

0001 


0 

s 

0000 

s 

0000 

0000 0000 

0000 

- 

1 

s 

ffff 

s 

1111 

1111 

1111 

1111 


32766 

— 

8002 

— 

1000 

0000 

0000 

0010 

- 

32767 

s 

8001 

= 

1000 

0000 

0000 

0001 

. 

32768 

= 

8000 

= 

1000 

0000 0000 

0000 


Die zweite Art der Zahlendarstellung, das Fließkommafor¬ 
mat, erlaubt die Darstellung beliebiger Realzahlen, der Werte¬ 
bereich ist daher extrem groß im Vergleich mit der üblichen 
Zwei-Byte-Integerdarstellung. Alle (!) Zahlen, auch Integer¬ 
zahlen, wandelt der Basic-Interpreter übrigens zuerst in 
Fließkommazahlen, bevor arithmetische Operationen mit 
ihnen ausgeführt werden. 

Dennoch ist es keineswegs notwendig, daß Sie wissen, 
wie Zahlen im Fließkommaformat dargestellt werden. Zur 
Umwandlung der in Maschinenprogrammen üblichen Inte¬ 
gerzahlen ins Fließkommaformat existieren Routinen, die 
noch von mir besprochen werden. 

Vorläufig genügt es, wenn Sie sich merken, daß der Basic- 
Interpreter Fließkommazahlen in Form von fünf Byte im Spei¬ 
cher ablegt, wobei ein Byte für den »Exponenten« und vier 
Byte für die »Mantisse« verwendet werden. Das Vorzeichen 
der Zahl wird mit dem obersten Bit eines der vier Mantissen¬ 


byte dargestellt. Ist das Bit gelöscht, ist die Zahl positiv, bei 
gesetztem Bit ist sie negativ. 

Die Fließkomma-Akkumulatoren 
Die arithmetischen Operationen des Basic-Interpreters fin¬ 
den in den beiden sogenannten »Fließkomma-Akkumulato¬ 
ren« statt, in FAC # 1 und FAC # 2, die meistens FAC und ARG 
genannt werden. Es handelt sich dabei um zwei Speicherbe¬ 
reiche in der Zeropage, die zur Aufnahme der beiden Zahlen 
verwendet werden, die miteinander verknüpft werden sollen. 


Aufbau von FAC und ARG (C64) 



FAC 

ARG 

Exponent 

$61 

$69 

Mantisse 1 

$62 

$6A 

Mantisse 2 

$63 

$6B 

Mantisse 3 

$64 

$6C 

Mantisse 4 

$65 

$6D 

Vorzeichen 

$66 

$6E 

Adressenvergleich 



C64 


C16 C128 

FAC $61-$66 

$61-$66 $63-$68 

ARG $69-$6E 

$69-$6E $6A-$6F 


Der Aufbau von FAC und ARG ist bei allen drei Computern 
identisch. 

Wie die Tabelle zeigt, sind beim C16 und dem C64 sogar 
die Adressen identisch. Vielleicht wundern Sie sich über die 
zusätzliche Speicherstelle für das Vorzeichenbyte, da ich vor 
kurzem noch behauptet habe, das Vorzeichen sei in einem Bit 
der Mantisse »versteckt«: FAC und ARG haben eine etwas 
verschwenderischere Art der Fließkommadarstellung. 

Der Rechner im Computer 


Im gtoamten Speicher bis auf FAC und ARG werden Fließ¬ 
kommazahlen tatsächlich im kompakten Fünf-Byte-Format 
abgelegt. Wenn nun eine Fließkommazahl, zum Beispiel die 
Basic-Variable VI, zur Vorbereitung einer Rechnung nach 
FAC oder ARG kopiert wird, wird die komplette Mantissel 
nach $66 beziehungsweise nach $6E in das Vorzeichenbyte 
kopiert, und das oberste Bit von Mantissel immer (!) gesetzt 
(mit OR A # $80), bevor dieses Byte an seine Position im FAC 
transportiert wird. 

Wenn umgekehrt eine Fließkommazahl in FAC oder ARG an 
eine beliebige Speicheradresse transportiert werden soll, 
wird das oberste Bit von Mantissel aus dem Vorzeichenbyte 
rekonstruiert, bevor der Transport erfolgt (FAC: LDA 
$66:ORA #$7F:AND $62). 

Diesen Unterschied zwischen dem kompakten Fünf-Byte- 
Format, das im Speicher verwendet wird, und dem speziellen 
FAC/ARG-Format müssen Sie unbedingt berücksichtigen, 
wenn Sie Fließkommazahlen »per Hand« zwischen FAC oder 
ARG und dem restlichen Speicher hin- und hertransportieren 
wollen. Wenn ein solches Transferproblem in Ihren Program¬ 
men auftritt, und Sie die dafür vorhandenen Routinen nicht 
verwenden können, weil die entsprechenden Adressen für 
Ihren Computer in der Tabelle fehlen, müssen Sie beim 
Kopieren auf dieses Vorzeichenbit beziehungsweise -byte 
unbedingt achten. 

Wenn zwei Zahlen miteinander verknüpft werden sollen 
(zum Beispiel 10*3 oder 10/3), müssen beide Zahlen zuerst 
ins Fließkommaformat konvertiert werden. Anschließend 
müssen die Zahlen nach FAC und ARG übertragen werden. 
Im letzten Schritt wird die jeweilige Arithmetikroutine aufgeru¬ 
fen, zum Beispiel die Multiplikations- oder die Divisionsrou¬ 
tine. Bei allen Arten der Verknüpfung befindet sich das Ergeb¬ 
nis anschließend im FAC. 

Bevor nun verschiedene Assemblerprogramme folgen, will 
ich kurz die wichtigsten Eigenarten des von mir verwendeten 
MAE-Assemblers beschreiben: 
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MAE 

Hypra-Ass 

Bedeutung 

,BA $c000 

,BA 

Startadresse eines Programms 

.OS 

.OB 

Anweisung, Objektcode zu generieren 

.FAC.de $61 

.EQ FAC=$61 

Zuweisung eines Wertes 

.LDA #L,FAC 

LDA #<(....) 

Low-Byte-Wert eines Wertes 

.LDA #H,FAC 

LDA #<(....) 

High-byte-Wert eines Wertes 

.BY 

.BY 

Byte 


Ausgabe von Fließkommazahlen 

Für alle folgenden Beispielprogramme benötigen wir eine 
Möglichkeit, das aus der Verknüpfung von zwei Zahlen resul¬ 
tierende Ergebnis möglichst problemlos überprüfen zu kön¬ 
nen, möglichst eine Ausgabe des Ergebnisses direkt auf dem 
Bildschirm. 

Der Basic-Interpreter stellt zwei Routinen zur Verfügung, 
die kombiniert zur Ausgabe einer Zahl (die sich im Fließkom¬ 
maformat im FAC befinden muß) auf dem Bildschirm führen. 
Die betreffende Zahl wird nach dem Aufruf der beiden Routi¬ 
nen an der momentanen Cursorposition ausgegeben. 
FAC-Inhalt in ASCII-String wandeln ($BDDD) 

Bevor diese Routine (FACSTR) aufgerufen wird, muß dafür 
gesorgt werden, daß sich die auszugebende Zahl im Fließ¬ 
kommaformat im FAC befindet. Beim Aufruf der Routine müs¬ 
sen keine weiteren Parameter übergeben werden, das heißt 
Akku, X- und Y-Register können beliebige Inhalte besitzen. 
Die Routine wandelt die Fließkommazahl in einen ASCII- 
String um, der mit Hilfe einer weiteren Routine auf dem Bild¬ 
schirm ausgegeben werden kann. 

Achtung! Die Fließkommazahlen im FAC werden durch die 
Umwandlung zerstört. Wenn Sie nach der Ausgabe mit die¬ 
sen Zahlen weiterrechnen wollen, müssen Sie vor Aufruf von 
FACSTR den Inhalt des FAC in einen freien Speicherbereich 
kopieren. 

ASCII-String ausgeben ($AB1E) 

Auch diese Routine (STROUT) benötigt keine weiteren 
Übergabeparameter. Der Aufruf mit »JSR $AB1E« genügt zur 
Ausgabe der zuvor in einen String umgewandelten Zahl. 


Zahlenausgabe auf dem Bildschirm 

Eingabe: 

FAC = Wert 

Akku = unbenutzt 
X-Register = unbenutzt 
Y-Register = unbenutzt 


jsr FACSTR 
jsr STROUT 

Ausgabe: 

Akku 

X-Register 

Y-Register 

FAC 


; $bddd 
; Sable 


= unbenutzt 
= unbenutzt 
= unbenutzt 
= Inhalt zerstört 


Konstante im Fließkommaformat nach FAC übertragen 
($BBA2) 

Um die Wirkung beider Routinen zu demonstrieren, benöti¬ 
gen wir eine Fließkommazahl im FAC. Beim C 64 befindet sich 
an Adresse $BBA2 die Routine KONFAC, die eine beliebige 
Konstante im Fließkommaformat in den FAC überträgt. 

Diese Routine konvertiert die Zahl zugleich vom kompakten 
Fünf-Byte-Speicherformat in das Sechs-Byte-Format der 
Fließkommaakkus (ein zusätzliches Byte für das Vorzeichen 
und Setzen des obersten Bits von Mantissel). Die entspre¬ 
chenden Adressen beim C16 und C128 sind mir leider nicht 
bekannt. Wenn Sie diese Routine in Ihrem Computer nicht fin¬ 
den sollten, können Sie sie jedoch problemlos durch eine 
Schleife ersetzen, mit der Sie die fünf Byte »per Hand« in den 


FAC kopieren (vergessen Sie nicht, Mantissel in das Vorzei¬ 
chenbyte zu kopieren und das oberste Bit dieser Mantisse im 
FAC zu setzenI). 

Vor dem Aufruf dieser Routine müssen Akku und Y-Regi¬ 
ster mit der Adresse geladen werden, an der sich die betref¬ 
fende Konstante befindet (Akku=Low-Byte/Y= High-Byte). 


FAC mit Konstante laden 

Eingabe: 


Akku 

X-Register 
Y-Register 
Ida # < (Wert) 
Idy # > (Wert) 
jsr KONFAC 
Ausgabe: 


= Low-Byte-Adresse 
= unbenutzt 
= High-Byte-Adresse 
; Low-Byte-Adresse 
; High-Byte-Adresse 
; $BBA2 


Akku = unbenutzt 
X-Register = unbenutzt 
Y-Register = unbenutzt 
FAC = Konstante 


Bildschirmausgabe einer Fließkommazahl 

Im Programm »Zahlenausgabe« (Listing 1) wird die Zahl PI 
(3,14...) verwendet, deren Fließkommadarstellung lautet: 
$82 $49 $0F $DA $A1. 

Das Programm befindet sich an Adresse $C000, die Zahl 
PI am Programmende. Nach dem Aufruf des Programms mit 
»SYS 49152« wird der Akku mit dem Low- und das X-Register 
mit dem High-Byte der Adresse geladen, an der sich die Zahl 
befindet. Anschließend wird die Routine KONFAC aufgeru¬ 
fen, die die Konstante in den FAC überträgt. 

Im FAC befindet sich nun die Zahl PI in der benötigten Form. 
Durcn Jen Aufruf von FACSTR wird der FAC-Inhalt in einen 
ASCII-String gewandelt, der mit der Routine STROUT auf 
dem Bildschirm an der momentanen Cursorposition ausge¬ 
geben wird (3,14159265). 

FAC als Konstante speichern 

FACKON ($BBD4) ist die Umkehrung von KONFAC und 
kopiert den Inhalt des FAC an eine übergebene Adresse, 
wobei gleichzeitig die Konvertierung in das gepackte Format 
vorgenommen wird. Im Gegensatz zu KONFAC wird die 
Adresse im X- und Y-Register übergeben (X=Low- 
Byte/Y= High-Byte). 


FAC als Konstante speichern 

Eingabe: 


FAC 

Akku 

X-Register 
Y-Register 
jsr FACKON 
Ausgabe: 

Akku 

X-Register 

Y-Register 


= Konstante 
= unbenutzt 
= Low-Byte-Adresse 
= High-Byte-Adresse 
; $bbd4 

= unbenutzt 
= unbenutzt 
= unbenutzt 


Konvertierungsroutinen 

In der Praxis werden Sie häufig nicht mit Fließkomma-, son¬ 
dern mit Integerzahlen arbeiten. Um Arithmetikoperationen 
mit zwei Integerzahlen durchzuführen, müssen diese jedoch 
zuvor in das Fließkommaformat gewandelt werden. Der 
Basic-Interpreter besitzt glücklicherweise sowohl Routinen 
zur Wandlung von Integerzahlen ins Fließkommaformat als 
auch zur Wandlung von Fließkommazahlen in das Integer¬ 
format. 

Die wichtigsten dieser »Konvertierungsroutinen« werde ich 
im folgenden besprechen und zwar: 

ft Vvi - r> niinc.de 


ßft 
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1. Ein-Byte-Integer nach Fließkomma wandeln. 

2. Zwei-Byte-Integer nach Fließkomma wandeln. 

3. Fließkomma nach Integer wandeln. 

Ein-Byte-Integer (positiv) nach Fließkomma ($B3A2) 

Meist wird bei der Verwendung von Integerzahlen die posi¬ 
tive Darstellung verwendet, das heißt, daß der Ein-Byte-Wert 
als positive ganze Zahl zwischen 0 und 255 aufgefaßt wird. 
Mit der Routine EINPOS wird eine solche Zahl in das Fließ¬ 
kommaformat umgewandelt. Die entsprechende Fließkom¬ 
mazahl befindet sich nach dem Aufruf im FAC. Vor dem Aufruf 
der Routine muß das Y-Register mit der zu konvertierenden 
Zahl geladen werden. 

Das Programm »Ein-Byte-Integer« (Listing 2) verwendet 
diese Routine zur Konvertierung der Zahl $80 (dezimal: 128; 
binär: 10000000). Das Y-Register wird mit $80 geladen und 
die Routine aufgerufen. Zur Überprüfung der Konvertierung 
wird der Inhalt des FAC anschließend mit den Routinen 
FACSTR und STROUT in einen ASCII-String gewandelt und 
auf dem Bildschirm ausgegeben. 


Ein-Byte-Werte einiesen ohne Vorzeichen 

Eingabe: 

Akku = unbenutzt 
X-Register = unbenutzt 
Y-Register = Wert 


Idy # (Wert) ; 

jsr EINPOS ; $b3a2 


Ausgabe: 

Akku = unbenutzt 
X-Register = unbenutzt 
Y-Register = unbenutzt 
FAC = Wert 




Ein-Byte-Integer (vorzeichenbehaftet) nach Fließkomma 
($BC3C) 

Wenn Sie das Programm »Ein-Byte-Integer« (Listing 2) mit 
Ihrem Assembler eingeben und mit »SYS 49152« starten, 
stellen Sie fest, daß auf dem Bildschirm zwei Zahlen unmittel¬ 
bar hintereinander ausgegeben werden: 128 und -128. Für 
die Ausgabe der Zahl -128 ist der zweite Programmteil verant¬ 
wortlich, der die Routine EINNEG ($BC3C) zur Wandlung 
des Integerwertes $80 verwendet. Diese Routine konvertiert 
einen vorzeichenbehafteten Ein-Byte-Integer-Wert in eine 
Fließkommazahl. 

Was unter vorzeichenbehaftet zu verstehen ist, wurde 
bereits kurz angedeutet: Das oberste Bit der Zahl wird als 
Vorzeichen verwendet. Ist es gesetzt, handelt es sich um 
eine negative, ansonsten um eine positive Zahl. Da dieses Bit 
bei der Zahl $80 gesetzt ist, interpretiert die Routine EINNEG 
$80 als die negative Zahl -128. Zur Verdeutlichung: Vorzei- 


Ein-Byte-Werte einiesen mit Vorzeichen 

Eingabe: 

Akku = Wert 
X-Register = unbenutzt 
Y-Register = unbenutzt 


Ida # (Wert) ; 

jsr EINNEG ; $bc3c 


Ausgabe: 

Akku 

X-Register 

Y-Register 

FAC 


= unbenutzt 
= unbenutzt 
= unbenutzt 
= Wert 


chenbehaftet entspricht $81 dem Wert -127, $82 dem Wert 
-126 und so weiter. 

Beachten Sie bitte, daß vor Benutzung von EINNEG der 
Akku mit dem jeweiligen Wert geladen werden muß, im 
Gegensatz zur Routine EINPOS, der die Zahl im Y-Register 
übergeben wird. 

Zwei-Byte-Integer (positiv) nach Fließkomma ($BC49) 

In vielen Assemblerprogrammen sind Ein-Byte-Werte 
unzureichend zur Darstellung der benötigten Zahlen. Ein Pro¬ 
gramm, das zum Beispiel mit hochauflösender Grafik arbei¬ 
tet, muß mit Zwei-Byte-Integerzahlen arbeiten, um beliebige 
Bildschirmpositionen erfassen zu können, da die Grafikauflö¬ 
sung in der Y-Richtung 320 Punkte beträgt und der Wert 255 
- die Obergrenze der Ein-Byte-Darstellung - daher über¬ 
schritten werden kann. 

Mit Hilfe der Routine ZWEPOS können positive Zwei-Byte- 
Integerzahlen (0...65535) in die entsprechende Fließkom¬ 
mazahl konvertiert werden. Vor dem Aufruf wird die jeweilige 
Zahl nach $62/$63 übertragen (Achtung: $62 = High und 
$63=Low, also zuerst High- und dann Low-Bytel), das X- 
Register direkt mit $90 geladen und das Carry-Flag gesetzt. 
Das Programm »Zwei-Byte-Integer« (Listing 3) zeigt die 
Anwendung dieser Routine zur Konvertierung und Ausgabe 
(mit FACSTR und STROUT) der Zahl $FFFF. 


Zwei Byte einiesen ohne Vorzeichen 

Eingabe: 


Akku 

= unbenutzt 

X-Register 

= $90 

Y-Register 

= unbenutzt 

Carry 

= gesetzt 

Ida (Wert) 

; Low-Byte-Wert 

sta $63 

; FAC 2.Mantisse 

Ida # > (Wert) 

; High-Byte-Wert 

sta $62 

; FAC 1. Mantisse 

sec 

; Carry set 

jsr ZWEPOS 

; $bc49 

Ausgabe: 


Akku 

= unbenutzt 

X-Register 

= unbenutzt 

Y-Register 

= unbenutzt 

FAC 

= Wert 


Zwei-Byte-Integer (vorzeichenbehaftet) nach Fließkomma 
($BC44) 

Nach dem Aufruf mit »SYS 49152« gibt dieses Programm 
ebenso wie das Programm »Ein-Byte-Integer« zwei Zahlen 
unmittelbar hintereinander aus, und zwar die Zahlen 65535 
und -1. Der erste Programmteil benutzt die besprochene Rou¬ 
tine ZWEPOS zur Ausgabe von $FFFF ($FFFF=65535), 
der zweite Teil die Routine ZWENEG ($BC44). ZWENEG faßt 
die übergebene Zahl als vorzeichenbehafteten Wert auf. In 
dieser Darstellungsart entspricht $FFFF der größten mit zwei 
Byte darstellbaren negativen ganzen Zahl (nicht der größten 
darstellbaren positiven, da das gesetzte oberste Bit eine 
negative Zahl anzeigt), das heißt der Zahl -1. 

Die Übergabeparameter dieser Routine sind mit ZWEPOS 
identisch, abgesehen davon, daß das Carry-Flag diesmal 
nicht gesetzt, sondern gelöscht werden muß. Die Zahl wird 
ebenfalls in $62/$63 (High/Low) übergeben, das X-Register 
mit $90 geladen und das Carry-Flag gelöscht. Wie Sie viel¬ 
leicht bemerkt haben, ensprechen die Speicherzellen, in 
denen der Zwei-Byte-Wert übergeben wird, den ersten bei¬ 
den Bytes der Mantisse des FAC. Beim C16 beziehungs¬ 
weise beim C128 wird der gleiche Teil des FAC zur Übergabe 
benutzt. Die entsprechenden Speicherstellen sind daher 
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ebenfalls $62/$63 beim C16 und $64/$65 beim C128. Die 
entsprechenden Einsprungadressen finden Sie in der 
Tabelle am Ende dieses Artikels. 


Zwei Byte einiesen mit Vorzeichen 

Eingabe: 

Akku 

= unbenutzt 

X-Register 

= $90 

Y-Register 

= unbenutzt 

Carry 

= gelöscht 

Ida # < (Wert) 

; Low-Byte-Wert 

sta $63 

; FAC 2.Mantisse 

Ida # > (Wert) 

; High-Byte-Wert 

sta $62 

; FAC 1.Mantisse 

cic 

; Carry clear 

jsr ZWENEG 

; $bc44 

Ausgabe: 

Akku 

= unbenutzt 

X-Register 

= unbenutzt 

Y-Register 

= unbenutzt 

FAC 

= Wert 


Fließkomma nach Integer ($BC9B) 

In allen drei Computern befinden sich zusätzlich Routinen 
zur Umwandlung von Drei- und Vier-Byte-Integerzahlen ins 
Fließkommaformat. Da diese jedoch nur selten in Assembler¬ 
programmen verwendet werden, verzichte ich auf eine aus¬ 
führliche Darstellung dieser Routinen. 

Wir benötigen jedoch unbedingt eine Routine, die den 
umgekehrten Weg geht, das heißt, die eine Fließkommazahl 
ins Integerformat wandelt, da es nach verschiedenen 
Rechenoperationen mit Fließkommazahlen oft einfacher ist, 
mit dem Ergebnis in Integerform weiterzuarbeiten, als die in 
Assembler schwer zu verarbeitende Fließkommaform zu ver¬ 
wenden. 

Die Routine FLIINT wandelt jede beliebige Fließkommazahl 
ins Integerformat um. Beachten Sie jedoch bitte, daß die 
Wandlung nur bei Fließkommazahlen kleiner als 231 (= 2.14 
* 109) fehlerfrei funktioniert. Der Grund dafür ist die 
begrenzte Byteanzahl, die zur Aufnahme des Integerergeb¬ 
nisses verwendet wird (vier Byte). 

Da mit Integerzahlen nur ganze Zahlen dargestellt werden 
können, werden Nachkommastellen bei der Wandlung abge¬ 
schnitten (aus 5249,57 wird daher 5249). 


FAC in Integer wandeln 

Eingabe: 

Akku = unbenutzt 
X-Register = unbenutzt 
Y-Register = unbenutzt 


zahl im FAC keine weiteren Übergabeparameter. 

Das Integerergebnis befindet sich ebenfalls im FAC, in den 
vier Byte der Mantisse. In $65 wird das niederwertigste, in 
$62 das höchstwertige Byte des Ergebnisses abgelegt. 
Ergibt die Wandlung zum Beispiel die Zahl $20FA, befindet 
sich in $65 der Wert $FA und in $64 der Wert $20. 

Da die Integerwandlung von PI das ganzzahlige Ergebnis 
drei liefert, interessiert uns nur das niederwertigste Byte 
$65. Zur Ausgabe des Ergebnisses wird das Y-Register mit 
diesem Byte geladen, die Routine EINPOS zur Wandlung 
nach Fließkomma verwendet und diese mit FACSTR und 
STROUT ausgegeben. 

Dieser Weg ist zweifellos sehr umständlich. Wenn Sie sich 
unmittelbar davon überzeugen wollen, daß die Routine FLI¬ 
INT die Zahl PI in die Integerzahl drei konvertiert und dabei die 
Nachkommastellen abschneidet, so fügen Sie im Programm 
»Fließkomma« nach dem Befehl »JSR FLIINT« bitte ein »BRK« 
ein. Nach dem Start mit »SYS 49152« verzweigt das Pro¬ 
gramm nach der Wandlung sofort in den Monitor (den Sie 
zuvor natürlich laden und aktivieren müssen!). Schauen Sie 
sich mit dem Monitor anschließend $62 bis $65 an, die Man¬ 
tisse des FAC. Sie werden feststellen, daß $65 den Wert drei 
(=$03) enthält und die höherwertigen Ergebnisbytes den 
Wert 0. 

Direkte Bildschirmausgabe von positiven Integerzahlen 
($BDCD) 

Die Routine INTOUT erlaubt die direkte Ausgabe von positi¬ 
ven Zwei-Byte-Integerzahlen auf dem Bildschirm. Die Inte¬ 
gerzahl wird in den Registern übergeben (X=Low-Byte; 
Akku=High-Byte). Es handelt sich dabei keineswegs um 
eine neue Routine, da die dieser Adresse folgenden Befehle 
nur die bekannten Routinen ZWEPOS, FACSTR und 
STROUT nacheinander aufrufen. 

Das Programm »Integerausgabe« (Listing 5) demonstriert 
den Einsatz dieser Routine. Das X-Register wird mit dem Low- 
Byte und der Akku mit dem High-Byte von $F02A geladen. 
Der Aufruf von INTOUT führt unmittelbar zur Ausgabe der 
Zahl 61482. 

Diese Routine kann in den verschiedensten Assemblerpro¬ 
grammen vielseitig verwendet werden (Textverarbeitung: 
Ausgabe von Seite, Zeile und Spalte; Spiele: Ausgabe der 
Punktzahl, des Levels und so weiter). 


Ausgabe von Zwei-Byte-Werten 

Eingabe: 


FAC = Integerzahl 

Akku = High-Byte-Wert 
X-Register = Low-Byte-Wert 
Y-Register = unbenutzt 


Ida (Wert) 
Idx (Wert) 
jsr INTOUT 


FAC 4.Mantisse $65 
FAC 3.Mantisse $64 
$bdcd 


jsr FLIINT 

Ausgabe: 

Akku 

X-Register 

Y-Register 

FAC 


; $bc9b 


= unbenutzt 
= unbenutzt 
= unbenutzt 
= Inhalt zerstört 


Das Programm »Fließkomma« (Listing 4) wandelt eine 
Fließkommazahl in einen Integerwert und gibt ihn auf dem 
Bildschirm aus. Als Fließkommazahl wird PI verwendet und 
mit der Routine KONFAC in den FAC übertragen. Der Aufruf 
von FLIINT wandelt diese Fließkommazahl ins Integerformat. 
FLIINT benötigt außer der zu konvertierenden Fließkomma¬ 


Ausgabe: 

Akku = unbenutzt 
X-Register = unbenutzt 
Y-Register = unbenutzt 
FAC = Inhalt zerstört 

Beispiel: 

Übergabe der Zahl in das Register 

Ida #$1 

Idx #$20 

jsr INTOUT 

Ergebnis: 

288 auf dem Bildschirm 


i.d© 


90 
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Grundrechenroutinen 

Nachdem wir nun alle häufig benötigten Konvertierungs¬ 
und Ausgaberoutinen kennen, können wir uns den eigentli¬ 
chen Arithmetikroutinen zuwenden, und zwar zuerst den vier 
Grundrechenarten. 

Die vier vorgestellten Routinen arbeiten prinzipiell gleich: 
Zwei Fließkommazahlen werden durch einen der Operatoren 
»+-*/« miteinander verknüpft. Die beiden Zahlen müssen 
sich vor dem Aufruf der benötigten Routine im FAC bezie¬ 
hungsweise ARG befinden. Das Ergebnis der Operation 
befindet sich nach dem Aufruf immer im FAC (im Fließkomma¬ 
format). 

Sehr wichtig ist folgende Bedingung: Vor dem Aufruf einer 
der Routinen muß sich im Akku der Exponent des FAC befin¬ 
den ($61). Wir werden Routinen kennenlernen, die für den 
Transport von Konstanten in den FAC oder das Kopieren des 
ARG-Inhalts in den FAC zuständig sind. Nach der Rückkehr 
aus diesen Routinen befindet sich der FAC-Exponent immer 
im Akku. Achten Sie bitte darauf, daß dieser Akkuinhalt bis 
zum Aufruf der gewünschten Arithmetikroutine auch erhalten 
bleibt und nicht durch LDA..., TXA etc. zerstört wird. 

Das Programm »Grundrechnen« (Listing 6) demonstriert 
die Anwendung der vier Grundrechenarten. In diesem Pro¬ 
gramm wird die noch nicht erwähnte Routine FACARG 
($BCOC) verwendet, die eine im FAC enthaltene Fließkom¬ 
mazahl nach ARG kopiert. Die entsprechende Adresse die¬ 
ser Routine für den C16 finden Sie am Ende des Artikels. 
Sollten Sie einen CI28 besitzen, können Sie diese Routine 
entweder selbst im ROM suchen, oder aber eine Schleife 
verwenden und den Inhalt des FAC »per Hand« nach ARG 
kopieren. Sie verzichten dann jedoch auf eine exakte Run¬ 
dung der Zahl, die die Routine FACARG durchführt, bevor die 
gerundete Zahl nach ARG kopiert wird. 

C 


FAC Ins ARG kopieren 

Eingabe: 

FAC = Wert 

Akku = unbenutzt 
X-Register = unbenutzt 
Y-Register = unbenutzt 


jsr FACARG 


; SbcOc 

; bzw ARGFAC $bbfc 


Ausgabe: 

Akku = unbenutzt 
X-Register = unbenutzt 
Y-Register = unbenutzt 
FAC = Wert 

ARG = Wert 


Der Programmablauf: Gehen wir davon aus, daß Sie die Flä¬ 
che Ihres Grundbesitzes errechnen wollen. An einer Lager¬ 
halle mit einer Fläche von 2000 m 2 sind Sie zu einem Drittel 
beteiligt. Um den Anteil zu ermitteln, müssen wir die Divi¬ 
sionsroutine DIV ($BB12) verwenden. 

DIV teilt ARG durch FAC und legt das Ergebnis in FAC ab. 
Vor Aufruf von DIV muß daher 2000 im ARG und drei im ARG 
abgelegt werden. Im Programmteil »Anteil berechnen« wird 
2000 in $62/$63 abgelegt, das X-Register mit der Zahl $90 
geladen und ZWEPOS aufgerufen. Wie wir wissen, befindet 
sich nach dieser Vorbereitung die Zahl 2000 im Fließkomma¬ 
format im FAC. 

Diese Fließkommazahl wird durch den Aufruf von FACARG 
nach ARG kopiert, bevor wir die Zahl drei, mit Hilfe der Rou¬ 
tine EINPOS ins Fließkommaformat gewandelt, im FAC able- 
gen. Der folgende Aufruf von DIV teilt ARG (2000) durch FAC 
(3) und legt das Ergebnis (666,666667) im FAC ab. 


ARG durch FAC = FAC 


Eingabe: 

FAC = Teiler 
ARG = Wert 
Akku = Exponent d.FAC 
X-Register = unbenutzt 
Y-Register = unbenutzt 


Ida $61 
jsr DIV 


; Exponent laden, 

wenn nicht schon im Akku vorhanden 
; $bb12 


Ausgabe: 

Akku 

X-Register 

Y-Register 

FAC 

ARG 


= Eponent d.FAC 
= unbenutzt 
= unbenutzt 
= Ergebnis 
= Wert 


Zur Kontrolle wollen wir dieses Ergebnis auf dem Bild¬ 
schirm mit FACSTR und STROUT ausgeben. Da das Ergebnis 
in den folgenden Rechnungen gebraucht wird, FACSTR den 
Inhalt des FAC jedoch zerstört, rufen wir zuvor ein weiteres 
Mal FACARG auf, um den FAC-Inhalt nach ARG zu kopieren. 
Nachdem das Ergebnis ausgegeben wurde, wird der Akku 
mit 13 geladen und BSOUT aufgerufen. BSOUT ist eine 
Betriebssystemroutine, die das im Akku übergebene Zeichen 
auf dem Bildschirm ausgibt. Die Einsprungadresse $FFD2 ist 
dank der erwähnten Sprungtabelle der Betriebssystemrouti¬ 
nen für alle drei Computer identisch. 

13 ist der Code für »Carriage Return«. Die Ausgabe dieses 
Zeic»'" s bewirkt einen Zeilenvorschub und sorgt damit für 
die optische Trennung der verschiedenen Ergebnisse, die 
»Grundrechnen« berechnet und ausgibt. 

Eine weitere Besonderheit des Ausgabeunterprogramms 
ist der Aufruf von zwei weiteren Unterprogrammen, die FAC 
nach PUFFER kopieren beziehungsweise PUFFER nach 
beendeter Ausgabe wieder nach FAC kopieren. Der Grund ist 
die erwähnte Zerstörung des Inhaltes von FAC bei Aufruf von 
FACSTR. 

Der nächste Programmteil verwendet die Additionsroutine 
ADD ($B86A), die FAC und ARG addiert, wobei das Ergebnis 
wiederum in FAC abgelegt wird. Gehen wir davon aus, daß Ihr 
Grundbesitz außer einem Drittelanteil an HAUS1 aus einem 
weiteren Haus mit einer Fläche von 5286 m 2 besteht, das 
Ihnen allein gehört. Diese Fläche soll zum vorigen Ergebnis 
addiert werden. 


= FAC 


ARG plus FAC = 

Eingabe: 

FAC 

ARG 

Akku 

X-Register 

Y-Register 


= Wert 1 
= Wert 2 

= Exponent d. FAC 
= unbenutzt 
= unbenutzt 


Ida $61 
jsr ADD 


; Exponent laden, wenn nicht schon 
im Akku vorhanden 
; $b86a 


Ausgabe: 

Akku = Eponent d. FAC 
X-Register = unbenutzt 
Y-Register = unbenutzt 
FAC = Ergebnis 

ARG = Wert 
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Zuerst wird der Inhalt von FAC mit FACARG nach ARG 
kopiert. Anschließend wird mit ZWEPOS die Zwei-Byte- 
Integerzahl 5286 im Fließkommaformat in FAC abgelegt. Der 
folgende Aufruf von ADD addiert FAC und ARG. Das Ergebnis 
wird mit der Ausgaberoutine auf dem Bildschirm ausgegeben 
(5952,66667), so daß Sie es problemlos mit einem Taschen¬ 
rechner überprüfen können. 

Etwas spät fällt Ihnen nun ein, daß die Grundfläche des 
zweiten Hauses vor kurzem neu berechnet wurde und das 
Ergebnis um 52 m 2 niedriger ausfiel als Ihr alter Wert von 
5286 m 2 . Das bisherige Ergebnis muß daher korrigiert wer¬ 
den, Sie müssen 52 subtrahieren. 

Mit den Arithmetikroutinen stellt diese Korrektur kein Pro¬ 
blem dar. Wir verwenden die Routine SUB ($B853), die FAC 
von ARG subtrahiert. 

Im dritten Programmteil wird zuerst das bisherige Ergebnis 
mit FACARG wieder in ARG kopiert. Der Routine EINPOS wird 
die Zahl 52 übergeben, die dadurch als Fließkommazahl in 
FAC abgelegt wird. EINPOS kann verwendet werden, da es 
sich bei 52 um einen Ein-Byte-Wert handelt. Wenn Sie in 
eigenen Programmen nicht von vornherein wissen, wie groß 
die zu wandelnden Integerzahlen sind, verwenden Sie am 
besten immer die Routine ZWEPOS. 

Nach der Wandlung wird die Routine SUB aufgerufen, die 
FAC=ARG-FAC rechnet, in unserem Fall 5952,66667-52. 
Das Ergebnis 5900.66667 wird anschließend ausgegeben. 


FAC 


ARG mal FAC = 

Eingabe: 

FAC 

ARG 

Akku 

X-Register 

Y-Register 


= Multiplikator 
= Wert 

= Exponent d. FAC 
= unbenutzt 
= unbenutzt 


Ida $61 
jsr MULT 


; Exponent laden, wenn nicht schon 
im Akku vorhanden 
; $ba2b 


Ausgabe: 

Akku 

X-Register 

Y-Register 

FAC 

ARG 


Exponent d. FAC 

unbenutzt 

unbenutzt 

Ergebnis 

Wert 


ARG hoch FAC = FAC 

Eingabe: 

FAC = Exponent 

ARG = Wert 
Akku = Exponent d. FAC 
X-Register = unbenutzt 
Y-Register = unbenutzt 


ARG minus FAC = FAC 

Eingabe: 

FAC = Subtrahent 

ARG = Wert 
Akku = Exponent d. FAC 
X-Register = unbenutzt 
Y-Register = unbenutzt 


Ida $61 
jsr SUB 


; Exponent laden, wenn nicht schon 
im Akku vorhanden 
; $b853 


Ida $61 

jsr EXP 

cnu ra*" ' < 

Ausgabe: 

Akku 

X-Register 

Y-Register 

FAC 

ARG 


; Exponent laden, wenn nicht schon 
im Akku vorhanden 
; $bf7b 


= Exponent d. FAC 
= unbenutzt 
= unbenutzt 
= Ergebnis 
= Wert 


Ausgabe: 

Akku = Exponent d. FAC 
X-Register = unbenutzt 
Y-Register = unbenutzt 
FAC = Ergebnis 

ARG = Wert 


Sie kennen nun die Gesamtfläche der Ihnen gehörenden 
Grundstücke und wollen deren Wert berechnen. Sie gehen 
dabei von einem durchschnittlichen Quadratmeterpreis von 
228 Mark aus. Die Fläche von 5900,66667 m 2 muß daher 
mit 228 multipliziert werden. 

Die Fläche, die sich noch in FAC befindet, wird mit FACARG 
nach ARG kopiert, bevor die Ein-Byte-Integerzahl 228 an 
EINPOS übergeben wird. Durch Aufruf der Routine MULT 
($BA2B) werden FAC und ARG miteinander multipliziert. Als 
Ausgabe erhalten Sie das stolze Ergebnis von 1345352 
Mark. 

Sie sehen, die Benutzung der Grundrechenroutinen in 
Assembler stellt keine besonderen Probleme, wenn beachtet 
wird, daß die Ausgabe von Zwischenergebnissen mit 
FACSTR und STROUT den Inhalt von FAC zerstört und dieser 
daher vor der Ausgabe gerettet werden muß. 

EXP ($BF7B) 

EXP wurde noch nicht erwähnt. Diese Routine arbeitet 
ebenfalls mit zwei Fließkommazahlen in FAC und ARG. EXP 
potenziert den ARG mit dem im FAC enthaltenen Exponen¬ 
ten. (FAC=3 und ARG=2 ergibt FAC=8). 


Die Funktionen 

Zur komfortablen Benutzung der Arithmetikfunktionen 
benötigen wir außer den Grundrechenarten die eingebauten 
Fließkommafunktionen. Das Programm »Funktionen« (Listing 
7) demonstriert den Gebrauch der Funktionen SIN(X), 
COS(X), SQR(X), LOG(X) und EXP(X). Vor dem Aufruf einer 
dieser Funktionen muß sich das Argument X der Funktion im 
FAC befinden. Das Ergebnis des Aufrufs befindet sich 
anschließend wieder im FAC. 

Das Programm »Funktionen« verwendet als Argument die 
Zahl zehn. Diese Zahl wird der Routine EINPOS im Y-Register 
übergeben. Nach dem Aufruf von EINPOS befindet sich die 
Fließkommazahl zehn im FAC und die gewünschte Funktion 
wird aufgerufen. Das Ergebnis des Funktionsaufrufs wird wie 
gewohnt mit FACSTR und STROUT auf dem Bildschirm aus¬ 
gegeben. 

COS(10) = -0,544021111 (Adresse: $E264) 

SIN(IO) = -0,839071529 (Adresse: $E26B) 

SQR(IO) = 3,16227766 (Adresse: $BF71) 

LOG(IO) = 2,30258509 (Adresse: $B9EA) 

EXP(IO) = 22026,4658 (Adresse: $BFED) 

Wenn Sie sich davon überzeugen wollen, daß die ausgege¬ 
benen Ergebnisse korrekt sind, so können Sie im Direktmo¬ 
dus eingeben: 

PRINT SIN(10):PRINT C0S(10):PRINT SQR(lO): 

PRINT LOG(10):PRINT EXP(lO) 

und die Ergebnisse mit den Ausgaben des Assemblerpro¬ 
gramms vergleichen. 


Itnc.do 
n*i 


Q9 
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Funktionen 

Eingabe: 

FAC = Wert 
Akku = Exponent d. FAC 
X-Register = unbenutzt 
Y-Register = unbenutzt 


Ida $61 ; Exponent laden, wenn nicht schon 

im Akku vorhanden 

jsr (Funktion) ; 


Ausgabe: 

Akku = Exponent d. FAC 
X-Register = unbenutzt 
Y-Register = unbenutzt 
FAC = Ergebnis 


Wie Sie sehen, ist der Aufruf einer Funktion noch einfacher 
als die Anwendung einer Grundrechenroutine. Es genügt, 
das Funktionsargument vor dem Aufruf in den FAC zu trans¬ 
portieren. Außer den im Programm »Funktionen« verwende¬ 
ten existiert noch eine Vielzahl weiterer Funktionen, die auf 
die gleiche Weise auf ein beliebiges Argument X angewendet 
werden können (TAN, RND etc.). 

Sollten Sie mit der Wirkungsweise einiger Funktionen nicht 
vertraut sein, empfehle ich Ihnen das Studium des Hand¬ 
buchs, in dem diese bei der Basic-Programmierung beschrie¬ 
ben werden. Denken Sie daran, daß diese Funktionen im 
Basic-Interpreter integriert sind, daß wir von Assembler aus 
keine neuen, sondern nur die auch von Basic aus nutzbaren 
Funktionen ansprechen. 

Schnittstellen zu Basic 5 «,£ R , 

Bisher wurde die Anwendung der Rechenroutinen und 
Funktionen in reinen Assemblerprogrammen demonstriert. 
Eine Hauptanwendung der Maschinenprogrammierung ist 
jedoch oftmals der Ersatz zeitkritischer Basic-Programmteile 
durch Assemblerroutinen. Bisher wissen wir jedoch noch 
nicht, wie von Basic aus Parameter an ein Maschinenpro¬ 
gramm übergeben werden können. 



Eine Methode zur Übergabe dürfte jedem von Ihnen 
bekannt sein: Der Befehl POKE. Mit POKE können wir belie¬ 
bige Integerzahlen übergeben. Am einfachsten ist die Über¬ 
gabe einer Ein-Byte-Integerzahl, zum Beispiel durch POKE 
250,10. Um mit diesem Befehl einen Zwei-Byte-Wert zu über¬ 
geben, kann dieser in ein Low- und ein High-Byte aufgesplit¬ 
tet werden: 

100 rem »Unterprogramm zur parameteruebergabe* 

110 rem parameter wird in 'wert' uebergeben 

120 hb=int(wert/256) : rem high-byte 

130 lb=wert-hb#256 : rem low-byte 

140 poke 250,lb:poke 251,hb : rem uebergabe 

150 return 

Dieses Unterprogramm kann vom Hauptprogramm jeder¬ 
zeit mit »GOSUB 120« aufgerufen werden, wenn der zu über¬ 
gebende Parameter zuvor der Variablen »wert« zugewiesen 
wurde. 

Beispiel: 

10 wert=1000 : gosub 120 

Dieser Aufruf teilt die Zahl 1000 in das High-Byte drei und 
das Low-Byte 232. Das Low-Byte wird in Speicherstelle 250 
und das High-Byte in 251 übergeben. Der Maschinenroutine 
wird der Zwei-Byte-Wert in der gewohnten Form Low-Byte/ 
High-Byte übergeben. 

Das Schlüsselloch 


Diese Routine sollten Sie jedoch schnellstens wieder ver¬ 
gessen. Die vorgestellte Methode hat gleich mehrere Nach¬ 
teile. Zum einen ist es schlichtweg unsinnig, zur Übergabe 
eines Parameters an eine Maschinenroutine, die einen zeit¬ 
kritischen Programmteil beschleunigen soll, ein aufwendiges 
BasL Unterprogramm zu verwenden. Die Rechnungen und 
der Unterprogrammaufruf benötigen soviel Zeit, daß der Zeit¬ 
vorteil der Maschinenroutine wahrscheinlich zumindest teil¬ 
weise dadurch wieder zunichte gemacht wird, wie im folgen¬ 
den Beispiel: 

10 for 1=1 to 1000 

20 wert=i : wertzuweisung 

30 gosub 120 : uebergabe des wertes 

40 sys 49152 : aufruf der maschinenroutine 

40 next 

In diesem Programm werden einer Maschinenroutine 
nacheinander die Werte eins bis 1000 in einer Schleife über¬ 
geben. Das heißt, daß der Basic-Interpreter lOOOmal das 
komplette Basic-Unterprogramm durchlaufen muß! 

Der zweite Nachteil unserer Übergaberoutine ist noch 
schwerwiegender. Mit der vorgestellten Routine ist es völlig 
unmöglich, Fließkommazahlen an ein Maschinenprogramm 
zu übergeben. (Außer, Sie haben vor, eine Basic- 
Übergaberoutine zu schreiben, die eine beliebige Zahl ins 
Fließkommaformat wandelt und mit POKEs übergibt. Vom 
Zeitaufwand her gesehen ist es dann jedoch wirklich ange¬ 
brachter, die Berechnungen in »reinem« Basic durchzufüh¬ 
ren. Selbst aufwendige Rechnungen können nur schwerlich 
langsamer als ein solches Konvertierungsprogramm sein.) 
Die USR-Funktion 

Basic besitzt eine Schnittstelle zu Maschinenprogrammen, 
die hervorragend zur Zahlenübergabe, insbesondere zur 
Übergabe reeller Zahlen (also nicht nur Integerzahlen), 
geeignet ist, die Funktion USR(X). Dieser Befehl, der im 
Handbuch des C 64 nur unzureichend erläutert ist, legt eine 
beliebige Zahl X im Fließkommaformat im FAC ab. 

Vor der Verwendung der Funktion USR muß der soge¬ 
nannte USR-Vektor »verbogen« werden. Dieser Vektor 
besteht aus zwei Speicherstellen (785/786 beim C64), in 
die in der bekannten Form Low-Byte/High-Byte die Start¬ 
adresse der Maschinenroutine gePOKEt wird. 


ÜJ'üj* 
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Die Anwendung der Funktion USR demonstriert das Pro¬ 
gramm »USR-Vektor« (Listing 8). Das Programm besteht aus 
zwei Teilen. Teil 1 beginnt ab Adresse $C000 (dezimal 
49152), Teil 2 ab Adresse $C100 (dezimal 49408). Der 
erste Programmteil hat die Aufgabe, die Wurzel einer beliebi¬ 
gen mit USR übergebenen Zahl zu berechnen. 

Vor dem Aufruf dieses Programmteils muß der USR-Vektor 
auf die Startadresse $C000 gerichtet werden. In Speicher¬ 
stelle 785 wird das Low- und in 786 das High-Byte der Start¬ 
adresse gepokt. Low- und High-Byte des dezimalen Wertes 
49152 können in Basic mit Hilfe der beschriebenen Routine 
(Zeile 120-130) ermittelt werden. In unserem Fall ergibt sich 
als Low-Byte der Wert null und als High-Byte die 192. Der 
USR-Vektor wird daher mit folgenden Befehlen auf den 
ersten Programmteil gerichtet: 

POKE 785,0:POKE 786,192 

Geben Sie diese Befehle nach dem Assemblieren des Pro¬ 
gramms bitte im Direktmodus ein. Um die Wurzel von 20 zu 
berechnen, geben Sie anschließend ebenfalls im Direkt¬ 
modus ein: 

PRINT USR(20) 

Auf dem Bildschirm wird als Ergebnis die Zahl 4,47213595 
ausgegeben. Nach dem Aufruf der Funktion USR wurde der 
übergebene Parameter 20 ins Fließkommaformat gewandelt 
im FAC abgelegt. Anschließend erfolgte ein indirekter Sprung 
über den USR-Vektor (JMP(785)), der auf unseren ersten 
Programmteil zeigt. Dieser indirekte Sprung kann mit einem 
»SYS 49152« verglichen werden, das heißt unsere Routine 
wurde gestartet. 

Das Ei des Kolumbus 


Die Routine ruft die SQR-Funktion auf. Das Argument X ist 
bereits im FAC vorhanden. SQR berechnet die Wurzel von X 
und legt sie ebenfalls im Fließkommaformat wieder im FAC ab. 
Da das Ergebnis im zweiten Programmteil benötigt wird, 
kopiert die Routine FACPUF den Inhalt des FAC in den Puffer 
am Programmende, bevor die Rückkehr nach Basic mit RTS 
erfolgt. Der Basic-Befehl PRINT führt nun zur Ausgabe der im 
FAC enthaltenen Fließkommazahl, das heißt der Wurzel von 
20 . 

USR übergibt somit eine Zahl nach Wandlung ins Fließkom¬ 
maformat im FAC an ein Maschinenprogramm, das anschlie¬ 
ßend über den USR-Vektor aufgerufen wird und das Ergebnis 
von Rechenoperationen ebenfalls im FAC an Basic zurück¬ 
übergibt. 

Das im FAC übergebene Ergebnis kann von Basic beliebig 
weiterverarbeitet, zum Beispiel einer Variablen zugewiesen 
werden: 

A=USR(1000):PRINT A 

Die Eingabe dieser Befehle im Direktmodus führt zur Aus¬ 
gabe von 31,6227766. Das Ergebnis der Rechenoperatio¬ 
nen wurde der Variablen A zugewiesen. 

Bevor wir uns dem zweiten Programmteil zuwenden, 
geben Sie bitte noch ein letztes Mal ein: 

PRINT USR(20) 

damit unser erster Programmteil die Wurzel von 20 in den 
Puffer kopiert. Der zweite Programmteil soll eine ebenfalls mit 
USR zu übergebende Zahl mit dieser Wurzel multiplizieren. 

Da sich Teil 2 ab Adresse SCI 00 im Speicher befindet, muß 
der USR-Vektor auf diese neue Startadresse gerichtet 
werden: 

POKE 785,0:POKE 786,193 

Geben Sie ebenfalls im Direktmodus ein: 

PRINT USR(5.3) 

Als Ausgabe erhalten wir 23,7023206, was exakt der Mul¬ 
tiplikation von 5,3 mit der zuvor errechneten Wurzel von 20 
entspricht. Dem zweiten Programmteil wurde nach dem Auf¬ 


ruf mit USR die Zahl 5,3 im FAC übergeben. Diese Zahl wird 
durch FACARG nach ARG kopiert, bevor der Inhalt des Puf¬ 
fers, die von Teil 1 berechnete Wurzel von 20, nach FAC 
kopiert wird. Der Aufruf von MULT führt zur Multiplikation von 
FAC mit ARG und Ablage des Ergebnisses im FAC. Dieses 
Ergebnis wird mit dem PRINT-Befehl ausgegeben. 

USR mit mehreren Parametern 


Nachdem die prinzipielle Funktionsweise des Befehls USR 
nun deutlich wurde, stelle ich eine von vielen denkbaren 
Methoden vor, beliebig viele Parameter mit USR an ein 
Maschinenprogramm zu übergeben. 

Das Programm »USR-Vektor.2« (Listing 9) verwendet fol¬ 
gende Methode: Das aufrufende Basic-Programm übergibt 
mit POKE in Speicherzelle 250 die Anzahl der Übergabe¬ 
parameter. Das Maschinenprogramm kopiert nach jedem 
Aufruf mit USR die im FAC übergebene Fließkommazahl in 
den Puffer am Programmende. Um ein Überschreiben zu ver¬ 
meiden, muß jede weitere Fließkommazahl fünf Byte hinter 
der zuletzt kopierten in den Puffer geschrieben werden. 

In diesem Fall ist die Programmierung einfacher als die 
eines sich selbst verändernden Programms. 

Jedesmal, wenn eine Fließkommazahl in den Puffer kopiert 
wurde, wird der Befehl STA PUFFER,X verändert. Die 
Adresse PUFFER wird um den Wert fünf inkrementiert, so 
daß sie unmittelbar hinter die zuletzt abgespeicherten Daten 
zeigt. Bei jeder Parameterübernahme wird die Speicherzelle 
250dekrementiert. Der Wert null zeigt an, daß alle zu überge¬ 
benden Parameter in den Puffer kopiert wurden und der Pro¬ 
grammteil »Rechnen« wird angesprungen, der die Aufgabe 
besitzt, alle übernommenen Zahlen zu addieren. 

»Rboiinen« verwendet ebenfalls diese Programmiertech¬ 
nik. Der Inhalt von FAC (die letzte übergebene Zahl) wird mit 
FACARG nach ARG kopiert, der erste übergebene Parameter 
aus dem Puffer nach FAC kopiert und ADD angesprungen. 
Anschließend wird die Adresse im Befehl LDA PUFFER.X um 
fünf inkrementiert, so daß sie auf die nächste Fließkomma¬ 
zahl im Puffer weist. 

Bevor diese zur bisherigen Summe addiert wird, muß über¬ 
prüft werden, ob die Adresse im Befehl LDA PUFFER.X 
bereits soweit erhöht wurde, daß sie mit der Adresse im 
Befehl STA PUFFER.X identisch ist. Wenn ja, wurde die letzte 
übergebene Fließkommazahl bereits behandelt und die Auf¬ 
summierung wird durch die Rückkehr nach Basic beendet. Im 
FAC befindet sich nun die Summe aller übergebenen Zahlen. 

Wenn Sie dieses Programm assembliert haben, geben Sie 
bitte folgendes Programm ein: 

100 poke 785,0:poke 786,192 
:rem usr-vektor auf routlne 

110 an=100:rem anzahl aufzusummierender elemente 
120 poke 250,an:rem anzahl ln 250 uebergeben 
130 for i=l to an:s=usr(i):next:rem parameter 
140 print s:rem ergebnis der Summierung 

Erklärungsbedürftig in diesem Programm ist die Zeile 130. 
In der Schleife werden der Maschinenroutine der Reihe nach 
die Zahlen eins bis 100 übergeben. Nach jedem Aufruf mit 
USR(I) wird der gerade übergebene Wert der Variablen S 
zugewiesen. Nach der letzten Übergabe und der darauf fol¬ 
genden Ausführung des Programmteils »Rechnen« befindet 
sich im FAC die Summe, die nun mit S=USR(I) der Variablen 
S zugewiesen wird. Der Befehl PRINT S führt zur Ausgabe 
der Summe 5050, die mit den Basic-Befehlen: 
for 1=1 to 100:x=x+i:next:print x 
überprüft werden kann. Ich hoffe, »Puritaner« mögen mir die 
verwendete Programmiertechnik verzeihen. Dieses Pro¬ 
gramm kann selbstverständlich auch unter Verwendung der 
indirekt indizierten Adressierung geschrieben werden »LDA 
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(POINTER),Y«. Was demonstriert werden sollte: daß mit dem 
USR-Befehl prinzipiell die Übergabe beliebig vieler reeller 
Zahlen an eine Maschinenroutine möglich ist (wobei die maxi¬ 
male Parameteranzahl bei vorliegendem Programm etwa 800 
beträgt, da ansonsten der Puffer durch Überschreitung der 
Adresse $CFFF »überläuft«). 

Welche Rechenoperationen Sie mit den übergebenen 
Parametern ausführen, ob Sie sie aufsummieren, multiplizie¬ 
ren oder statistische Berechnungen wie zum Beispiel die 
Berechnung von Mittelwert oder Streuung durchführen, 
bleibt völlig Ihnen überlassen. 

CHKKOM, GETBYT, FRMNUM, ADRFOR, GETADR 

Wie wir sahen, können mit USR problemlos »krumme« 
Werte an eine Maschinenroutine übergeben werden. Wir 
sahen ebenfalls, daß die Übergabe mehrerer Parameter 
erheblich aufwendiger ist. Der Basic-Interpreter stellt uns 
jedoch noch wertere Routinen zur Verfügung, mit denen eine 
unkomplizierte Übergabe beliebig vieler Parameter möglich 
ist. 

Es sind Routinen, die keine »offizielle« Schnittstelle wie die 
USR-Funktion darstellen, sondern die der Basic-Interpreter 
selbst bei der Abarbeitung eines Programms benötigt. Mit 
diesen Routinen ist es möglich, Parameter direkt aus dem 
Basic-Text zu lesen, die hinter einem SYS-Befehl aufgereiht 
übergeben werden, zum Beispiel mit SYS 49152,10,20,30. 

Zuerst müssen wir wissen, daß der Basic-Interpreter in den 
Speicherstellen 122/123 (C64) einen Pointerauf den Basic- 
Text verwaltet, der auf das aktuelle Zeichen weist. Nach Abar¬ 
beitung des SYS-Befehls, mit dem unsere Routine aufgeru¬ 
fen wird, weist dieser Pointer auf das der Adresse (49152) 
folgende Komma. Da hinter dem Komma der erste Übergabe¬ 
parameter folgt, benötigen wir eine Routine, die es ermög¬ 
licht, das Komma einzulesen und den Textpointer auf den 
ersten Parameter zu setzen. 

Zum Einlesen eines Kommas wird die Routine CHKKOM 
($AEFD) verwendet. Durch Aufruf von CHKKOM wird das 
aktuelle Zeichen eingelesen, auf das der Textpointer zeigt 
und überprüft, ob es sich bei diesem Zeichen um ein Komma 
handelt. Fällt der Test negativ aus, wird ein »Syntax error« aus¬ 
gegeben. War das eingelesene Zeichen tatsächlich ein 
Komma, wird der Textpointer inkrementiert - und weist somit 
auf das nächste einzulesende Zeichen -, bevor das Unter¬ 
programm CHKKOM mit RTS beendet wird. 



Dank CHKKOM können wir mehrere Parameter durch ein 
definiertes Zeichen voneinander unterscheiden und über¬ 
prüfen, ob der Benutzer unserer Routine die verschiedenen 
Parameter korrekt mit Kommatas getrennt hat. Das Einlesen 
und die Überprüfung des Trennzeichens nützt uns jedoch 
wenig, solange wir nicht an die eigentlichen Parameter heran¬ 
kommen. 

Die einfachste Routine zum Einlesen eines Parameters 
nennt sich GETBYT ($B79E). Vor dem Aufruf von GETBYT 
muß der Textpointer auf das erste Zeichen des Parameters 
weisen. Da der Aufruf von CHKKOM den Textpointer inkre¬ 
mentiert und dieser damit auf das erste Zeichen hinter (!) dem 
Komma weist, ist diese Bedingung erfüllt. Eine zweite Bedin¬ 
gung besteht darin, daß der übergebene Parameter ein Ein- 
Byte-Wert sein muß, entweder eine Ein-Byte-Zahl (null bis 
255) oder aber eine Variable, der ein Ein-Byte-Wert zugewie¬ 
sen wurde (10 a=200:sys 49152,a), da sonst ein »syntax 
error« ausgegeben wird. Nach dem Einlesen des Parameters 
weist der Textpointer übrigens ebenso wie bei den noch zu 
besprechenden Routinen FRMNUM und GETPOS hinter das 
letzte Zeichen der Zahl beziehungsweise Variablen, bei der 
Übergabe mehrerer durch Kommatas getrennter Variablen 
somit auf das nächste Komma. 

SYS mit mehreren Parametern 


GETBYT übergibt den eingelesenen Parameter im X- 
Register. Mit CHKKOM und GETBYT können beliebig viele 
Ein-Byte-Werte übergeben werden, wie das folgende Bei¬ 
spiel zeigt: 

jsr CHKKOM ;komma lesen 

jsr GETBYT ;1. parameter in x einiesen 

stx'! > '"'FER ;1. parameter nach puffer 


jsr CHKKOM ;komma lesen 

jsr GETBYT ;2. parameter in x einiesen 

stx puffer+1 ;2. parameter nach puffer+1 

jsr CHKKOM ;komma lesen 

jsr GETBYT ;3. parameter in x einiesen 

stx puffer+2 ;3 • parameter nach puffer+2 

Diese Routine liest drei einem SYS-Befehl folgende und 
durch Kommata getrennte Ein-Byte-Werte ein, die in Puffer, 
Puffer+1 und Puffer+2 abgelegt werden. Die Parameter 
können sowohl direkt angegebene Zahlen als auch Variablen 
sein, deren Inhalt GETBYT ermittelt: 

1. sys 49152,10,20,30 

2. a=10:b=20:c=30:sys 49152,a,b,c 

3. b=20:sys 49152,10,b,30 

Die Routine FRMNUM ($AD8A) ähnelt der USR-Funktion. 
FRMNUM liest einen beliebigen numerischen Ausdruck und 
wertet ihn aus. Das Ergebnis wird im Fließkommaformat im 
FAC hinterlegt. Außer als Ersatz der USR-Funktion kann 
FRMNUM in Verbindung mit der Routine ADRFOR ($B7F7) 
zur einfachen Übergabe von Zwei-Byte-Integerwerten ver¬ 
wendet werden. ADRFOR wandelt die Fließkommazahl im 
FAC in eine Zwei-Byte-Integerzahl, die im Akku und Y- 
Register übergeben wird (Y=Low-Byte/Akku=High-Byte). 

Mit CHKKOM, GETBYT, FRMNUM und ADRFOR können 
nach einem SYS-Befehl Ein- oder Zwei-Byte-Werte und auch 
reelle Zahlen übergeben werden. Das Einlesen eines Zwei- 
Byte-Wertes erfordert den Aufruf von CHKKOM, FRMNUM 
und ADRFOR: 


Jsr CHKKOM 
jsr FRNUM 
Jsr ADRFOR 

Aufruf zum Beispiel mit: sys 49152,1000 
Leider nur für den CI28 bekannt ist mir die Adresse der 
Routine GETADR ($880F), die diese drei Routinen nachein¬ 
ander aufruft. Beim C128 können Sie sich somit zum Einle- 
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sen einer Zwei-Byte-Zahl in Akku und Y-Registerauf den Auf¬ 
ruf von GETADR beschränken. 

Eine weitere interessante Routine ist ADRBYT ($B7EB). 
Diese Routine ruft nacheinander FRMNUM, ADRFOR, 
CHKKOM und GETBYT auf, liest also zuerst einen Zwei- 
Byte-Wert, danach das Komma und anschließend einen Ein- 
Byte-Wert ein, was zum Beispiel für Grafikroutinen interes¬ 
sant sein kann (X-Richtung: 0..319; Y-Richtung: 0..199). Da 
Sie sich nun sicherlich fragen, ob der ADRFOR folgenden 
Aufruf von CHKKOM nicht mit den im Akku und Y-Register 
übergebenen Zwei-Byte-Wert überschreibt: der Wert wird 
tatsächlich überschrieben. ADRFOR übergibt den Parameter 
jedoch nicht nur in den beiden Prozessor-Registern, sondern 
legt ihn zusätzlich noch in den Speicherstellen $14/$15 ab. 

Formeln sind erlaubt 


Das Programm »Parameter lesen« (Listing 10) demonstriert 
die Anwendung der beschriebenen Routinen. Geben Sie 
bitte nach der Assemblierung folgendes Basic-Programm 
ein: 

100 SYS 49152,10, 2000, 5000,60,2*3-4 

Der Reihe nach werden folgende Zahlen ausgegeben 
werden: 

10 

2000 

60 

5000 

6,8 

Nachdem mit CHKKOM das erste Komma gelesen wurde, 
wird mit GETBYT die Zahl zehn ins X-Register gelesen. Da der 
Akku keinen definierten Wert besitzt, wird er mit null geladen, 
bevor die übergebene Zahl mit INTOUT ausgegeben wird. 
Erinnern Sie sich daran, daß INTOUT eine Zwei-Byte- 
Integerzahl ausgibt (X=Low-Byte/Akku=High-Byte). 

Das nächste Komma wird eingelesen und danach mit 
FRMNUM und ADRFOR die Zwei-Byte-Zahl 2000. Da ADR¬ 
FOR das Low-Byte im Y-Register und das High-Byte im Akku 
übergibt, die Routine INTOUT das Low-Byte jedoch im X- 
Register erwartet, wird der Inhalt von Y ins X-Register kopiert. 

Mit CHKKOM und ADRBYT werden in einem Zug die Zahl 
5000 und die Zahl 60 gelesen, die sich nach ADRBYT im X- 
Register befindet und mit INTOUT ausgegeben wird (zuvor 
wird wieder das High-Byte gelöscht, das heißt der Akku mit 
null geladen). 

Auf die zuerst eingelesene Zahl 5000 kann wie erläutert 
über die Speicherstellen $14/$15 zugegriffen werden. Nach¬ 
dem sowohl X-Register als auch Akku mit den entsprechen¬ 
den Inhalten geladen wurden, wird INTOUT aufgerufen. 

Der letzte Programmteil zeigt, daß mit FRMNUM beliebige 
numerische Ausdrücke sehr einfach im Fließkommaformat an 
den FAC übergeben werden können. Meiner Ansicht nach ist 
FRMNUM der Funktion USR vorzuziehen, da es nicht in 
jedem Fall erwünscht ist, daß nach dem Aufruf von USR 
unweigerlich ein Sprung über den USR-Vektor erfolgt. 

Sie besitzen nun alle Mittel, die Sie benötigen, um beliebige 
Parameter von Basic an eine Maschinenroutine zu überge¬ 
ben, oder? 

Variablen suchen 


Nun, eine wesentliche Möglichkeit der Parameterübergabe 
wurde bisher übergangen: die Übergabe der Strings! Wir 
können zwar beliebige numerische Werte übergeben, besit¬ 
zen jedoch vorläufig keine Ahnung, wie ein Maschinenpro¬ 
gramm auch auf Strings zugreifen kann. 


Der Zugriff auf Strings ist eigentlich in einem Artikel über 
Arithmetikroutinen fehl am Platz. Ich erwähne ihn dennoch, 
weil wir im folgenden die flexibelste Routine zur Parameter¬ 
übergabe besprechen werden und diese sich sowohl auf 
numerische Variablen als auch auf Strings bezieht. 
GETPOS 

GETPOS ($B08B) ist eine der wichtigsten Routinen des 
Basic-Interpreters. Assemblerunterprogramme für ein Basic- 
Programm zu schreiben, wird erst mit GETPOS wirklich kom¬ 
fortabel. 

Der Routine GETPOS wird ein beliebiger (!) Variablenname 
übergeben. Diese Routine sucht die zugehörige Variable und 
übergibt im Akku und Y-Register einen Zeiger auf die Variable. 
Im Akku befindet sich das Low- und im Y-Register das High- 
Byte dieses Zeigers. 

Um GETPOS verwenden zu können, müssen Sie jedoch 
wissen, wie der Basic-Interpreter Variablen ablegt: 

1. Integer: (Name)(Name)(High)(Low)(.)(.)(.)(Name... 

2. Real: (Name)(Name)(5 Byte Fließkomma)(Name... 

3. String: (Name)(Name)(Länge)(Adr-Low) 
Adr-High)(.)(.)(Name...) 

Unabhängig vom Variablentyp werden bei nichtdimensio- 
nierten Variablen sieben Byte pro Eintrag in die sogenannte 
»Variablentabelle« verwendet. Die beiden ersten Bytes sind 
immer die ersten signifikanten Zeichen des jeweiligen Varia¬ 
blennamens. 

Bei Integervariablen folgt der Wert in der ungewohnten 
Form Low-Byte/High-Byte und die nächsten drei Byte sind 
ungenutzt. Bei Realvariablen besteht die Zahl selbst aus den 
Bytes drei bis sieben (Fließkommaformat). Für Strings enthält 
die Variablentabelle die sogenannten »Stringdescriptoren«, 
nicht den String selbst. Die Stringdescriptoren bestehen aus 
einem Byte für die Stringlänge und zwei Byte für die Adresse 
(im q: /ohnten Format Low/High), an der sich der String 
selbst befindet, das heißt einen Zeiger auf den String. Die bei¬ 
den nächsten Bytes sind ebenso wie bei Integervariablen 
ungenutzt. 

Dimensionierte Felder 


Folgende Änderungen müssen bei dimensionierten Varia¬ 
blen beachtet werden: Der Name der Arrayvariablen befindet 
sich nur einmal am Arrayanfang (zwei Byte). Die folgenden 
beiden Bytes geben den vom Array belegten Speicherplatz 
an, ein weiteres Byte die Arraydimension, und Byte sechs 
und sieben enthalten die Anzahl der Arrayelemente. Nach 
dieser Beschreibung folgen die einzelnen Elemente des 
Arrays, wobei jedoch speicherplatzsparender als bei nicht- 
dimensionierten Variablen vorgegangen wird: 

1. Integer: 

(Var1:Low)(Var1:High)(Var2:Low)(Var2:High)(Var... 

2. Real: (Varl: 5 Byte)(Var2: 5 Byte)(Var3: 5 Byte)(Var... 

3. String (Var1:Länge)(Var1:Adr-Low) 
(Var1:Adr-High)(Var2:Länge.. 

Wie Sie sehen, sind dimensionierte Arrays weit kompakter 
aufgebaut als nicht dimensionierte. Die Variablentabelle 
selbst befindet sich beim C16 und C64 unmittelbar hinter 
dem Ende des Basic-Programms, beim CI28 ab $0400 in 
Bank 1, der Variablenbank. 

Die Strings werden bei allen drei Computern ab dem Ende 
des RAM-Speichers abwärts angelegt (in Bank 1 beim 
C128). In diesem »String-Stack« liegen die Strings im ASCII- 
Förmat abgelegt unmittelbar hintereinander. Beim CI28 
existiert zusätzlich zu jedem String ein »Rückwärtszeiger«, 
der auf die zu diesem String gehörenden Descriptoren weist 
und die Garbage Collection erheblich beschleunigt: 
C16/C64: 

MaierMüllerWiedemann... 
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CI 28: 

Maier(Pointer)Müller(Pointer)Wiedemann(Pointer)... 

Der Aufruf von GETPOS liefert immer (!) im Akku und Y- 
Register einen Pointer (Zeiger) auf das erste Byte des De- 
scriptors der jeweiligen Variablen, unabhängig vom Variablen¬ 
typ und unabhängig davon, ob es sich um eine dimensio¬ 
nierte oder einfache Variable handelt. Der übergebene Poin¬ 
ter weist daher bei nichtdimensionierten Variablen auf das 
erste Byte des Variablennamens und bei dimensionierten 
Variablen auf das erste Byte der Variablen selbst, bezie¬ 
hungsweise bei dimensionierten Stringvariablen auf den Län- 
gendescriptor der Stringvariablen. 

Wenn GETPOS feststellt, daß noch keine Variable mit dem 
übergebenen Namen existiert, wird eine neue Variable unter 
diesem Namen angelegt. 

Für die Übergabe aus Basic können die verschiedensten 
Formate verwendet werden: 

1. SYS 49152,1% SYS 49152,l%(2) SYS 49152,l%(J) 

2. SYS 49152,R SYS 49152,R(2) SYS 49152,R(J) 

3. SYS 49152,S$ SYS 49152,S$(2) SYS 49152,S$(J) 
Die zugehörige Assemblerroutine (unabhängig vom Varia¬ 
blentyp!): 

JSR CHKKOM jKOMMA LESEN 

JSR GETPOS ; = > POINTER (AKKU=LOW/Y=HIGH) 

Mit diesen Kenntnissen können wir nun endlich unsere 
Arithmetikroutinen effektiv einsetzen. Im Demoprogramm 
»USR-Vektor.2« wurden Realzahlen aufsummiert, wobei jede 
Zahl mit einem USR-Aufruf an die Maschinenroutine überge¬ 
ben wurde. Diese Übergabe (Basic-Schleife!) ist jedoch 
langsam, daß das Basic-Programm »FOR i=1 to 100:1=1+1: 
NEXT« fast exakt gleich schnell ist, wie Sie jederzeit auspro¬ 
bieren können. 

Diese langwierige Übergabe entfällt jedoch völlig, wenn die 
betreffenden Zahlen in einem Array abgelegt werden und 
Basic dem Assemblerprogramm nur noch den Namen des 
Arrays mitteilen muß, das die Maschinenroutine nun selb¬ 
ständig bearbeiten kann. Um das Programm komfortabler zu 
gestalten, sehen wir die Möglichkeit vor, nur einen bestimm¬ 



ten Arrayteil aufzusummieren. Das Basic-Programm muß in 
diesem Fall zwei Parameter übergeben, die mit GETPOS 
gelesen werden: den Namen des ersten und den Namen des 
letzten Arrayelementes, das in die Summierung einbezogen 
werden soll, also die Intervallgrenzen. 

Sollen zum Beispiel die ersten hundert Elemente des 
Arrays A(..) summiert werden, lautet der Aufruf: 

SYS 49152,A(1),A(100) 

Das Programm »Summierung« (Listing 11) demonstriert die 
Geschwindigkeitsvorteile von Assembler ohne die »Bremse« 
der Basic-Übergabe. Zweimal hintereinander wird CHKKOM 
und GETPOS aufgerufen. Im ersten Fall wird durch GETPOS 
ein Pointer auf das erste zu behandelnde Arrayelement A(1) 
übergeben, der nach START/START+1 kopiert wird, im zwei¬ 
ten Durchgang wird der auf A(100) - die rechte Begrenzung 
- übergebene Zeiger nach ENDE/ENDE+1 kopiert. 

Das Unterprogramm INFAC verwendet den Zeiger START 
zum Aufruf von KONFAC, jener Routine, die eine Fließkomma¬ 
konstante nach ARG kopiert. Der erste Aufruf dieses Unter¬ 
programms kopiert das Element A(1) nach FAC. 

Igel und Hose 


ln der folgenden Hauptschleife wird FAC nach ARG kopiert 
und der Pointer START( + 1) um fünf erhöht. Der Pointer weist 
anschließend auf das erste Byte der Realzahl A(2). Es folgt 
ein Vergleich von START( + 1) mit ENDE(+1). Wenn 
START( + 1) größer ist als ENDE(+1), wurde die übergebene 
rechte Arraygrenze bereits überschritten, die Arbeit der Rou¬ 
tine ist beendet und die Summe, die sich im FAC befindet, 
wird mit FACSTR und STROUT ausgegeben. 

Da START(+1) momentan erst auf das Element A(2) weist, 
ist unsere Routine jedoch noch nicht fertig mit ihrer Aufgabe. 
A(2) wird mit INFAC in den FAC kopiert, FAC und ARG addiert 
(JSR ADD, das Ergebnis befindet sich anschließend in FAC) 
und zum Schleifenanfang gesprungen. 

Der Programmablauf ist damit klar. Interessant ist nun ein 
Zeitvergleich zwischen der Assembler- und einer äquivalen¬ 
ten Basic-Routine. Zuerst muß jedoch das Array initialisiert 
werden: 

100 DIM A(2000) 

110 FOR 1=1 T0 1000:A(I)=1/2:NEXT 
120 PRINT"INITIALISIERUNG BEENDET" 

130 TA=TI:SYS 49152,A(l),A(1000):TB=TI:PRINT:PRINT* 
ASS.:"(TB-TA)/60 

140 TA=TI:FOR 1=1 T0 1000:S=S+A(I):NEXT:TB=TI: 

PRINT S:PRINT"BASIC:*(TB-TA)/60 

Initialisiert wird ein Array mit 2000 Elementen, die ersten 
1000 Elemente werden mit den Zahlen: 0,5; 1; 1,5; 2;...; 500 
besetzt. In Zeile 130 wird die Assemblerroutine aufgerufen 
und die Zeit mit der internen Uhr TI gestoppt. Anschließend 
werden die Elemente A(1) bis A(1000) in Basic addiert und 
dabei ebenfalls die Zeit gemessen. 

Wenn ich ehrlich bin, muß ich zugeben, daß das Ergebnis 
mich selbst verblüfft hat. Die Fließkommaarithmetik ist eine 
extrem aufwendige Angelegenheit und ich war bisher der 
Ansicht, daß Assembler bei Verwendung der Fließkomma¬ 
routinen keine allzu großen Vorteile gegenüber Basic besitzt, 
da sich an der langsamen Arbeitsweise dieser Routinen 
natürlich nichts ändert, wenn sie statt von Basic von einer 
Maschinenroutine aus aufgerufen werden. Hier das ange¬ 
sichts dieser Tatsache erstaunliche Ergebnis: 

1000 Realzahlen addieren: 

Basic: 6,25 sec 

Assembler: 0,78 sec 

Trotz der »gemütlichen« Fließkommaarithmetik ist die 
Assemblerroutine somit immerhin um den Faktor acht schnel¬ 
ler als das vergleichbare Basic-Programm. Extreme 
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Ergänzen 

Sie jetzt Ihie OH ' Cl 


-Sammlung 


Schaffen Sie sich ein interessantes Nachschlagewerk und gleichzeitig ein 
wertvolles Archiv! 

Kennen Sie alle Ausgaben von 64’er? Suchen Sie einen ganz bestimmten Testbericht? Oder haben Sie einen Teil 
eines interessanten Kurses versäumt? Suchen Sie nach einer speziellen Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf diesen Seiten eine 
Zusammenstellung aller wesentlichen Artikel der Ausgaben 01 bis 12/85. 

Und so kommen Sie schnell an die noch lieferbaren Ausgaben: Prüfen Sie, welche Ausgabe in Ihrer Sammlung 
noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer dieser Ausgabe und das Erscheinungs¬ 
jahr (z.E 2/85) auf dem Bestellabschnitt der hier eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte ein¬ 
fach heraustrennen und Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs¬ 
eingang umgehend zur Auslieferung gebracht. 
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07/85 


roithw-iiu mit MAT-rorth 64 

126 

07/05 


Was leistet Wo«? 

121 

09/86 


Paical für Profi. (Profi Pascal) 

122 

C9/BQ 


Super Torth C4 

144 

09/85 


C - die profeMlonello Piogrammlerapracho für 
den C 64 

140 

00/BB 


Basic 7.0 - Daa Superbanc des C KB 

16 

10/85 



161 

10/05 


Tutbo-Pascal auf dom C 128 

30 

11/86 


Die Ausgaben 
2/85 und 4/85 
sind bereits vergriffen 
und nicht mehr lieferbar! 



Ein 

kompletter 
Jahrgang 
(12 Ausgaben) 
paßt in eine aer praktischen 
Sammelboxen I 
Am besten gleich 
mitbesteilen! 


Am besten gleich 
mitbestellen: 

Die praktischen 
64'er-Sammelboxen 


Für alle Leser, die »64’er« regel¬ 
mäßig kaufen, sammeln oder im 
Abonnement beziehen, gibt es 
jetzt ein interessantes Ser¬ 
vice-Angebot: die 64’er-Sam- 
melbox! 

Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf¬ 
fen sich gleichzeitig ein interes¬ 
santes und attraktives Nach¬ 
schlagewerk. 

Übrigens: Die Sammelbox ist 
nicht nur ein praktisches Aufbe¬ 
wahrungsmittel: Sie eignet sich 
auch hervorragend als Ge¬ 
schenk für Freunde und Be¬ 
kannte zu vielen Anlässen. 


Auch die bisher 
erschienenen Sonderhefte 
können Sie 
jetzt direkt bestellen: 


SONDERHEFT 01/Mi TIN X T1ICKS 

Unentbehrliche Anwondungslistlngs Hir C 64 und 
VC 20. 

SONDERHEFT 02/85: ABENIEUERSPIEU I 

Fesselnde Adventures mil sahireichen Lösungen und 
einem Programmierkurs 

SONDERHEFT 03/(5: SRIEIE 

Hoißo Listings Hir Spiclc-Fans und eine große 
MarktUbersicht. 


SONDERHEFT 04/15: GRAFIK C DRUCKER 

Von der 3D-Darslollung bis sur Hardcopy-Routine. 

SONDERHEFT 05/13: FLOm/DATASETTf 

Soft-Tbols sum komlortablen und noch schnelleren 
Betrieb von Floppy und Datasetle. 

SONDERHEFT Oi/IS: AUSOEWftNin SUKR-USIINGS 

Tbp-Themen aus 64'er bringt eine Auswahl der besten 
64'er Programme. 

SONDERHEFT 07/15: ANWENDUNOEN/DFÜ 

Leistungslähige Programme für professionelle 
Anwendungen und Datenfernübertragung. 

SONDERHEFT 08/16: «SSEMBIER 

Assembler-Know-how für Anfänger und Fortgeschrit¬ 
tene. 


SONDERHEFT 01/86: K 128 

Komplette Beschreibungen von C 128 und C128D 
und passendem Zubehör. Die Unterschiede zum C 64. 


SONDEBNIFT 02/S4: TIPS A TUCKS 

Super-Ustings, ausführliche Grundlagen und die 
besten Tips&Tricks und Emzeileraus 64'er. 

SONDERHEFT 03/86: CU, CIU, VC20 UND PIUS 4 

Umfassende Grundlagen und aktueBe Informationen 
zu C16, C1I6, VC20 und Plus 4. _ 

SONDERHEFT 04/86: ABENTEUERSPtllt 2 

Auf 160 Seiten alles über das Programmieren von 
Abenteuerspielen und Super-Listings zum Abtippen. 

SONDERHEFT 03/86: (««-GRUNDWISSEN 

Für alle Einsteiger umfassende Grundlagen und Hilfe¬ 
stellungen rund um den C64. 

SONDERHEFT 06/86: GRAFIK 

Gralikprogrammiemng dos C64, CI28 und CI2B im 
C64-Modus. Dreidimensional konstruieren mit 
•Giga-CADn. 


Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.B. 04/8S) auf dem Bestellab¬ 
schnitt der hier eingehefteten Bestell-Zahlkar- 
te ein. 


'>4et-onllnc.rto 

M«c-onfine.n*E 































































GRUNDLAGEN 


C 64/016/CI 28 


Geschwindigkeitsfreaks können die Routine noch leicht 
beschleunigen, indem sie den aufwendigen 16-Bit-Vergleich 
von START(+1) und ENDE( + 1) durch einen Zähler ersetzen, 
der mit der Anzahl der zu summierenden Elemente initialisiert 
und bei jedem Schleifendurchgang dekrementiert wird. Ein 
paar weitere Millisekunden pro Schleifendurchgang können 
eingespart werden, indem JSR KONFAC:RTS durch JMP 
KONFAC ersetzt wird. 

Da es mich reizte, das Programm »Summierung« noch ein 
wenig auszubauen, stelle ich als »krönenden Abschluß« die¬ 
ses Artikels das Programm »Statistik« (Listing 12) vor, das die 
»Varianz« für ein Array innerhalb eines beliebigen Intervalls 
berechnet. 

Für Statistiklaien: Die Varianz ist ein »Streuungsmaß« und 
gibt Auskunft über die Unterschiedlichkeit der Werte einer 


Stichprobe. Je höher die Werte, desto weniger einheitlich 
sind die Stichprobendaten. 

Varianz = ( £ (xi)2) - ( £ (xi)2)/N/N-1 

i=i i-i 

Zwei Summen müssen berechnet werden: S1, die Summe 
aller quadrierten Werte und S2, die Summe aller Werte. 
Danach wird S2 durch N (N=Anzahl der Werte) geteilt und 
das Ergebnis von S1 subtrahiert. Das Resultat wird anschlie¬ 
ßend durch N-1 geteilt. 

Nachfolgend ein Basic-Programm, das ein Array mit 1000 
Elementen initialisiert, die Varianz sowohl mit der Assembler¬ 
routine als auch in Basic berechnet und die benötigten Zeiten 
ausgibt: 

100 DIM A(1000):LG=1:RG=1000:FOR I=LG TO RG:A(I)= 


Name 

Funktion 

Vorbereitung 

Ergebnis 

C64 

C16 

C128 

EINPOS 

P0S.1-INT.=>FUESSK. 

ÜBERGABE IN Y 

RESULT IM FAC 

SB3A2 

S9A81 


E1NNEG 

Neg.1-Int.= > FL1ESSK. 

ÜBERGABE IM AKKU 

RESULT IM FAC 

SBCK 

SA2C1 


ZWEPOS 

Pos.2-M.=>FUESSK. 

MANT.1/2:H/UX:S90;SEC 

RESULT IM FAC 

SBC49 

$A2CE 

$8C75 

ZWENEG 

Neg.2M=>FUESSK. 

MANT,1/2;H/L;X:$90;CLC 

RESULT IM FAC 

SBC44 

SA2C9 

S8C70 

FUINT 

FUESSK. NACH INT. 

FUESSKOMMAZAHL IM FAC 

RES.IN MANTISSE 

SBC9B 

SA327 

S8CC7 

FACSTR 

FAC IN STRING 

FUESSKOMMAZAHL IM FAC 

STRING+POINTER 

S8DDD 

SA46F 

$8E42 

STROUT 

STRING AUSGEBEN 

NACH FACSTR VORHANDEN 

AUSGABE 

SAB1E 

$9088 ■ 

S55E2 

INTOUT 

AUSGABE 2BYTE-INT. 

X=LOW-BYTE/A=HIGH-BYTE 

AUSGABE 

5BDCD 

$A45F 

S8E32 

ADD 

FAC=ARG+FAC 

FAC-EXPONENT IM AKKU 

RESULT IM FAC 

SB86A 

$9E9E 

$8848 

SUB 

FAC=ARG-FAC 

FAC-EXPONENT IM AKKU 

RESULT IM FAC 

SBB53 

$9E87 

$8831 

MULT 

FAC=ARG'FAC 

FAC-EXPONENT IM AKKU 

RESULT IM FAC 

SBA2B 

$A07B 

S8A27 

DIV 

FAC=ARG/FAC 

FAC-EXPONENT IM AKKU 

RESULT IM FAC 

SBB12 

$A197 

S8B4C 

EXP 

FAC=ARGFAC 

FAC-EXPONENT IM AKKU 

RESULT IM FAC 

SBF7B 

SA5EE 


FAC* 10 

FAC=FAC* 10 

FAC-EXPONENT IM AKKU 

RESULT IM FAC 

SBAE2 

$A162 

$8817 

FAC/IO 

FAC=FAC/10 

FAC-EXPONENT IM AKKU 

RESULT IM FAC 

SBAFE 

$A183 

$8838 

StN(X) 

SINUS-FUNKTION 

ARGUMENT X IM FAC 

RESULT IM FAC 

5E26B 

$AA77 


COS(X) 

COSINUS-FUNKTION 

ARGUMENT X IM FAC 

RESULT IM FAC 

SE264 

$AA70 


SOR(X) 

WURZEL-FUNKTION 

ARGUMENT X IM FAC 

RESULT IM FAC 

SBF71 

$A5E4 


LOG(X) 

LOG.-FKT. (BASIS E) 

ARGUMENT X IM FAC 

RESULT IM FAC 

SB9EA 

$A01E 


EXP(X) 

EXPONENTIALFUNKTION 

ARGUMENT X IM FAC 

RESULT IM FAC 

SBFED 

$A660 


FACARG 

FAC NACH ARG 

FUESSKOMMAZ IM FAC 

FAC NACH ARG 

SBCOC 

$A291 


ARGFAC 

ARG NACH FAC 

FUESSKOMMAZA. IM ARG 

ARG NACH FAC 

SB8FC 



FACKON 

FAC NACH ADRESSE 

POINTER (X=L/Y=H) 

FAC NACH ADR 

SBBD4 

$A24C 


KONFAC 

KONSTANTE NACH FAC 

POINTER (AKKU=L f Y=H| 

KONST. IM FAC 

SBBA2 

$A21F 


KONADD 

FAC=KONSTANTE+FAC 

POINTER (AKKU=UY=H| 

RESULT IM FAC 

SB867 

S9E9B 


KONMUL 

FAC=KONSTANTE • FAC 

POINTER (AKKU=L/Y“H) 

RESULT IM FAC 

SBA28 

$A078 


CHKKOM 

KOMMA LESEN 

KEINE 

KEINE 

SAEFD 

$9491 

S795C 

GETBYT 

1BYTE-INTEGER LESEN 

KEINE 

X=BYTE 

SB79E 

$9D84 

S87F4 

FRMNUM 

NUM.AUSDRUCK AUSWERT. 

KEINE 

RESULT IM FAC 

SAD8A 

$9314 

$FFD7 

ADRFOR 

FLIESSK.NACH 2-INT. 

FLIESSKOMMA IM FAC 

Y=LOW/AKKU=HIGH 

SB7F7 

$9DE4 

$8815 

GETADR 

2BYTE-INTEGER LESEN 

KEINE 

Y=LOW/AKKU=HIGH 



$880F 

AORBYT 

2BYTE+1BYTELESEN 

KEINE 

$14/15 UND X 

SB7EB 

$9DD2 

$8803 

GETPOS 

POINTER AUF VARIABLE 

KEINE 

POINTER (AKKU/Y) 

SB088 

$96A5 

S7AAF 



Tabelle: Vergleichstabelle aller bekannten Funktionen und Adressen für C16, C64, C128 

ioo 
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C64/C16/C128 


GRUNDLAGEN 


I:NEXT:PRINT"START I" 

110 : 

120 TA=TI:SYS 49152,A(LG),A(RG),V 

130 PRINT"V='V:TB=TI:PRINT"ASS.:'(TB-TA)/60 

140 : 

150 TA=TI 

160 FOR I=LG TO RG 

170 S1=S1+A(I)#A(I):S2=S2+A(l) 

180 NEXT 

190 V=(S1-S2*S2/(RG-LG+1))/(RG-LG) 

200 TB=TI 

210 PRINT'BASIC:'(TB-TA)/60 
Die Assemblerroutine benötigt knapp drei Sekunden, die 
Basic-Routine knapp 16 Sekunden, um die Varianz für 1000 
Elemente zu berechnen. 

Mit den Kenntnissen, die Sie nun besitzen, und der nach¬ 
folgenden Erläuterung von zwei neuen im Programm verwen¬ 
deten Routinen sollten Sie in der Lage sein, das Programm zu 
durchschauen und vielleicht auch um die Berechnung weite¬ 
rer Kennwerte zu erweitern. 

Diese zusätzlich verwendeten Routinen vereinfachen vor 
allem den Umgang mit Konstanten und erlauben es, den FAC 
direkt mit einer Konstanten zu multiplizieren oder eine Kon¬ 
stante zum FAC zu addieren. Die Routinen erwarten Konstan¬ 
ten, die - ebenso wie Basic-Variablen - im gepackten Fünf- 
Byte-Format vorliegen (Vorzeichen in Mantisse2 integriert). 

Schauen Sie sich bitte in jedem Fall an, wie »Statistik« die 
errechnete Varianz an das Basic-Programm übergibt. Mit 
GETPOS wird ein Zeiger auf die im SYS-Befehl angegebene 
Variable V geholt und mit der neuen Routine FACKON der 
Inhalt des FAC in diese Basic-Variable kopiert. Komfortabler 
kann eine Ergebnisübergabe an Basic wohl kaum sein. 
KONMUL ($BA28) 

KONMUL multipliziert den FAC mit einer Konstanten, auf 
die in Akku und Y-Register ein Zeiger übergeben werden 
muß. 

KONADD ($B867) 

KONPLU addiert FAC und die Konstante, auf die ein eben¬ 
falls in Akku und Y-Register übergebener Zeiger weist. 

(Said Baloui/do) 



u 


OlOO 

|*»» ZAHLENAUSGABE *** 

0110 

1 

0120 

1 AUSGABE EINER FLIESSKOMMAZAHL 

0130 

jAUF DEM BILDSCHIRM. 

0140 

1 

0150 

11.FLIEBSKOMMAZAHL NACH FAC 

0160 

I2.AUFRUF VON FAC=»ASCII 

0170 

I3. AUFRUF VON ASCII=>SCREEN 

0100 

1 

0190FAC 

.DE «61 

0200K0NFAC 

.DE *BBA2 

0210FACSTR 

.DE *BDDD 

0220BTR0UT 

.DE *AB1E 

0230 

I 

0240 

.BA *COOO j PROGRAMMSTART 

0230 

.OS |CODE GENERIEREN 

0260 

1 

0270 

|«ZAHL NACH FAC UEBERTRAGEN* 

0280 

LDA #L,ZAHL 

0290 

LDY #H,ZAHL 

0300 

JSR KONFAC 

0310 

i 

0320 

(»ZAHL AUSGEBEN» 

0330 

JSR FACSTR 

0340 

JSR STROUT 

0350 

RTS 

0360 

1 

«370 

I»AUSZUGEBENDE ZAHL (PI)* 

0380ZAHL 

.BY *82 *49 *0F *DA »AI 

0390 

.EN 


// 

u 

Listing 1. Assemblerlisting für Zahlenausgabe 


u 


0100 

1»»* EIN-BYTE-INTEGER *** 

0110 

1 

012" 

(KONVERTIERUNG EINER EIN-BYTE- 

01 ju 

(INTEGER-ZAHL INS FL I ESSKOMM A- 

0140 

(FORMAT UND AU8GABEE AUF DEM 

0150 

[BILDSCHIRM 

0160 

1 

0170 

|1.INTEGERZAHL NACH FLIESSK. 

0180 

[2.AUFRUF VON FAC-»ASCII 

0190 

j3.AUFRUF VON ASCII=>SCREEN 

0200 

I 

021 OEINPOS 

.DE *B3A2 

0220EINNEG 

.DE *BC3C 

0230FAC8TR 

.DE «BDDD 

0240STR0UT 

.DE «AB1E 

0230 

1 

0260 

.BA *C000 |PROGRAMMSTART 

0270 

.OS (CODE GENERIEREN 

0280 

I 

0290 

[»POSITIVE INT-ZAHL WANDELN* 

0300 

LDY #*80 

0310 

JSR EINPOS 

0320 

1 

0330 

(»ZAHL AUSGEBEN* 

0340 

JSR FACSTR 

0330 

JSR STROUT 

0360 

1 

0370 

[ »NEGATIVE INT-ZAHL WANDELN* 

0380 

LDA #*80 

0390 

JSR EINNEG 

0400 

1 

0410 

(»ZAHL AUSGEBEN* 

0420 

JSR FACSTR 

0430 

J8R STROUT 

0440 

RTB 

0450 

1 

0460 

.EN 


// 

Listing 2. Assemblerlisting für Eln-Byte-Integer-Werte 


ü 


0100 

[*** ZWEI-BYTE-INTEGER »** 

0110 

I 

0120 

[KONVERTIERUNG EINER ZWEI-BYTE- 

0130 

(INTEGER-ZAHL INS FLIESSKOMMA- 
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GRUNDLAGEN 


C64/C16/C128 


IX 

n 

0013 

i 


0100 

1**« INTEGERAUSGABE 

*•« 

0110 

1 


0120 

1 DIREKTE AUSGABE EINER 

0130 

|POSITIVEN ZWEI-BYTE 

-ZAHL 

0140 

1 AUF DEM BILDSCHIRM 


0150 

1 


»160INT0UT 

.DE »BDCD 


0170 

1 


0180 

,BA »COOO 

|PROGRAMMSTART 

0190 

.OS 

I CODE GENERIEREN 

0200 

1 

0210 

|»AUSGABE VON »F02A 

<61482)» 

0220 

LDX #*2A 

iLOW-BYTEi *2A 

0230 

LDA lt»FO 

|HIGH-BYTEl *F0 

0240 

JSR INTOUT 

|AUSGABE 

0250 

RTS 


0260 

1 


0270 

// 

.EN 


Llstlng 5. Assemblerlisting für Integer-Ausgabe 


0140 

iFORMAT UND AU8GABEE AUF DEM 

0150 

| BILDSCHIRM 


0160 

» 


0170 

i1.INTEGERZAHL NACH 

FLIESSK. 

0180 

|2.AUFRUF VON FAC->ASCII 

0190 

i3.AUFRUF VON ASCII=>SCREEN 

0200 

1 


0210ZWEIP0S 

.DE *BC49 


0220ZWEINEG 

.DE *BC44 


0230FACSTR 

•DE *BDDD 


0240STROUT 

.DE »AB1E 


0250 

1 


0260 

•BA *C000 

I PROGRAMMSTART 

0270 

.OB 

|CODE GENERIEREN 

0280 

1 


0290 

|»POSITIVE INT-ZAHL 

WANDELN* 

0300 

LDA #*FF 

|ZAHLi *FFFF 

0310 

STA *62 

(HIGH-BYTE <*FF) 

0320 

STA *63 

I LOW-BYTE <*FF) 

0330 

LDX #*90 

(X-REG.i *90 

0340 

SEC 

1 CARRY SETZEN 

0350 

JSR ZWEIPOS 


0360 

1 


0370 

(»ZAHL AUSGEBEN* 


0380 

JSR FACSTR 

[»> AUSGABE VON 

0390 

JSR BTROUT 

| 65535 

0400 

1 


0410 

|»NEGATIVE INT-ZAHL 

WANDELN* 

0420 

LDA #*FF 

IZAHLi «FFFF 

0430 

STA *62 

(LOW-BYTE <*FF) 

0440 

STA *63 

(HIGH-BYTE <*FF) 

0450 

LDX #*90 

(X-REG.i *90 

0460 

CLC 

(CARRY LOESCHEN 

0470 

JSR ZWEINEG 


0480 

0490 

(»ZAHL AUSGEBEN* 


0500 

JSR FACSTR 

[»> AUB6ABE VON 

0510 

JSR STROUT 

I -1 

0520 

RTS 


0530 

1 


0540 

// 

U 

.EN 


Listing 3. Assemblerlisting für Zwel-Byte-Integer Werte 


U 

u 

0100 

(*** GRUNDRECHNEN *»* 

0110 

0120 

1 


0130ADD 

•DE SB86A 

(FAC-ARG+FAC 

0140SUB 

.DE »B853 

(FAC-ARG-FAC 

0150MULT 

.DE »BA2B 

[FAC=ARG*FAC 

0160DIV 

.DE *BB12 

(FAC-ARG/FAC 

0170FAC 

.DE *61 


0180ARG 

.DE «69 


0190EINP03 

.DE »B3A2 


0200ZWEPOS 

.DE »BC49 


0210FACARG 

.DE «BCOC 


02" 1 " TCBTR 

.DE «BDDD 


0230STRDUT 

.DE «AB1E 


O24OBS0UT 

.DE »FFD2 


0250 

1 


0260 

.BA *C000 

|PROGRAMMSTART 

0270 

.OB 

(CODE GENERIEREN 

0280 

1 


0290 

(*’/’! ANTEIL 

BERECHNEN* 

0300 

LDA #L.2000 

(2000,LOW 

0310 

STA *63 

(NACH *63 

0320 

LDA #H,2000 

(2000,HIGH 

0330 

STA *62 

[NACH *62 

0340 

LDX #*90 

[X INITIALIS. 

0350 

SEC 

\ 

0360 

JSR ZWEPDS 

(2000 -> FLIESSK. 

0370 

JSR FACARG 

[FAC -) ARG 

0380 

LDY #3 

[ANTEIL! 1/3 

0390 

JSR EINPOS 

(1/3 «> FLIESSK. 

0400 

0410 

JSR DIV 

|FAC»2000/3 

0420 

0430 

JSR AUSGABE 

(ERGEBNIS AUSGEBEN 

0440 

1 


0450 

(*’+’! 2.FLAECHE ADDIEREN* 

0460 

JSR FACARG 

(ERGEBNIS NACH ARG 

0470 

LDA »L.52B6 

|5286,LOW 

0480 

STA *63 

[NACH *63 

0490 

LDA #H,52B6 

|5286,HIGH 

0500 

STA *62 

(NACH *62 

0510 

LDX »»90 

[X INITIAL. 

0520 

SEC 


0530 

0540 

JSR ZWEPOS 

(5286«>FLIESSK. 

0550 

JSR ADD 

!FAC-666,66667+5286 

0560 

JSR AUSGABE 

[FAC-5952,66667 

0570 

1 


0580 

1 


0590 

(*’-’i 52 om Subtrahieren* 

0600 

JSR FACARG 

(FAC »> ARG 

0610 

LDY #52 

[52 NACH 

0620 

JSR EINPOS 

(FAC 

0630 

0640 

JSR SUB 

[FAC-5952,66667-52 

0650 

JSR AUSGABE 

[FAC-5900,66667 

0660 

1 


0670 

1 


0680 

!*’*'l DM-WERT 

BERECHNEN* 

0690 

JSR FACARG 

(FAC -> ARG 

0700 

LDY #228 

[220 NACH 

0710 

JSR EINPOS 

(FAC 


ü 

0013 

i 

0100 

(««* FLIESSKOMMA *** 

0110 

1 

0120 

[WANDLUNG EINER FLIESSKOMMAZAHL 

0130 

I INS INTEGERFORMAT UND 

0140 

(AUSGABE AUF DEM BILDSCHIRM 

0150 

1 

0160 

[1.FLIESSKOMMAZAHL NACH FAC 

0170 

|2.AUFRUF VON FLIESS->INTEGER 

0180 

[3.AUFRUF VON FAC-XSTRING 

0190 

[4.AUFRUF VON STRING“>SCREEN 

0200 

1 

0210KONFAC 

.DE tBBA2 

0220FLIINT 

.DE *BC9B 

0230EINPQ8 

.DE SB3A2 

0240FACSTR 

.DE «BDDD 

0230STR0UT 

.DE «AB1E 

0260 

| 

0270 

•BA «COOO [PROGRAMMSTART 

0280 

.OS (CODE GENERIEREN 

0290 

s 

0300 

|«ZAHL NACH FAC UEBERTRAGEN» 

0310 

LDA #L, ZAHL 

0320 

LDY #H,ZAHL 

0330 

JSR KONFAC 

0340 

1 

0350 

(«ZAHL NACH INTEGER WANDELN« 

0360 

JSR FL II NT 

0370 

1 

0380 

|»INTEGER NACH FLIESSK. WANDELN* 

0390 

LDY *65 [INT-ERGEBNIS LADEN 

0400 

JSR EINPOB [NACH FLIESSK.WANDELN 

0410 

1 

0420 


0430 

(»ZAHL AUSGEBEN* 

0440 

JSR FACSTR (FAC => STRING 

0450 

JSR STROUT (STRING -> SCREEN 

0460 

RTS 

0470 

| 

0480 

(»AUSZUGEBENDE ZAHL (PI)* 

O490ZAHL 

•BY *82 *49 *0F »DA »AI 

0500 

■ EN 

// 


Llstlng 4. Assemblerlisting für Fließkommaroutinen 
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GRUNDLAGEN 


0720 

i 


0730 

JSR MULT 

| FAC-5900,66667*228 

0740 

JSR AUSGABE 

lFAC-1343332 

0730 

RTB 


0760 

1 


0770 



0700 

| »ZAHL AUSGEBEN* 


0790AUSGABE 

JSR FACPUF 

|FAC RETTEN 

0000 

JSR FACSTR 

|FAC->STR1NG 

0010 

JSR STROUT 

1 STRING->SCREEN 

0020 

LDA *13 

1 ZEILENVORSCHUB 

0830 

JSR B60UT 

i AUSGEBEN 

0040 

JSR PUFFAC 

)FAC HOLEN 

0030 

RTS 


0060 

1 


0870 

|*FAC RETTEN* 


O00OFACPUF 

LDX *3 


0890L00P1 

LDA FAC.X 


0900 

STA PUFFER,X 


0910 

DEX 


0920 

BPL LD0P1 


0930 

RTB 


0940 

| 


0930 

|*FAC HOLEN* 


0960PUFFAC 

LDX *3 


0970LOOP2 

LDA PUFFER,X 


0900 

STA FAC.X 


0990 

DEX 


1000 

BPL L00P2 


1010 

RTS 


1020 

1 


1030PUFFER 



• 1040 

■ EN 


II 



Llsting 6. Assemblerlisting für Grundrechnungsarten 


0610 

LDA 

• 13 

0620 

JSR 

BSOUT 

0630 

RTS 


0640 

1 


0660 

■ EN 



I ZEILENVORSCHUB 
iAUSGEBEN 


II 


Llsting 7. Assemblerlisting für Funktionen 


0100 

1*** FUNKTIONEN 

** 

*• 

4* 

0110 

1 

6168 

0120 

» 


0130COS 

•DE *E264 


0140S1N 

.DE *E26B 


0150BOR 

■DE *BF71 


0160L0G 

•DE »B9EA 


0170EXP 

•DE *BFED 


0180FAC 

■ DE *61 


0190ARG 

.DE *69 


0200EINPOS 

.DE *B3A2 


0210ZWEPOS 

.DE *BC49 


0220FACARG 

■DE »BCOC 


0230FACSTR 

.DE *BDDD 


0240STR0UT 

• DE *AB1E 


0250BS0UT 

.DE »FFD2 


0260 

1 


0270 

.BA »COOO 

( PROGRAhMSTART 

0280 

• OS 

(CODE GENERIEREN 

0290 

» 


0300 

1* SIN, COS, SQR 

, LOG, EXP * 

0310 

LDY *10 


0320 

JSR EINPOS 


0330 

JSR SIN 


0340 

JSR AUSGABE 


0350 

i 


0360 

LDY *10 


0370 

JSR EINPOS 


0380 

JSR COS 


0390 

JSR AUSGABE 


0400 

1 


0410 

LDY *10 


0420 

JSR EINPOS 


0430 

JSR SQR 


0440 

JSR AUSGABE 


0430 

1 


0460 

LDY *10 


0470 

JSR EINPOS 


0400 

JSR LOG 


0490 

JSR AUSGABE 


0300 

1 


0310 

LDY *10 


0520 

JSR EINPOS 


0530 

JSR EXP 


0340 

JSR AUSGABE 


0530 

RTS 


0560 

1 


0570 

1 


03B0 

(«ZAHL AUSGEBEN* 


0590AUSGABE 

JSR FACSTR 

(r«C=>STRING 

0600 

JSR STROUT 

(STRING=>SCREEN 


30' 


U 



0100 

(*** USR—VEKTOR 

**« 

0110 

1 


0120 

0130SQR 

•DE *BF71 


0150MULT 

.DE »BA2B 

(FAC=ARG*FAC 

0170FAC 

.DE *61 


01BOARG 

.DE *69 


0210FACARG 

.DE «BCOC 


0250 

1 


0260 

.BA »COOO 

(PROGRAMMSTART 

0270 

.OS 

(CODE GENERIEREN 

0280 

1 


0290 

|»WURZEL<X> BERECHNEN* 

0300 

JSR GQR 

I WURZEL(X) BERECHNEN 

0310 

JSR FACPUF 

(ERGEBNIS RETTEN 

0320 

0330 

RTS 


0340 

0350 

!ba »C100 

(START TEIL 2 

0360 

1 


0370 

| * Z AHL < Y > DURCH 

WURZEL(X) DIVID.» 

0300 

JSR FACARG 

|ZAHL <Y> NACH FAC 

0390 

JSR PUFFAC 

(WURZEL(X) NACH ARG 

0400 

JSR MULT 

(FAC=ARG*FAC 

0410 

RTS 


0060 

• 


0070 

(»FAC RETTEN* 


O08OFACPUF 

LDX *3 


O09OLOOP1 

LDA FAC.X 


0900 

STA PUFFER,» 


0910 

DCX 


0920 

BPL LDOPH 


0930 

RTS 


ok; 

1 »FAC kfflliE.4* 


0960PUFFAC 

LDX *3 


0970LOOP2 

LOA PUFFER.X 


0900 

STA FAC.X 


0990 

DEX 


1000 

BPL LOOP2 


1010 

RTS 


1020 

1030PUFFER 

1 


1040 

II 

.EN 


Llsting 8. Assemblerlisting für USR-Vektor-Funktionen 


U 


ü 

0100 

(*** USR-VEKT0R.2 *** 

01 10 

| 

0120 

1 

0130ADD 

•DE *BB6A 

0140FAC 

.DE *61 

0150ARG 

.DE *69 

0160FACARG 

.DE «BCOC 

0170 

1 

0100 

.BA »COOO (PROGRAMMSTART 

0190 

•OS (CODE GENERIEREN 

0200 

1 

0210 

(«PARAMETER UEBERNEHMEN* 

0220 

DEC 250 

0230 

BEQ L00P3 

0240 

JSR FACPUF 

0250 

LDA KORR+1 

0260 

CLC 

0270 

ADC »5 

0280 

STA KORR+1 

0290 

BCC ENDE 

0300 

INC KORR+2 

0310ENDE 

RTS 

0320 

1 

0330 

(«RECHNEN* 

0340L00P3 

JSR FACARG 

0350 

JSR PUFFAC 

0360 

JSR ADD 

0370 

LDA LOOP2+1 

0380 

CLC 

0390 

ADC *3 


<3Sa? 
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0400 

STA 

L00P2+1 

0410 

BCC 

SPRUNG 

0420 

INC 

L00P2+2 

0430SPRUNG 

LDA 

L00P2+2 

0440 

CMP 

KQRR+2 

0450 

BNE 

LOOP3 

0460 

LDA 

L00P2+1 

0470 

CMP 

KORR+1 

0480 

BNE 

L00P3 

0490 

RT8 


0500 

1 


0510 

(»FAC RETTEN* 

0520FACPUF 

LDX 

#3 

0530L00P1 

LDA 

FAC.X 

0540K0RR 

STA 

PUFFER,X 

0550 

DEX 


0560 

BPL 

LOOP1 

0570 

RT8 


05B0 

1 


0590 

(*FAC HOLEN* 

0600PUFFAC 

LDX 

»5 

0610L00P2 

LDA 

PUFFER,X 

0620 

STA 

FAC.X 

0630 

DEX 


0640 

BPL 

LQ0P2 

0650 

RTS 


0660 

1 


0670PUFFER 



0680 

• EN 



// 


Listlng 9. Assemblerlisting für USR-Vektor2-Funktlonen 


U 

Q 

0100 

0110 

0120 

0130CHKK0M 

0140GETBYT 

0150FRMNUM 

0160ADRF0R 

0170ADRBYT 

nt ünCArCTt’ 

| *(* PARAMETER LESEN 

1 

.DE *AEFD 
.DE *B79E 
.DE «ADBA 
.DE »B7F7 
.DE *B7EB 

nc cnnnn 

*** 


0190STR0UT 

•DE »AB1E 


0200INTOUT 

.DE *BDCD 


021OBSOUT 

.DE »FFD2 


0220 

1 


0230 

.BA »COOO 

|PROGRAMMSTART 

0240 

0250 

.OS 

(CODE GENERIEREN 

0260 

(»EIN-BYTE-WERT* 


0270 

JSR CHKKOM 


0280 

JSR GETBYT 

lEIN-BYTE-WERT 

0290 

LDA »0 

[HIGH-BYTE-0 

0300 

JSR INTOUT 

1 AUSGEBEN 

0310 

LDA #13 


0320 

0330 

JSR BSOUT 


0340 

I * ZWEI-BYTE-WERT* 


0350 

JSR CHKKOM 

)ZWEI-BYTE-WERT 

0360 

JSR FRMNUM 

(NACH FAC 

0370 

JSR ADRFOR 

|INS INTEGERFORMAT 

0380 

PHA 

1 Y-LOW-BYTE 

0390 

TYA 

I INS 

0400 

TAX 

(X-REGISTER 

0410 

PLA 

)UEBERTRAGEN 

0420 

JSR INTOUT 

iAUSGEBEN 

0430 

LDA #13 


0440 

JSR BSOUT 


0450 

1 


0460 

|* ZWEI- UND EIN-BYTE 

-WERT* 

0470 

JSR CHKKOM 

[ZWEI-BYTE-WERT 

0480 

JSR ADRBYT 

[+EIN-BYTE-WERT 

0490 

LDA #0 

1HIGH-BYTE-0 

0500 

JSR INTOUT 

[1BYTE AUSGEBEN 

0510 

LDA #13 


0520 

JSR BSOUT 


0530 

LDX *14 

1X-LOW 

0540 

LDA *15 

lA-HIGH 

0550 

JSR INTOUT 

I AUSGEBEN 

0560 

LDA #13 


0570 

0580 

JSR BSOUT 


0590 

|»BELIEBIGER WERT* 


0600 

JSR CHKKOM 

|BELIEBIGEN NUM. 

0610 

JSR FRMNUM 

| AUSDRUCK NACH FAC 

0620 

JSR FACSTR 

(FAC -> STRING 

0630 

JSR STROUT 

(STRING AUSGEBEN 

0640 

RTS 


0650 

1 


0660 

// 

.EN 


Listlng 10. Assemblerlisting für Parameterlesen 


U 

U 

0100 

(*** SUMMIERUNG *** 


0110 

1 


0120 

! 


0130GETP0S 

.DE »B08B 

|-> POINTER 

0140CHKKOM 

.DE *AEFD 


0150START 

.DE 251 

(LINKE GRENZE 

016ÖENDE 

.DE 253 

(RECHTE GRENZE 

0170ADD 

.DE »B86A 

(FAC-ARG+FAC 

0180SUB 

.DE »B853 

(FAC-ARG-FAC 

0190MULT 

.DE *BA2B 

(FAC=ARG*FAC 

0200DIV 

.DE *BB12 

(FAC-ARG/FAC 

0210FAC 

.DE »61 


0220ARG 

.DE *69 


0230K0NFAC 

.DE *BBA2 


0240FACARG 

.DE »BCOC 


0250FACSTR 

.DE »BDDD 


0260STR0UT 

.DE »AB1E 


0270BSOUT 

.DE «FFD2 


0280 

1 


0290 

.BA »COOO 

(PROGRAMMSTART 

0300 

.OS 

[CODE GENERIEREN 

0310 

1 


0320 

(»POINTER HOLEN* 


0330 

JSR CHKKOM 

[POINTER AUF 

0340 

JSR GETPOS 

(LINKE GRENZE 

0350 

STA START 

[NACH START(+1) 

0360 

STY START+1 


0370 

JSR CHKKOM 

[POINTER AUF 

0380 

JSR GETPOS 

(RECHTE GRENZE 

0390 

STA ENDE 

[NACH ENDE(+1 ) 

0400 

STY ENDE+1 


0410 

1 


0420 

JSR 1NFAC 

(A(l) NACH FAC 

0430 

» 


0440BEGIN 

JSR FACARG 

(FAC NACH ARG 

0450 

LDA START 


0460 

CLC 

[START(+1 )- 

0470 

ADC #5 

(START(+1 ) + 5 

0480 

STA START 

[<->P0INTER 

0490 

BCC LABELl 

(AUF NAECHSTE 

0500 

INC START+1 

[REALZAHL 

0S20LABEL1 

1 

LDA ENDE+1 


0530 

CMP START+1 


0540 

BCC BACK 

[FERTIG. WENN 

0550 

BNE WEITER 

[ENDE(+1)<START(+1) 

0560 

LDA ENDE 


0570 

CMP START 


0580 

BCC BACK 


0590 

1 


0600WEITER 

JSR INFAC 

|A(START) => FAC 

0610 

JSR ADD 

[FAC-ARG+FAC 

0620 

JMP BEGIN 

[SCHLEIFENANFANG 

0630 

1 


0640BACK 

JSR FACSTR 

[AUSGABE VON FAC 

0650 

JSR STROUT 

|(-ERGEBNIS) 

0660 

RTS 


0670 

1 


06B0INFAC 

LDA START 

(KONSTANTE, AUF 

0690 

LDY START+1 

[DIE START(+1) 

0700 

JSR KONFAC 

[WEIST, NACH 

0710 

RTS 

[ARG KOPIEREN 

0720 

1 


0730 

.EN 


Listlng 11. Assemblerlisting für Sumlerung 


U 


ü 


0100 

[*** STATISTIK *** 

0110 

1 

0120 

1 

0130GETPOS 

.DE *BOBB [-> POINTER 

0140CHKKOM 

.DE »AEFD 

0150SUMME1 

■DE »A3 

0160SUMME2 

.DE »AA 

Listlng 12. Assemblerlisting für Statistik (Fortsetzung) 
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0170PUFFER 

.DE *B2 

)PUFFER 

0180START 

.DE *9B 

|LINKE GRENZE 

0190STK0P 

•DE *9E 

I RECHTE GRENZE 

0200C0UNT 

.DE *B7 

IZAEHLER 

02 ION 

.DE *B9 

|ZAEHLER 

0220N1 

.DE »FA 

|ZAEHLER 

0230ADD 

.DE »B86A 

|FAC=ARG+FAC 

0240SUB 

•DE «B853 

1FAC=ARG-FAC 

0230MULT 

.DE »BA2B 

|FAC-ARG*FAC 

0260DIV 

.DE »BB12 

IFAC-ARG/FAC 

0270EXP 

.DE »BF7B 

| FAC=ARGf!FAC 

0280FAC 

.DE «61 


0290ARG 

.DE »69 


0300KONFAC 

.DE SBBA2 


031OKONARG 

.DE »BA8C 


0320FACK0N 

.DE »BBD4 


0330FACARG 

.DE »BCOC 


0340K0NMUL 

.DE »BA28 


0330K0NADD 

.DE »B867 


0360FLIINT 

.DE »BC9B 


0370ZWEPOS 

.DE »BC49 


03B0EINPOS 

.DE SB3A2 


0390FACSTR 

.DE »BDDD 


04008TR0UT 

.DE »AB1E 


0410 

1 


0420 

.BA »COOO 

I PROGRAMMSTART 

0430 

.08 

|CODE GENERIEREN 

0440 

> 


0450 

1«»»POINTER HOLEN»*» 

0460 

JBR CHKKOM 

|POINTER AUF 

0470 

J8R GETPOS 

(LINKE GRENZE 

0480 

STA START 

(NACH START(+1) 

0490 

STY START+1 


0300 

STA STKOP 


0510 

STY STKOP+l 


0520 

JSR CHKKOM 

(POINTER AUF 

0330 

JBR GETPOS 

(RECHTE GRENZE 

0540 

i 


0330 

1 


0560 

!***N, N-l, COUNT 

ERMITTELN»*» 

0370 

SEC 


0380 

SBC START 

(DIFFERENZ 

0590 

STA *63 

(ZWISCHEN DEN 

0600 

TYA 

[GRENZEN BERECHNEN 

0610 

SBC START+1 


0620 

STA »62 


0630 

LDX 4*90 

5KH 

0640 

SEC 


0650 

JSR ZWEPOS 


0660 

JSR FACARG 


0670 

1 


0680 

LDY #5 

[DIFFERENZ GETEILT 

0690 

JSR EINPOS 

[DURCH 5 ERGIBT 

0700 

JSR DIV 

[DIE ANZAHL N-l 

0710 

LDX 4L.NI 


0720 

LDY 4H.N1 


0730 

JSR FACKON 


0740 

1 


0730 

JBR FLIINT 

[N-l INKREMENTIEREN 

0760 

LDX *64 

[ERGIBT N 

0770 

LDY *63 


0780 

INY 


0790 

BCC NOINC 


0800 

INX 


0810NOINC 

STX N+l 


0820 

STY N 


0830 

STX COUNT+1 

[UND GLEICHZEITIG 

0840 

STY COUNT 

[COUNT (COUNT-N) 

0850 

1 


0860 

LDY 40 


0870 

JSR EINPOS 

[PUFFER INI¬ 

0880 

JSR FACPUF 

TIALISIEREN 

0890 

1 


0900 

1 


0910 

■(»»SUMMEI BERECHNEN*»* 

0920L00PS1 

JSR INFAC 

|A(START) NACH 

0930 

LDA START 

(FAC KOPIEREN 

0940 

LDY START+1 

[UND FAC MIT 

0930 

JSR KONMUL 

|A(START) MULTIPL 

0960 

LDA 4L,PUFFER 

|FAC UND SUMMEI 

0970 

LDY 4H,PUFFER 

(ADDIEREN UND 

0980 

JSR KONADD 

|NEUE SUMMEI IN 

0990 

JSR FACPUF 

|PUFFER KOPIEREN 

1000 

JSR OFFSET 

(START INKREM. 

1010 

JSR DECCNT 

[ZAEHLER DEKREM. 

1020 

BNE LOOPS1 

|FERTIG? NEIN-> 

1030 

1 


1040 

LDA STKOP 

[START WIEDER 

1050 

LDX STKOP+1 

|AUF DAS ERSTE 

1060 

STA START 

[ELEMENT A(LG> 

1070 

STX START+1 

1 SETZEN 

1080 

LDA N 


1090 

LDX N+l 

[COUNT MIT DER 

1100 

STA COUNT 

1 ANZAHL N LADEN 

1110 

STX COUNT+1 



1120 

LDY 40 

[UND FAC 

1130 

JSR EINPOS 

1INITIALS1EREN 

1140 

1 


1150 

1 


1160 

[*»» SUMME2 BERECHNEN ««« 

1170L0DPS2 

LDA START 

[ZU FAC DAS ELE- 

1180 

LDY START+1 

[MENT A(START) 

1190 

JSR KONADD 

[ADDIEREN 

1200 

JSR OFFSET 

[START INKREM. 

1210 

JSR DECCNT 

[ZAEHLER DEKREM. 

1220 

BNE LQQPS2 

[FERTIG? NEIN=> 

1230 

1 


1240 

1 


1250 

[*** SUMME2=SUMME2*SUMME2 *»* 

1260 

JSR FACARG 

1SUMME2 NACH ARG 

1270 

LDY 42 

[ZAHL 2 NACH FAC 

1280 

JSR EINPOS 


1290 

JSR EXP 

[FAC-FACBAR6 

1300 

| 


1310 

1 


1320 

1*** SUMME2 DURCH 

N DIVID. *** 

1330 

JSR FACARG 

| SUMME2 NACH ^ARG 

1340 

LDA N 

* |BRINGEN 

1330 

LDX N+l 


1360 

STA *63 

|N NACH FAC 

1370 

STX *62 

[BRINGEN 

1380 

LDX 4*90 


1390 

SEC 


1400 

JSR ZWEPOS 

1SUMME2 DURCH 

1410 

JSR DIV 

1N DIVIDIEREN 

1420 

1 


1430 

1 


1440 

[*** SUMME2 VON SUMMEI SUB. *** 

1430 

LDA 4L,PUFFER 

|SUMMEI NACH ARG 

1460 

LDY 4H,PUFFER 

[BRINGEN UND 

1470 

JSR KONARG 

[SUMME? VON 

1480 

JBR BUB 

|SUMMEI BUBTRAH. 

1490 

1 


1500 

• 


1510 

[*** RESULTAT DURCH N-l DIVID.*** 

1520 

JSR FACARG 

(RESULTAT NACH 

1330 

LDA 4L, NI 

[ARG BRINGEN 

1540 

LDY 4H.N1 

IKONSTANTE N NACH 

1330 

JSR KONFAC 

[FAC UND ARG 

1560 

JSR DIV 

[DURCH FAC DIV. 

\ll- 

1 

1 


1390 

[•«• VARIANZ IN V 

SPEICHERN **( 

1600 

JSR CHKKOM 

[ZEIGER AUF V 

1610 

JSR GETPOS 

[HOLEN UND 

1620 

TAX 

[DIE BERECHNETE 

1630 

JMP FACKON 

[VARIANZ NACH V 

1640 

1 


1650 

1 


1660 

1* ZAEHLER DEKREMENTIEREN * 

1670DECCNT 

LDA COUNT 


1680 

BNE LAB1 


1690 

DEC COUNT+1 


1700LAB1 

DEC COUNT 


1710 

LDA COUNT+1 


1720 

BNE DECEND 


1730 

LDA COUNT 


1740DECEND 

RTS 


1750 

1 


1760 

1 


1770 

1* A(START) NACH FAC * 

1780INFAC 

LDA START 

[KONSTANTE, AUF 

1790 

LDY START+1 

[DIE START(+1) 

1800 

JMP KONFAC 

|WEIST, NACH 

1810 

1 


1820 

1* KONST.IN PUFFER NACH FAC * 

1830PUFFAC 

LDA 4L.PUFFER 


1840 

LDY 4H,PUFFER 


1850 

JMP KONFAC 


1860 

1 


1870 

1* FAC NACH PUFFER KOPIEREN * 

1880FACPUF 

LDX 4L,PUFFER 


1890 

LDY 4H,PUFFER 


1900 

JMP FACKON 


1910 

1 


1920 

| * START AUF NEXT 

ELEMENT * 

19300FFSET 

LDA START 


1940 

CLC 


1950 

ADC 45 


1960 

STA START 


1970 

BCC OFFEND 


1980 

INC START+1 


19900FFEND 

RTS 


2000 

1 


2010 

.EN 


// 
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61-62 

122-123 

$3D-$3E 

$7A-$7B 

Zeiger aut die Adresse, ab welcher dor Text der laufen¬ 
den Basic-Zelle abgespeichert Ist 

Telle der CHRGET-Routine 


MÄEf 

JtflDV IU AD 

512-600 

$200-$258 

Baslc-Elngabopulter 

1 

IyieI 

nilKT IVlAr 

772-773 

$304-$305 

Indirekter Sprungvektor auf die Baslc-Routine. die 




774-775 

$306-$307 

Indirekter Sprungvektor auf die Baslc-Routine. die 



mit 



Tokens in ASCII-Text zurückwandolt (List) 




776-777 

$308-$309 

Indirekter Sprungvektor auf die Baslc-Routine, die den 

Wnndervorsdilägen 

Uhr 

160-102 

USR 

784-786 

$A0-$A2 

$310-$312 

nächsten Betehl liest und ausführt 

Interne Uhr tür TI und TIS 

Nur C 64; Sprungbefehl und wählbare Sprungadresse 

TAN 





des USR-Befehls 

18 

$12 

Flagge lür Vorzeichen dos Ergebnisses bei SIN und 
TAN 

0-2 

$0-$2 

Nur VC 20: Sprungbolehl und wahlbaro Sprungadrosse 
des USR-Befehls 

Tastatur 


Variable 



145 

$91 

Zwischenspeicher (ür Abträge der STOP-Taste 

13 

$D 

Flagge zur Bestimmung des Variablentyps (String oder 

197 

$C5 

Tasten-Code der zuletzt gedrückten Taste 



Zahl) 

198 

$C6 

Anzahl der Zeichen im Tastaturputter 

14 

$E 

Flagge zur Bestimmung des Variablentyps (ganze Zahl 

203 

$C8 

Tasten-Code der gerade gedrückten Taste 



oder Gleitkommazahl) 

208 

$D0 

Flagge tür Eingabe von Tastatur oder Bildschirm 

45-46 

$2D-$2E 

Zeiger auf die Antangsadresse des Speicherbereichs 

245-246 

$F5-$F6 

Vektor auf die Decodiertabelle tür ASCII-Codeworte der 



für Variable 



Tasten 

47-48 

$2F-$30 

Zeiger aut die Anlangsadresse des Speicherbereichs 

631-640 

$277-$280 

Tastaturpulfer 



lür Felder (Arrays) 

649 

$289 

Maximale Lange des Tastaturputters 

49-50 

$31-$32 

Zeiger aut die Endadresse +1 des Speicherbereichs 

650 

$28A 

Flagge tür Tastonwiederholung 



tür Felder (Arrays) 

651 

$28B 

Zähler tür Wiederholungsgeschwindigkeit der Tasten 

51-52 

$33-$34 

Zeiger aut die untere Grenze des Speicherbereichs tür 

652 

$28C 

Zahler tür Ansprechzeit der Wiederholtunktion von 



den Text der Stringvariablen 



Tasten 

53-54 

$35-$36 

Zeiger aut die Adresse dos zuletzt eingegebenen 

653 

$280 

Tastencode der SHIFT-, CTRL- und Commodore-Taste 



Strings 

654 

$28E 

Tastencode der zuletzt gedrückten SHIFT-, CTRL- und 

69-70 

$45-$46 

Name der gerade aulgerutenen Basic-Variablen 



Commodore-Taste 

71-72 

$47-$48 

Zeiger auf die Adresse des Wertes der gerade 

655-656 

S28F-S290 

Voktor aut die Routine der Tastencode-Tabellen 



aufgerufenen Basic-Variablen 

657 

$291 

Flagge tür Verriegelung der Zeichensatz-Umschaltung 

73-74 

$49-$4A 

Zwischenspeicher (ür Variable einer FOR-NEXT- 

Token 




Schielte lür diverse Baslc-Belehle 

8 

$8 

Suchzeichen speziell tür Betehlsende und Gänsefüße 

Vektoren tür Indirekte Sprünge 

11 

$B 

Anzahl der Dimensionen von Feldern (Arrays) 

768-779 

$300-$30B 

Vektoren auf Routinen des Basic-Clbersetzers 

15 

$F 

Flagge bei LIST. Garbage Collection und Text¬ 



(Interpreters) 



umwandlung 

***** 

794-819 

_[_ -i 

$31A-$333 

Vektoren aut Routinen des Betriebssystems (Kernel) 




'VTOV.AW W 
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C 64 


GRUNDLAGEN 


84 KByte Speicher 
sicher im Griff 


Durch einfaches Verändern eines Registers kön¬ 
nen beim C64 normalerweise brachliegende 
Speicherbereiche genutzt werden. Um jedoch 
einen Systemabsturz auszuschließen, ist es not¬ 
wendig, die auf diese Weise erzeugten Speicher¬ 
konfigurationen zu kennen. 

D er C64 besitzt bekanntlich durchgehend 64 KByte 
RAM (Schreib-Lese-Speicher = Random Access 
Memory) und 20 KByte ROM (Nur-Lese-Speicher = 
Read Only Memory). Jeweils 8 KByte ROM entfallen auf den 
Basic-Interpreter ($A000-$BFFF) und das Kernel-ROM 
($E000-$FFFF). Weitere 4 KByte ROM sind für die Ein-/Aus- 
gabesteuerung des Computers ($D000-$DFFF) zuständig. 
Derselbe Speicherbereich enthält auch den Zeichensatz. Da 
der Prozessor des C 64 jedoch maximal 64 KByte Speicher 
verwalten kann, ist es erforderlich, den darüber hinausge¬ 
henden Speicher auszublenden. Der Inhalt der Speicher¬ 
stelle 1 in der Zeropage zeigt an, welche Speicherbereiche 
gerade aktiv sind (ROM oder RAM). In diesem Zusammen¬ 
hang sind lediglich die drei unteren Bits von Bedeutung: 

Bit 0 LORAM (Basic-ROM oder RAM) 

Bit 1 HIRAM (Kernel-ROM oder RAM) 

Bit 2 CHAREN (I/O = Ein-/Ausgabe, Zeichensatz oder RAM) 
(Die Bits 3 bis 5 steuern den Kassettenport, Bit 6 und Bit 7 
sind nicht benutzt.) 


Hieraus ergeben sich acht verschiedene Bit-Kombinatio¬ 
nen und somit acht unterschiedliche Speicherkonfiguratio¬ 
nen. Im Einschaltzustand enthält die Speicherstelle 1 den 
Wert 55 (hexadezimal $37, binär 00110111), das heißt, die 
drei ausschlaggebenden Bits sind gesetzt. In diesem Fall 
sind Basic-Interpreter, Betriebssystem und Ein-/Ausgabevor- 
richtung eingeblendet, das RAM unter dem ROM und der Zei¬ 
chensatz nicht auslesbar (Bild 1). 

Wird Bit 0 mit »POKE 1,54« gelöscht, ist das Basic-ROM 
abgeschaltet und das darunter liegende RAM lesbar (Bild 2). 
Dieser Befehl ist deshalb nur dann von Basic aus sinnvoll, 
wenn das Basic-ROM zuvor ins RAM kopiert wurde. Andern¬ 
falls stürzt der Computer ab. 

Der Wert 53 (hexadezimal $35) bewirkt, daß neben dem 
Basic-ROM auch das Kernel abgeschaltet und gegen das 
RAM ausgetauscht ist (Bild 3). In diesem Fall stehen dem 
Anwender auch keine Betriebssystem-Routinen mehr zur 
Verfügung. Es sei denn, das Kernel wurde zuvor ins RAM 
kopiert oder ein modifiziertes Betriebssystem geladen. 

Enthält das Register den Wert 52 (hexadezimal $34), wird 
auch der Ein-/Ausgabe-Baustein ausgeblendet (Bild 4): Der 
gesamte Speicher des C 64 besteht nun ausschließlich aus 
RAM ."34 KByte). 

Bei den Werten 51 bis 48 (Bild 5 bis 8) ist - im Gegensatz 
zu den bisher genannten - Bit 2 (CHAREN) gelöscht. Dies 
hat zur Folge, daß anstelle des Ein-/Ausgabe-Bausteins der 
Zeichensatz auslesbar ist. 


Inhalt der Speicherstelle 1 
(Prozessorport) 

DEC HEX BIN untere drei Bits 
55 $37 %111 


$ E000 
$D000 
$C000 


$ A000 


$ 0800 - 


$0000 


8 KByte Kernel-ROM 


4 KByte I/O 


4 KByte RAM 


8 KByte Basic-ROM 


40 KByte RAM 


Basic-RAM Anfang 


Bild 1. C64 Im Einschalt¬ 
zustand (16 KByte ROM, 

44 KByte RAM, 4 KByte I/O) 




Inhalt der Speicherstelle 1 
(Prozessorport) 

DEC HEX BIN untere drei Bits 
54 $36 %110 


8 KByte Kernel-ROM 


$ E000 
$ D000 
$ C000 - 


4 KByte I/O 


$ A000 - 


52 KByte RAM 


$ 0800 - 


$ 0000 


Bild 2. Basic-ROM ausge¬ 
blendet (8 KByte Kernel, 52 
KByte RAM, 4 KByte I/O) 


Inhalt der Speicherstelle 1 
(Prozessorport) 

DEC HEX BIN untere drei Bits 
53 $35 %101 


8 KByte RAM 


$ E000 
$ D000 
$ C000 - 


4 KByte I/O 


$ A000 - 


52 KByte RAM 


$ 0800 - 
$0000 


Bild 3. Basic-ROM und Ker¬ 
nel abgeschaltet (60 KByte 
RAM, 4 KByte I/O) 
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Inhalt der Speicherstelle 1 
(Prozessorport) 

DEC HEX BIN untere drei Bits 

52 $34 %100 


$ E000 
$ D000 
$C000 


$ AOOO - 


$ 0800 - 
$0000 


64 KByte RAM 


Bild 4. Der Speicher besteht 
aus 64 KByte RAM. Der Com¬ 
puter ist stillgelegt. 
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C 64 


Besonders erwähnenswert ist in diesem Zusammenhang 
der Register-Inhalt 51 (hexadezimal $33). Er ermöglicht (von 
Basic aus!), den Commodore-Zeichensatz ins RAM zu kopie¬ 
ren (Listing 1). Basic-Interpreter und Betriebssystem bleiben 
aktiviert (Bild 5). Allerdings ist es vor dem Befehl »POKE 
1,51« unbedingt erforderlich, den Interrupt zum Beispiel mit 
»POKE 56333,127« abzuschalten und nach dem Zurückset¬ 
zen (mit »POKE 1,55«) durch »POKE 56333,129« wieder 
zuzulassen. 


10 POKE 56333,127 : REM INTERRUPT VERHINDE 


RN 

<059> 

20 POKE 1,51 • REM BIT 2 LOESCHEN 

<207> 

30 FOR 1=0 TO 4095 

<088> 

50 POKE 3*4096+1,PEEK<53248+1) 

<209> 

60 NEXT 

<070> 

70 POKE 1,55: REM BIT 2 SETZEN 

<254> 

80 POKE 56333,129 : REM INTERRUPT ZULASSEN 
90 POKE 53272.28 : REM ZEICHENSATZ IM RAM 

<007> 

AKTIVIEREN 

<004> 

Listing 1. Baslc-Programm zum Kopieren des Zeichensatzes 

Ins RAM 


Unbegrenzte Möglichkeiten 



Vor dem Ausblenden bestimmter Speicherbereiche sollte 
man sich versichern, daß die im Programm nachfolgend ver¬ 
wendeten Kommandos auch vom Computer ausgeführt wer¬ 
den können. Das gilt insbesondere für Kernel-ROM, Basic 
Interpreter und den Ein-/Ausgabebereich. So ist beispiels¬ 
weise das Ändern der Bildschirmfarbe oder die Ausgabe von 
Tönen bei abgeschaltetem Ein-/Ausgabe-Baustein unmög¬ 
lich. Bei einer Speicherkonfiguration, die ausschließlich aus 


RAM besteht, können lediglich Maschinensprache- 
Kommandos verwendet werden! Diese Speicheranordnung 
wird zeitweilig von professionellen Textverarbeitungspro¬ 
grammen verwendet, die den vorhandenen Speicher optimal 
nutzen. Basic-Erweiterungen (zum Beispiel »Simons Basic«) 
verwenden häufig das RAM unter dem Basic-ROM für 
zusätzliche Kommandos. 

Programme, die mit modifiziertem Basic-Interpreter und/ 
oder Betriebssystem arbeiten (beispielsweise auch der 64’er 
Checksummer) benötigen den Register-Inhalt 53. 

Ein weiterer, häufig anzutreffender Einsatzbereich ist die 
Speicherung von Zeichensätzen und hochauflösenden Gra¬ 
fiken in dem RAM-Bereich ab Adresse $E000. Das leistungs¬ 
fähige Grafikprogramm »Hi Eddi« (64’er, Ausgabe 1/85) 
arbeitet gar mit bis zu sieben Grafikbildschirmen, wobei der 
gesamte RAM-Bereich ab Adresse $2000 genutzt wird. 

Bemerkenswert ist schließlich noch, daß sich das Kernel- 
ROM nicht ausblenden läßt, ohne gleichzeitig das Basic- 
ROM abzuschalten. Will man deshalb von Basic mit veränder¬ 
tem Betriebssystem arbeiten - und keinen Eingriff in die 
Hardware des C64 vornehmen -, muß der Basic-Interpreter 
und das Kernel-ROM unbedingt zuvor als Kopie im RAM 
stehen. Listing 2 kopiert diese beiden Speicherbereiche in 


weniger als einer Sekunde. (nj) 


10 DATA 169. 0.162,160.133. 95.134, 96.16 

9 <125> 

15 DATA 0.162.192.133, 90.134. 91,169, 0 <0B8> 

20 DATA 162.192.133. 80.134. 89. 76.191.16 

3 <196> 

30 FOR 1-0 TO 26:READ A:POKE 828+1,A:NEXT: 

SYS(828) <161> 

40 POKE 831.224:POKE 839.0:POKE 847.0:SYS( 

r unmM) < 170 > 


Listing 2. Baslc-Lader zum Kopieren von Basic- und Kernel- 
ROM ins RAM 


Inhalt der Speicherstelle 1 
(Prozessorport) 

DEC HEX BIN untere drei Bits 
51 $33 %011 

Inhalt der Speicherstelle 1 
(Prozessorport) 

DEC HEX BIN untere drei Bits 
50 $32 %010 

Inhalt der Speicherstelle 1 
(Prozessorport) 

DEC HEX BIN untere drei Bits 
49 $31 %001 

Inhalt der Speicherstelle 1 
(Prozessorport) 

DEC HEX BIN untere drei Bits 
48 $30 %000 


8 KByte Kernel-ROM 


8 KByte Kernel-ROM 


8 KByte RAM 

$ pnnn _ 



4 KByte Zeichensatz 


4 KByte Zeichensatz 


4 KByte Zeichensatz 

«c nnnn 



4 KByte RAM 

$ C000 - 


$ C000 - 


uuuu 

$ cooo - 








8 KByte Basic-ROM 

<r Aonn 


$ A000 - 


$ A000 - 




JJ> AUUU 



64 KByte RAM 




40 KByte RAM 


52 KByte RAM 


52 KByte RAM 



$ 0800 - 

Basic-RAM Anfang 

$ 0800 - 


$ 0800 - 


$ 0800 - 


$ 0000 


$ 0000 


$0000 


$ 0000 


Bild 5. In dieser Konfigura¬ 
tion Ist der Zeichensatz von 
Basic aus lesbar (16 KByte 
ROM, 44 KByte RAM) 

Bild 6. 52 KByte RAM, 

4 KByte Zeichensatz und 

8 KByte ROM (Kernel) aktiv 
(Basic-ROM ausgeblendet) 

Bild 7. Neben dem Zeichen¬ 
satz sind 60 KByte RAM ein¬ 
geblendet. Der I/O-Berelch 
kann nicht genutzt werden 

Bild 8. Gleiche Speicher¬ 
konfiguration wie in Bild 4. 
Ausschließlich 64 KByte 

RAM (verfügbar) 
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C64/C 16/C 128 


1. Spalte 


Spalten 
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23. Spalte 


36. Spalte 
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40. Spalte 

1. Zeile" 


■ 5. Zelle 


'12. Zeile 


25. Zeile 


- Zeilen 


Bild 1. 

Schematische 
Darstellung 
eines Windows 


Windows - Fenster zum 
neuen Bedienungskomfort 


Der Begriff »Window« hat vor allem durch neuere 
Computer, etwa dem AMIGA, einen größeren 
Bekanntheitsgrad erreicht. In diesem Kurs erfah¬ 
ren Sie vieles über die »Window-Technik« sowie 
deren Programmierung und Simulation auf Ihrem 
C16, C64 oder C128. 

Z unächst einmal wollen wir klären, was ein Window ist. 
Es handelt sich dabei um einen Bildschirmausschnitt, 
der als Teilbildschirm eingeblendet und separat, das 
heißt vom Hauptbildschirm unabhängig, behandelt wird. Die 
Ausgabe eines Windows geschieht durch Überschreiben 
eines Teils des Gesamtbildschirms mit dem Window-Text. 

Dadurch, daß der alte Bildschirm nicht gelöscht, sondern 
nur teilweise überlagert wird, ist der vorherige Bildschirm¬ 
inhalt noch zu einem beträchtlichen Teil erkennbar. Werden 
viele solche Überlagerungen durchgeführt, entsteht aller¬ 
dings ein relativ chaotisches Aussehen des Bildschirms, da 
von einzelnen Windows nur noch Bruchstücke zu sehen 
sind. Grundvoraussetzung ist, daß das jeweils »aktuelle« Win¬ 
dow in vollem Umfang eingeblendet ist. 

Nach dieser kurzen Theorie wollen wir uns die Praxis anse- 
hen. In Bild 1 sehen Sie die schematische Darstellung eines 
Windows. Die Größe des gesamten Bildschirms setzt sich 
aus 40 Zeichen mal 25 Zeilen (siehe Bild 1) beim C16, C64 
und C128 im 40-Zeichen-Modus zusammen, also insgesamt 
1000 Zeichen. In Bild 1 sehen Sie, was ein Window ist: Ein 


Teilbereich von der 23. bis zur 36. Spalte und von der 5. bis 
zur 12. Zeile wird als Window definiert und bekommt eine 
bestimmte Aufgabe zugewiesen. Zum Beispiel könnten wir 
programmieren, daß dort dauernd die Uhrzeit eingeblendet 
wird oder es könnte ein Auswahlmenü erscheinen. Es gibt 
viele Anwendungsmöglichkeiten! 

Um Ihnen einen Eindruck zu geben, wie ein kommerzielles 
Windowprogramm aussehen kann, zeigen wir Ihnen einige 
Beispiele anhand des Amigas: Bild 2 wurde von der AMIGA- 



Bild 2. Beispiel: AMIGA-Benutzeroberfläche 
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C64/C16/C128 


GRUNDLAGEN 


Benutzeroberfläche »Intuition«, Bild 3 von der C64- 
Benutzeroberfläche GEOS (Testbericht siehe 64’er, Aus¬ 
gabe 6/86) und Bild 4 vom C128-Textverarbeitungspro- 
gramm Vjzawrite Classic (Test: 64'er, 5/86) aufgenommen. 

Das erste Window-Programm 


Nehmen wir wieder Bild 1 zur Hand. Wenn wir fürs erste keine 
größeren Ansprüche stellen, als daß der in Bild 1 als Window 
definierte Bereich unabhängig vom Gesamtbildschirm 
beschrieben wird, genügt uns Listing 1. Dieses Programm 
läuft auf C16, C64 und auf dem C128 im 40-Zeichen-Mo- 



Bild 3. Beispiel: Geos-Benutzeroberfläche des C64 


dus. Wenn Sie es ganz normal über »RUN« starten, wird 
zunächst der Bildschirm mit zufälligen Zeichen beschrieben. 
Dies erleichtert die Demonstration, daß nur der Bildschirmbe¬ 
reich des Windows genutzt wird und dieser eigenständig ist. 
Dann wird das Window ausgegeben. Mit einem Tastendruck 
wird das Programm beendet. 

In diesem Anwendungsbeispiel wird das Window rein de¬ 
monstrativ genutzt, es zeigt lediglich seine »persönlichen« 
Daten an. Rein von der Betrachtung des laufenden Pro¬ 
gramms kann man auch sehen, daß das Window optisch 
durch eine Umrahmung hervorgehoben wird. Diese Eingren¬ 
zung ist bei Commodore-Computern dank der Grafikzeichen 
einfach realisierbar, denn Kasten- und Rahmen-Symbole 
sind in ausreichender Menge vorhanden. Die grafische Her¬ 
vorhebung ist von elementarer Bedeutung, damit man klar 
ersehen kann, wo ein Window beginnt und wo es endet, denn 
Windows sind keine Spielerei, sondern sollen statt dessen 
eine ökonomische Nutzung des Bildschirms ermöglichen. 

Bei einem Start des Programms über GOTO 360 wird das 
Überschreiben des Bildschirms durch Zufallszahlen über¬ 
sprungen. Sie könnten zum Beispiel das Programm über LIST 
auf dem Bildschirm ausgeben und dann ohne vorheriges 
Löschen des Bildschirms mit GOTO 360 starten. In jedem Fall 
wird das Window eingeblendet, egal was vorher auf dem Bild¬ 
schirm stand. Genau diese Eigenschaft macht die Flexibilität 
der Windows aus. 

Die Programmiertedimk 


Bis jetzt haben wir uns sehr wenig mit der Technik beschäftigt 
und das Ganze eher aus Anwendersicht betrachtet. Sie wer¬ 
den aber sehen, daß man keine besonderen Programmier¬ 
kenntnisse braucht, um Windows zu realisieren. Im Prinzip ist 
es nur eine Frage der Planung des Programms und im beson¬ 
deren der Bildschirmausgabe. Bei neueren Computern wird 


eine ausgereifte Window-Technik bereits vom Betriebs¬ 
system unterstützt; deswegen brauchen wir aber noch lange 
nicht zu verzweifeln, denn vieles, was die Großen können, 
schaffen die Kleinen auch. In diesem Zusammenhang 
möchte ich gleich erwähnen, daß die sogenannte »Window- 
Technik« von C16 und C128 für unsere Zwecke unbrauchbar 
ist, denn es handelt sich nur um eine Verkleinerung des Bild¬ 
schirms. 

Kommen wir zurück zur Programmierung. Weil die Aus¬ 
gabe-Routinen des Computers nicht in der Lage sind, für uns 
darauf zu achten, daß wir nicht über die Grenzen eines Win¬ 
dows hinausschreiben, müssen wir solche Vorkehrungen 
treffen. Als erstes müssen wir zur Ausgabe eines Windows 
auf die richtige Positionierung des Cursors achten. In unse¬ 
rem Beispiel (wir befinden uns immer noch bei Listing 1) muß 
der Cursor in die 5. Zeile bewegt werden, da der obere Rand 
des Windows mit 5 festgelegt ist. Dieses Ansteuern der 5. 
Zeile erreichen wir in den Zeilen 390 bis 420. Der Code 
CHR$(17) in Zeile 420 steht für <CURSOR-DOWN>. 
Dadurch, daß in Zeile 420 insgesamt 4mal der Cursor von der 
obersten Zeile aus nach unten bewegt wird, landen wir logi¬ 
scherweise in der 5. Zeile. Falls es Ihnen nicht klar sein sollte, 
probieren Sie es doch im Basic-Editor mit der CURSOR- 
DOWN- und HOME-Taste aus. 

Damit hätten wir schon die obere Grenze eingehalten. Von 
gleicher Wichtigkeit ist die linke Grenze. Wir können nicht 
ganz links am Bildschirmrand mit der Ausgabe einer Zeile 
beginnen, sondern erst in der 23. Spalte. Dies heißt für uns, 
daß wir die ersten 22 Spalten einer Bildschirmzeile über¬ 
springen müssen, wofür die CURSOR-RIGHT-Bewegung 
verantwortlich ist (siehe zum Beispiel Zeile 460). 


Bild 4. Vizawrite Classic 128 


Wenn wir dann eine richtige Position am Bildschirm ange¬ 
steuert haben, kann eine Zeile des Windows ausgegeben 
werden. Es ist unbedingt darauf zu achten, daß der Text nicht 
länger, als das Window breit ist. Die Breite des Windows 
ergibt sich aus linkem und rechtem Rand. In unserem Fall ist 
der linke Rand die 23. der rechte Rand die 36. Spalte. Die 
Breite beträgt 36-23+1 = 14 Zeichen. Die 1 muß deshalb 
addiert werden, da auch die Endspalten 23 und 36 genutzt 
werden. An den Zeilen 460 bis 530 können Sie sehen, daß 
nach den CURSOR-RIGHT-Steuerzeichen nur 14 Zeichen 
ausgegeben werden - nicht mehr und nicht weniger. 

Nach der Ausgabe der Window-Zeile muß die nächste Zeile 
angesteuert werden. Hierzu füllen wir den Rest der Zeile mit 
<CURSOR-RIGHT>-Befehlen. In unserem Beispiel sind 
dies 4, denn von der Bildschirmbreite (40 Zeichen) muß 
einfach die rechte Grenze (36. Spalte) subtrahiert werden: 
40 - 36 = 4. 
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C 64/016/CI 28 


Am Ende der Zeile steht hinter den Anführungszeichen ein 
Semikolon, der einen Zeilenvorscf(ub verhindert. Wenn wir 
keine Steuerzeichen außer CURSOR RIGHT verwenden, hat 
jetzt ein Ausgabestring (siehe Zeile 460) genau 40 Zeichen 
Länge. Dies geht bis zur letzten Window-Zeile (Zeile 530); da 
nach der letzten Window-Zeile nicht mehr ins Window ge¬ 
druckt werden soll, sind die vier CURSOR RIGHTs am Ende 
überflüssig und werden auch nicht ausgegeben. Der Strich¬ 
punkt ist aber weiterhin erforderlich, denn ein Zeilenvor¬ 
schub kann den Bildschirmaufbau sehr durcheinander brin¬ 
gen (besonders beim C16/C1281), wenn der Computer bei¬ 
spielsweise ein Scrolling unternimmt. Dies können Sie gut 
beobachten, wenn Sie das Programm per Tastendruck been¬ 
den. 


Besser mit dem CHAR-Befehl 


Sie sollten nun ein wenig an Listing 1 herumexperimentieren. 
Falls Sie keinen C64, sondern einen CI 6/C 128 haben, ist 
Listing 1 für Sie von nun an uninteressant, denn beim 
C16/C 128 gibt es eine viel einfachere Lösung unter Einsatz 
des CHAR-Befehls. Dieser ermöglicht ein Ausgeben an fest 
vorgegebene Cursorpositionen, so daß wir die beim C64 
erforderlichen Cursorpositionierungen über Steuerzeichen 
vergessen können. 

Listing 2 hat denselben Effekt wie Listing 1, ist allerdings 
wesentlich kürzer, da die Steuerzeichen wegfallen. Geändert 
hat sich, daß hier das CHAR-Kommando, welches das Basic 
2,0 des C 64 nicht kennt, eingesetzt wird und somit die Cur¬ 
sorpositionierungen aus Listing 1 entfallen. Wie nun dieser 
CHAR-Befehl verwendet wird, bedarf einiger Erläuterung, 
die man sowohl im CI6- als auch im C128-Handbuch 
schmerzlich vermißt. Dort wird nur erklärt, wie man mit dem 
CHAR-Befehl Texte in hochauflösender Grafik schreibt. 
CHAR kann jedoch noch mehr, es ist auch eine Ausgabe im 
Text-Modus möglich. Dann lautet die Syntax wie folgt: 

CHAR,Spalte,Zeile,"Ausgabetext als String"(,l) 

Beispiele hierzu können Sie den Zeilen 460 bis 530 in 
Listing 2 entnehmen. Daß auf den CHAR-Befehl unmittelbar 


ein Komma folgt, ist kein Druckfehler; damit soll dem Compu¬ 
ter angezeigt werden, daß eine Ausgabe in den Textbild¬ 
schirm gewünscht ist. Statt »CHAR,...« könnte man auch 
»CHAR1,...« schreiben, erübrigt sich aber, da es im Betriebs¬ 
system bereits voreingestellt ist. Der CHAR-Befehl rechnet 
die Spalten und Zeilen nicht von 1 bis 40 beziehungsweise 
1 bis 25, wie wir es bislang getan haben, sondern von 0 bis 
39 beziehungsweise 0 bis 24. Da wir Menschen aber beim 
Zählen mit 1 beginnen, müssen wir uns geringfügig umstel¬ 
len. Der Ausgabestring enthält nur den Text, der in das Win¬ 
dow gehört. Die fehlenden Steuerzeichen-Orgien tragen 
sehr zur Übersichtlichkeit und Kürze der Listings bei. Um 
einem Trugschluß vorzubeugen: Der Ausgabestring des 
CHAR-Befehls wird nicht wie bei PRINT angegeben, das 
heißt nach dem Ausgabestring darf kein Semikolon stehen, 
das Komma ist auch nicht erlaubt. Operationen wie »+«, 
»MID$«, »RIGHT$«, »LEFT$« oder »STR$« sind weiterhin 
zugelassen. 

Beim CHAR-Befehl ist das Schreiben der Window-Zeilen 
leichter, wenn man darauf achtet, daß der Ausgabestring 
jeweils in der gleichen Spalte am Bildschirm beim Editieren 
beginnt. Dann bekommt man nämlich eine genauere Vorstel¬ 
lung davon, wie der Text später am Bildschirm aussieht. Da 
die Parameter »Spalte« und »Zeile« ein oder zwei Zeichen 
Länge haben, könnte es leicht sein, daß beim Listen die Aus¬ 
gabestrings nicht genau, sondern leicht verschoben unter¬ 
einander stehen. Dies kann man verhindern, indem man bei 
einstelligen Parametern vor den Parameter ein Leerzeichen 
setzt: in Zeile 460 wird vor die einstellige Zahl »4« (Zeilenan¬ 
gabe) ein Leerzeichen gesetzt, damit die Zeile genausolang 
ist wie zum Beispiel Zeile 520, in der der Parameter Zeile 
schon zweistellig ist. Dieses Einfügen von Leerzeichen ist für 
die F::n''.tion der Zeile nicht erforderlich, denn Leerzeichen 
außerhalb von Anführungszeichen überliest der Computer 
bekanntlich; es ist aber dennoch kein übersteigertes Schön¬ 
heitsbewußtsein, sondern - wie gesagt - eine Hilfe beim 
Schreiben des Ausgabestrings. 

Die Window-Ausgabe-Zeilen mit dem CHAR-Befehl müs¬ 
sen immer dieselbe Zahl als Spaltenangabe haben; die Zei¬ 
lenangabe wird von Zeile zu Zeile um 1 erhöht (siehe Zeilen 



340 FOR F=1 TO 950: PRINT CHR#(RND<0)*48+48) 

110 REM * * 

;: NEXT F: REM 950 ZUFAELLIGE ZEICHEN 

120 REM * ANZEIGE EINER INFORMATION * 

350 : 

130 REM * * 

360 REM WINDOW AUSGEBEN 

140 REM * IN EINEM WINDOW * 

370 REM =============== 

150 REM * * 

380 : 

160 REM ***************************** 

390 REM CURSOR IN 5. ZEILE BEWEGEN 

170 REM * # 

400 : 

180 REM * START MIT ZUFAELLIGEM BE- * 

410 PRINT “{HOME>";: REM 'CURSOR HOME' AUSFU 

190 REM * SCHREIBEN DES BILDSCHIRMS # 

EHREN 

200 REM * ZUR HERVORHEBUNG DES WIN- * 

420 FOR F=1 TO 4: PRINT CHR*<17)j: NEXT F: R 

210 REM * DOWS: 'RUN' ODER 'GOTO300' * 

EM 4 ZEILEN UEBERSPRINGEN 

220 REM * * 

430 : 

230 REM * START OHNE AENDERUNG DES * 

440 REM NUN WIRD DAS WINDOW AUSGEGEBEN: 

240 REM * BILDSCHIRMS: GOTO 360 # 

450 : 

250 REM * * 

460 PRINT 11 r7?RIRHT>g«<HHHHHHHHHnre{4RIRHTV f 

260 REM * C16,C64,C12B(40-Z.-MODUS) * 

470 PRINT M <22RIGHT> = » WINDOW « = <4RIGHT>"; 

270 REM * * 

480 PRINT “ C22RIRHT>H»jHHHHHHHHHHtUI4RIRHT Vy 

280 REM ***************************** 

490 PRINT "I22RIGHT>J.INKE GR.:23 = <4RIGHT>"; 

290 : 

500 PRINT “{22RI6HT>zf*ECHTE G.:36-{4RIGHT>"; 

300 REM BILDSCHIRM MIT ZUFAELLIGEN 

510 PRINT " <22RIGHT>cJ3BERE GR.: 5 = {4RIGHT>" 5 

310 REM ZEICHEN BESCHREIBEN: 

520 PRINT "<22RIGHT>dJNTERE G.:12 = I4RIGHT>"; 

320 : 

530 PR I NT " <22R IGHT ) TWUtWUUUUUUUlV'': 

330 PRINT CHR* <147);: REM BILDSCHIRM LOESCHE 

540 : 

N 

550 BET A*: IF A*= ,,M THEN 550 

Listing 1. Window-Belsplel für den C16, C64, C128 Im 40-Zelchen-Modus 
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460 bis 530), denn sonst würden wir immer nur dieselbe 
Window-Zeile drucken. 

Der CHAR-Befehl bietet noch einen Vorteil gegenüber dem 
PRINT-Kommando, der für die C128-Besitzer ziemlich wich¬ 
tig ist: Ein mit CHAR-Befehlen arbeitendes Programm läuft 
auch im 80-Zeichen-Modus, wie Sie im Vergleich zwischen 
Listing 1 und Listing 2 erkennen können: Listing 1 (arbeitet 
mit PRINT) ist nur im 40-Zeichen-Modus funktionsfähig und 
müßte für den 80-Zeichen-Modus angepaßt werden, Listing 
2 (verwendet die CHAR-Anweisung) läuft in beiden Modi 
auch ohne Umschreibung. 


in Zeile 340 werden nun 1999 (statt vorher 999) Zeichen 
ausgegeben, denn der 80-Zeichen-Bildschirm faßt ja 1000 
Zeichen mehr als der 40er. 

Mehrere Windows 


Bislang haben wir jeweils ein einziges Window ausgege- . 
ben. Listing 4 ist nun ein Anwendungsbeispiel, das sich meh¬ 
rerer Windows bedient. Es handelt sich um ein Menü, wie es 
vor einem fiktiven Spielprogramm stehen könnte. Da Listing 
4 auch auf dem C64 laufen soll, wird auf den CHAR-Befehl 


Windows im 80-Zeichen-Bildsdiirm 
des C128 


Da ein Window wie jeder andere Text auch Platz auf dem Bild¬ 
schirm beansprucht, kann man auf einem größeren Bild¬ 
schirm mehr und größere Windows unterbringen als auf 
einem kleinen. Deshalb eignet sich der 80-Zeichen- 
Bildschirm des CI28 besonders, denn er faßt doppelt 
sovieleals der40er-Bildschirm. Wir wollen uns diese größere 
Kapazität zunutze machen und lassen ein wesentlich größe¬ 
res Window ausgeben. Listing 3 setzt wieder den CHAR- 
Befehl ein. In Zeile 320 wird der 80-Zeichen-Modus einge¬ 
schaltet und der Prozessor auf doppelte Geschwindigkeit 
umgestellt. Beim zufälligen »Vollschreiben« des Bildschirms 


verzichtet. Um die Cursorpositionierung trotzdem einfacher 


100 

H0 

120 

130 

140 

150 

160 

170 

1B0 
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200 

210 

220 
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240 

250 

260 

270 

2B0 
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300 
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480 

490 
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520 
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550 


REM ***************************** 

REM * * 

REM * ANZEIGE EINER INFORMATION * 

REM * * 646R - 

REM * IN EINEM WINDOW * 

REM * * 

REM ***************************** 

REM * * 

REM * START MIT ZUFAELLIGEM BE- * 

REM * SCHREIBEN DES BILDSCHIRMS * 

REM * ZUR HERVORHEBUNG DES WIN- * 

REM * DOWS: 'RUN' ODER 'GOTO300' * 

REM * * 

REM * START OHNE AENDERUNG DES * 

REM * BILDSCHIRMS: GOTO 360 * 

REM * * 

REM * C16.C12B * 

REM * * 

REM ***************************** 
t 

REM BILDSCHIRM MIT ZUFAELLIGEN 
REM ZEICHEN BESCHREIBEN: 

: 

PRINT CHR*(147);: REM BILDSCHIRM LOESCHE 
N 

FOR F=1 TO 950: PRINT CHR*(RND<0>*48+48) 
II NEXT F: REM 950 ZUFAELLIGE ZEICHEN 
: 

REM WINDOW AUSGEBEN 

rem =============== 

: 

CHAR ', 22 ', s]" = >> WINDOW << = " 

CHAR ^ 22 ! 7^"cLINKE GR.:23 = " 

CHAR ,22, 8, "RECHTE G.:36=" 

CHAR ,22, 9,"dDBERE GR.: 5-" 

CHAR ,22,10,"^UNTERE B. : 12 = " 

1 

GET A*: IF A*="" THEN 550 


Listing 2. Window-Beispiel für den C16, C128 Im 
40-Zeichen-Modus 
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REM ***************************** 

REM * * 

REM * ANZEIGE EINER INFORMATION * 

REM * * 

REM * IN EINEM WINDOW * 

REM * * 

REM ***************************** 

REM * * 

REM * START MIT ZUFAELLIGEM BE- * 

REM * SCHREIBEN DES BILDSCHIRMS * 

REM * ZUR HERVORHEBUNG DES WIN- * 

REM * DOWS: 'RUN' ODER 'GOTO300' * 

REM * * 

REM * START OHNE AENDERUNG DES * 

REM * BILDSCHIRMS: GOTO 360 * 

REM * * 

REM * CI28 IM 80-ZEICHEN-MODUS * 

REM * * 

REM ***************************** 

: 

REM BILDSCHIRM MIT ZUFAELLIGEN 
REM ZEICHEN BESCHREIBEN: 

GRAPHIC 5: FAST 

PRINT CHR*(147);: REM BILDSCHIRM LOESCHE 
N 

FOR F=1 TO 1999: PRINT CHR*<RND<0>*48+48 
>;: NEXT F: REM 1999 ZUFAELLIGE ZEICHEN 
i • 

REM WINDOW AUSGEBEN 


REM ===== 
: 

CHAR ,22, 

*JL*JL***5" 

CHAR ,22, 
OW ««=" 
CHAR ,22, 
**.»-».«.».*g " 

CHAR ,22, 
NZE:57 = " 
CHAR ,22, 
NZE:17 = " 
CHAR ,22, 


4, "TPüü 

5, "=»» ETWAS GROESSERES WIND 

7, "zi-INKE GRENZE:23^RECHTE GRE 

8, "cd3BERE GRENZE: SINTERE GRE 

9 , "1 


520 CHAR ,22,10,"dOA DER 80-ZEICHEN-BILDSCHI 
RM DOP- = " 

530 CHAR ,22,11," = J»ELT SOVIELE ZEICHEN AUFNE 
HMEN<3SPACE> = ” 

540 CHAR ,22,12,”d<ANN WIE DER 40'ER, SIND A 
UCHC4SPACE> = ” 

550 CHAR ,22,13,"^SOLCH GROSSE WINDOWS, DIE 
SONST<2SPACE> = “ 

560 CHAR ,22,14,"z*UVIEL PLATZ AM BILDSCHIRM 
BEAN- = " 

570 CHAR ,22,15,"^SPRÜCHEN WUERDEN, MOEGLICH 
. <6SPACE> = “ 

580 CHAR ,22,16," 

»»»*■»**• ?" 

590 : 

600 GET KEY A* 

Listing 3. Window-Beispiel für den C128 Im 

80-Zelchen-Modus 
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C64/C16/C128 


zu machen, wird das CURSOR-DOWN-Steuerzeichen 
jeweils in entsprechender Häufigkeit nach dem HOME- 
Steuerzeichen ausgegeben (siehe Zeilen 340, 440, 510 
und 580). 

Durch Drücken der Tasten 1 bis 3 wird der Wert für 
Geschwindigkeit, Anzahl der Spieler oder Spielstufe erhöht; 
wird der höchste erlaubte Wert überschritten, so wird wieder 
1 eingestellt; 4 beendet das Programm. 

An Listing 4 kann man einige verschiedene Möglichkeiten 
der optischen Eingrenzung eines Windows erkennen. 

Durch Kommentare in »REM«-Zeilen erklärt sich der Pro¬ 
grammaufbau von selbst. 

Text unter Window retten 


Einen großen Nachteil haben alle bisher von uns ausgegebe¬ 
nen Windows gehabt: Der Text, der vorher an der Position des 
Windows stand, ist verlorengegangen, da er durch das Win¬ 
dow überschrieben wurde. Dies macht in 50 Prozent aller 
Fälle nichts aus, aber was ist mit den anderen 50 Prozent? 

Wir wollen den unter dem Window liegenden Bildschirmbe¬ 
reich retten, indem wir ihn über PEEK auslesen und in einem 
Variablenarray speichern. Wenn das Window verschwunden 
und der alte Text eingeblendet werden soll, wird das Va¬ 
riablenarray wieder in den Bildschirmspeicher geschrieben. 
Diese Anforderung erfüllen Listing 5 und 6, die wir zunächst 
nur ausprobieren, dann aber eingehend besprechen wollen. 

Listing 5 ist die C 64/C128-Version (C128 im 40-Zeichen- 
Modusl), Listing 6 eine C16-Fassung. Die C16-Version 
unterscheidet sich von Listing 5 nur durch den Einsatz des 
CHAR-Befehls und eine andere Basisadresse des Bild¬ 
schirmspeichers. Wenn wir das Programm starten 


(C 64/C 128: Listing 5 / C16: Listing 6), wartet das Programm 
auf einen Tastendruck. »N« bewirkt, daß der Bildschirm nicht 
zur Demonstration mit zufälligen Zeichen überschrieben 
wird; eine beliebige andere Taste ruft das »Vollschreiben« 
hervor. 

Dann wird das Window, das Sie aus den Listings 1 und 2 
kennen, ausgegeben. Wenn Sie eine Taste drücken, wird der 
vorher an der Windowposition stehende Text angezeigt, ein 
weiterer Tastendruck blendet wieder das Window ein und so 
weiter. 

Befassen wir uns nun mit der Programmierung. In Zeile 270 
wird jeweils ein 111 + 1 = 112 Elemente großes Array T(n) 
dimensioniert. Die »+1« ergibt sich daraus, das die Zählung 
wieder mit Null beginnt. Zwischen Null und 111 liegen 112 
Elemente (T(0). . .T(111)). In diesem Array werden später 
die »unter dem Window liegenden« Zeichen gespeichert. Die 
Größe ergibt sich aus der Anzahl der Spalten des Windows 
multipliziert mit der Anzahl der Zeilen des Windows: 14*8 
= 112 . 

Der an der Windowposition liegende Text muß noch vor der 
Ausgabe des Windows gerettet werden, da er ja durch das 
Window überschrieben wird. Dies erreichen wir in den Zeilen 
420 bis 460. Wie Sie sehen, muß auch dort die computerin¬ 
terne Numerierung, die jeweils um 1 kleiner ist als die, die wir 
gewohnt sind, verwendet werden; deshalb heißt es zum Bei¬ 
spiel in Zeile 430 »4 TO 11«, gemeint sind aber - wie der 
REM-Kommentar dahinter sagt - die Zeilen 5 bis 12 nach der 
mit 1 beginnenden Zählweise. 

In Listing 5 lesen die Zeilen 650 bis 690 den Text wieder 
aus dem Array T(n) ein und schreiben ihn in den Bildschirm¬ 
speicher, in Listing 6 wird dies durch die Zeilen 640 bis 680 
erreic h t 


100 REM ******************************* 


110 REM * * 
120 REM »BEISPIEL—MENUE* 
130 REM * * 
140 REM * MIT WINDOW-TECHNIK * 
150 REM « * 
160 REM * C16,C64,C12B<40-Z.-MODUS» * 
170 REM * * 


180 REM ******************************* 

1?0 : 

200 L=ls 8=1t A=1: REM LEVEL, GESCHWINDIGKEI 
T UND ANZAHL DER SPIELER VORBELEGEN 
210 PRINT CHR* <147); 

220 PRINT TAB(7)"BEISPIELMENUE FUER WINDOWS" 

230 PRINT TAB (7) "-“ 

240 PRINT " {5D0WN}" 

250 PRINT TAB(3);CHRS <1B)" 1 " CHR*(146>;TAB 
(10);"SPIELSTUFE{DOWN}" 

260 PRINT TAB(3>;CHR4(1B)" 2 " CHR$<146) 5 TAB 
(10) 5 "GESCHWINDIGKEIT{DOWN>" 

270 PRINT TAB (3) ; CHR# (18) '* 3 ” CHR* (146) 5 TAB 
(10) 5 "ANZAHL DER SPIELER{DOWN}" 

280 PRINT TAB (3);CHR* < 18) 11 4 " CHR* (146) ;TAB 
<10)j"AUSWAHL BEENDEN{2D0WN}" 

290 REM NACH DEN NORMALEN PRINT-ZEILEN WERD 
EN JETZT DIE WINDOWS GEDRUCKT 
300 s 

310 REM ZUERST DAS COPYRIGHT-WINDOW: 

320 REM ============================ 

330 : 

340 PRINT "{HOME,2D0WN}"; 

360 PRINT "{5RIGHT)COPYRIGHTS{24RIGHT}"; 

370 PRINT "{5RIGHT}= WINDOW: s{24RIGHT}"; 

390 PRINT "{5RIGHT}s<C) 64 *ERsT24RIGHT}"; 

400 PRINT " (5RIGHT} .J»*-»-»»»*»-K " 


410 : 

420 REM NUN DAS LEVEL-WINDOW: 

440 PRINT n {H0ME,5D0WN}"; 

450 PRINT "{22RI6HT,RVS0N,15SPACE,3RIGHT}"j 
460 PRINT "{22RIGHT,RVSON} SPIELSTUFE:"+STR* 
(L)+“ {3RIGHT}"; 

470 PRINT "{22RIGHT,RVSON,15SPACE,RV0FF}” 

480 : 

490 REM UND DAS GESCHWINDIBKEITSWINDOW: 

500 REM =============================== 

510 PRINT “{HOME,10DOWN}"; 

530 PRINT "{28RIGHTIsTEMPO:"+STR#(G)+" sIRIG 
HT } " j 

550 : 

560 REM UND DAS SPIELERZAHL-WINDOW: 

570 REM =========================== 

580 PRINT "{HOME,16D0WN }"5 

590 PRINT "{25RIGHT}*************{2RIGHT}"; 
600 PRINT "{25RIGHT}*"+STR*(A)+" SPIELER *{2 
RIGHT}"j 

610 PRINT "{25RIGHT}*************{DOWN}"+CHR 
*(13) 

620 : 

630 : 

640 PRINT "BITTE ENTSPRECHENDE TASTE DRUECKE 
N ! " 

650 : 

660 GET A*: IF A*="" THEN 660 

670 IF A* = "1" THEN L=L+1: IF L>3 THEN L=1 

680 IF A* = "2" THEN G=G+1: IF B>3 THEN G=1 

690 IF A* =,“3" THEN A=A+1: IF A>2 THEN A=1 

700 IF A* = "4“ THEN END 

710 : 

720 GOTO 290 


Listing 4. Anwendungsbeispiel für mehrere Windows 
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100 REM ******************************* 

110 REM * * 


110 REM * * 

120 REM * ANZEIGE EINES WINDOWS * 


120 REM * ANZEIGE EINES WINDOWS * 

130 REM * * 


130 REM * * 

140 REM * UNTER BERUECKSICHTIGUNG DES * 


140 REM * UNTER BERUECKSICHTIGUNG DES * 

150 REM * * 


150 REM * * 

160 REM * UNTER DEM WINDOW LIEGENDEN * 


160 REM * UNTER DEM WINDOW LIEGENDEN * 

170 REM * * 


170 REM * * 

100 REM * BILDSCHIRMINHALTES * 


180 REM * BILDSCHIRMINHALTES * 

190 REM * * 


190 REM * * 

200 REM ******************************* 


200 REM ******************************* 

210 REM * * 


210 REM * * 

220 REM * C64 UND C12B (40 ZEICHEN) * 


220 REM * C16/116 * 

230 REM * * 


230 REM * * 

240 REM ******************************* 


240 REM ******************************* 

250 s 


250 : 

260 B = 1024: REM BASISADRESSE DES BILDSCHIR 


260 B = 3072: REM BASISADRESSE DES BILDSCHIR 

MSPEICHERS 


MSPEICHERS BEIM C16 

270 DIM T(111>: REM ARRAY ZUM RETTEN DES TEX 


270 DIM T(111): REM ARRAY ZUM RETTEN DES TEX 

TES <S. 350-) 


TES <S. 350-) 

2B0 : 


280 « 

290 GET AS: IF AS="" THEN 290 


290 GET AS: IF AS="" THEN 290 

300 IF AS="N" THEN 350: REM BEI "N" BILDSCHI 


300 IF AS="N" THEN 350: REM BEI "N" BILDSCHI 

RM NICHT ZUFAELLIG BESCHREIBEN 


RM NICHT ZUFAELLIG BESCHREIBEN 

310 : 

320 PRINT CHRS(147); 


310 :. 

320 PRINT CHRS(147); 

330 FOR F=1 TO 999: PRINT CHRS<35+B0*RND(0)> 


330 FOR F=1 TO 999: PRINT CHRS<35+80*RND(0)> 

;: NEXT 


;: NEXT 

340 : 


340 : 

350 REM AN WINDOW-POSITIONEN LIEBENDEN 


350 REM AN WINDOW-POSITIONEN LIEGENDEN 

360 REM TEXT RETTEN 


360 REM TEXT RETTEN 

370 : 


370 : 

3B0 REM DAS WINDOW BEANSPRUCHT: 


3B0 REM DAS WINDOW BEANSPRUCHT: 

390 REM DIE SPALTEN 23-36 


390 REM DIE SPALTEN 23-36 

400 REM I.D. ZEILEN . 5-12 


400 REM I.D. ZEILEN 5-12 

410 : 

420 1=0: REM MIT INDEX 0 BEGINNEN 

430 FOR Z= 4 TO 11: REM ZEILEN : 5-12 

n 

410 : 

42'' 1=0: REM MIT INDEX 0 BEGINNEN 

43to FOR Z= 4 TO 11: REM ZEILEN : 5-12 

440 FOR S=22 TO 35: REM SPALTEN: 23-36 


440 FOR S=22 TO 35: REM SPALTEN: 23-36 

450 T(I)=PEEK<B+40*Z+S): 1 = 1 + 1: REM WERT EIN 


450 T<I)=PEEK(B+40*Z+S>: 1=1+1: REM WERT EIN 

LESEN, INDEX ERHOEHEN 


LESEN, INDEX ERHOEHEN 

460 NEXT S,Z 


460 NEXT S,Z 

470 : 


470 : 

4B0 REM NUN WIRD DAS WINDOW AUSGEGEBEN: 


4B0 REM NUN WIRD DAS WINDOW AUSGEGEBEN: 

490 : 


490 : 

500 PRINT "{HOME,4D0WN>"j 

520 PRINT "<22RIGHT> = >> WINDOW << = <4RIBHT>"; 


500 CHAR ,22, 4," W.*.«.».»JJL*>A»** 5" 

510 CHAR ,22, 5,“ = » WINDOW <<=“ 


520 char ^22 j 6, ■Tattaytaamr 

530 PRINT " t22RIGHTI4RIGHT>"; 


530 CHAR ,22, 7,"d_INKE GR.:23=" 

540 PRINT ”{22RIGHTJJ-INKE GR.:23 = t4RIGHT>”; 


540 CHAR ,22, B, "RECHTE G. :36^" 

550 PRINT "t22RIGHT>^ECHTE G. :36 = t4RIGHT>"; 


550 CHAR ,22, 9,"cOBERE GR.: 5 = " 

560 PRINT "C22RIGHT>zf)BERE GR.: 5-{4RIGHT>"; 
570 PRINT "{22RIGHT>UNTERE G.:12-<4RIBHT>"; 


560 CHAR ,22, 10, "UNTERE G.: 12=:" 

570 CHAR ,72,11,"7«****»*****-*y" 

590 : 


580 : 

590 BET AS: IF AS="" THEN 590 

600 GET AS: IF AS="" THEN 600 


600 : 

610 : 


610 REM NUN WIRD DER TEXT UNTER DEM 

620 REM NUN WIRD DER TEXT UNTER DEM 


620 REM WINDOW WIEDER ANBEZEIGT: 

630 REM WINDOW WIEDER ANGEZEIGT: 


630 : 

640 : 


640 1=0 

650 1=0 


650 FOR Z= 4 TO 11 

660 FOR Z= 4 TO 11 


660 FOR S=22 TO 35 

670 FOR S=22 TO 35 


670 POKE B+40*Z+S,T(I): 1=1+1« REM WERT SCHR 

680 POKE B+40*Z+S,T(I): 1=1+1« REM WERT SCHR 


EIBEN, INDEX ERHOEHEN 

EIBEN, INDEX ERHOEHEN 


6B0 NEXT S,Z 

690 NEXT S,Z 


690 « 

700 : 


700 GET AS: IF AS=“" THEN 700 

710 GET AS: IF A*="" THEN 710 


710 : 

720 : 


720 GOTO 350: REM WIEDER RETTEN UND WINDOW A 

730 GOTO 350: REM WIEDER RETTEN UND WINDOW A 


NZEIGEN 

NZEIGEN 



Llstlng 5. Wlndow-Technlk mit Rettung des Bildschirm- 


Llstlng 6. Window-Technik mit Rettung des Bildschirm- 

Inhaltes auf dem C64 und C128 im 40-Zeichen-Modus 
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Nachdem wir jetzt alle Grundlagen der Window-Program¬ 
mierung in Basic erarbeitet haben, soll auch die Programmie¬ 
rung in Maschinensprache behandelt werden. Damit werden 
wir uns bis zum Ende dieses Kurses befassen. Sollte Ihnen 
etwas nicht klar sein, so können Sie durch das Experimentie¬ 
ren an den Listings ein wenig Erfahrung sammeln. 

Windows in Maschinensprache 


Unser Ziel ist nun, Maschinenroutinen für Windows zu schrei¬ 
ben, die wir in ein Demoprogramm einbinden wollen. Wir wer¬ 
den zwei Routinen entwickeln; die eine nennen wir OUTW, 
die andere PRWIN. 

OUTW soll ähnlich wie die Betriebssystemroutine BASOUT 
($FFD2) funktionieren, nur daß das auszugebende Zeichen 
in das Window und nicht in den Normalbildschirm geschrie¬ 
ben wird; PRWIN soll ein ganzes Window in einem Zug aus- 
drucken. 

Für jedes Window schreiben wir der Einfachheit halber 
eine eigene OUTW- und eine eigene PRWIN-Routine 
(OUTW1/PRWIN1 für Window 1, OUTW2/PRWIN2 für Win¬ 
dow 2). Diese Routinen halten wir so, daß sie leicht an andere 
Windows angepaßt werden können. 

Die fertige Lösung bekommen Sie in Form von Listing 7 
(befindet sich auf der Leserservice-Diskette) vorgestellt. 
Dies ist ein C64-Quelltext vom Assembler Hypra-Ass. Eine 
C128-Entsprechung ist Listing 8; dieser Quelltext wurde mit 
dem Top-Ass erstellt, einem leistungsfähigen Assembler für 
den CI28. Zur C16-Version kommen wir später. 



Listing 7 und Listing 8 (befinden sich nur auf der Leser¬ 
service-Diskette) sind sogar in den Zeilennummern iden¬ 
tisch, allerdings mußten einige Label und Assembler- 
Anweisungen auf den CI28 umgeschrieben werden. Die 
Ähnlichkeit beider Listings kommt auch dadurch zustande, 
daß der Top-Ass eine C128-Weiterentwicklung des Hypra- 
Ass ist. 

Zunächst wollen wir unser Demoprogramm einmal starten. 
Falls Sie einen C128 und Top-Ass haben, assemblieren Sie 
sich Listing 8. C 64 Besitzer assemblieren sich Listing 7 mit 
Hypra-Ass. Der C 128-Quelltext erzeugt beim Assemblieren 
auf Diskette den Objektcode unter dem Filenamen »O«. Mit 
BANK15:B00T»0« können Sie diesen dann starten. Hypra- 
Ass assembliert Listing 7 direkt in den Speicher; mit SYS 
49152 wird der Objektcode gestartet. 

Auf der Programm-Diskette ist der fertige Objektcode 
gespeichert; dies erleichtert Ihnen das Abtippen oder das 
Umschreiben auf andere Assembler. 

Nach dem Start erscheint in dem Window Nummer 1 das 
Menü. Mit < 1 > (Erklärung) wird eine Erklärung ein/ausge¬ 
blendet, mit < 2 > die Bildschirmfarbe geändert (beim C128 
nur die Farbe des 40-Zeichen-Bildschirms!) und mit <3> 
das Programm beendet. 

Die Erklärung erscheint (wie sollte es auch anders sein) in 
einem Window (Window # 2). 

Nun zum C 16-Programm. Die C 16-Version habe ich eben¬ 
falls mit Hypra-Ass auf einem C64 erstellt (wie die 
C64-Version). Dazu müssen nur einige Zeilen geändert wer¬ 
den (Listing 9, befindet sich nur auf der Programm-Service- 
Diskette). Da wohl kaum einer sowohl C16 als auch C64 
besitzt, ist Listing 10 (befindet sich nur auf der Programm- 
Service-Diskette) ein Hex-Dump des Objektcodes, den Sie 
mit dem im C16 eingebauten Monitor eingeben können. Das 
C16-r. gramm wird mit SYS 14848 gestartet. 

Vorher sollten Sie es aber im Monitor mit 
S "FILENAME",Gerät,3A00,3D68 
speichern. 

Befassen wir uns nun mit den Quelltexten; C64-Besitzer 
nehmen bitte Listing 7, die CI28er Listing 8, C16-Fans 
Listing 7 und die Änderungen aus Listing 9 - Zeilenangaben 
haben immer für alle Listings Gültigkeit. 

Zunächst werden die Symbole definiert. ZEILE und 
SPALTE sind Zeropage-Adressen, in denen die aktuelle Cur¬ 
sorzeile und -spalte stehen; da es sich um Betriebssystem- 
Variablen handelt, sind diese von C64 und CI28 verschie¬ 
den. Wir brauchen die Label ZEILE und SPALTE, um später 
die Cursorposition feststellen zu können. 

ZEILE1/SPALTE1 beziehungsweise ZEILE2/SPALTE2 sind 
die Cursorpositionen innerhalb der Windows. Diese werden 
vom Programm laufend neu berechnet. SETCUR ist ein 
Betriebssystem-Einsprung zur Cursorpositionierung; im 
X-Register wird die Zeile, im Y-Register die Spalte übergeben. 
Dann wird der Cursor mit JSR SETCUR nach Wunsch positio¬ 
niert. 

BASOUT und GET sind Kernel-Routinen zur Aus- bezie¬ 
hungsweise Eingabe eines Zeichens. TEMPI ist ein 2-Byte- 
Zwischenspeicher, in dem die PRWIN1/PRWIN2-Routine die 
Endadresse des auszugebenden Textes ablegt. ERKLFLAG 
ist ein Flag dafür, ob der Erklärungstext am Bildschirm steht 
(Inhalt von ERKLFLAG = 0) oder ob er nicht angezeigt ist 
(Inhalt von ERKLFLAG = 1). CLEAR, HOME und CR sind 
ASCII-Codes für einige Steuerzeichen. 

LINKS 1 / RECHTS 1 / OBEN 1 / UNTEN 1 beziehungsweise 
LINKS2 / RECHTS2 / OBEN2 / UNTEN2 sind die Grenzen 
der Windows. LINKS1/LINKS2 und OBEN1/OBEN2 werden 
in der mit 0 beginnenden Numerierung angegeben. Zu 
RECHTS1/RECHTS2 und UNTEN1/UNTEN2 addieren wir 
noch 1 (siehe »+1« in 500, 520, 550, 570). 

Aus diesen Parametern können wir dann in 590/600 die 
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Anzahl der Zeichen in einem Window berechnen und in 
LAENGE1 beziehungsweise LAENGE2 merken. Diese 
Länge ist für die PRWIN-Routinen wichtig, damit sofort fest¬ 
steht, wieviele Zeichen ausgegeben werden müssen. OUT¬ 
PUTBYTE (Zeile 620) ist ein Zwischenspeicher, in dem das 
über eine OUTW-Routine auszugebende Zeichen gespei¬ 
chert wird. 

TEXTPTR ist ein Zeropage-Zeiger für unsere Zwecke, den 
wir von der PRWIN-Routine auf das auszugebende Zeichen 
stellen lassen. 

Mit diesen Erläuterungen und den Kommentaren im Quell¬ 
text dürfte es für Sie kein Problem sein, das Programm zu ver¬ 
stehen. Lediglich zu Zeile 4230 ist noch zu sagen, daß hier 
das ERKLFLAG von 0 auf 1 beziehungsweise von 1 auf 0 
umgeschaltet wird. 

Komfortable Windows 


Damit Sie die Routinen auch für eigene Programme nutzen 
können, wollen wir die Parameterübergabe an OUTW/PRWIN 
besprechen, wie in einem Assembler-Kurs die Benutzung 
einer Betriebssystem-Routine besprochen wird. 

Mit LDA # ASCII-Code des Zeichens 
JSR OUTW ; 

OUTW1 oder OUTW2 

kann ein Zeichen ins Window ausgegeben werden. Nach 
dem Beenden der Routine bekommen Akku, X- und 
Y-Register denselben Wert wieder, den sie vor dem Aufruf 
hatten. Bei den ASCII-Codes sind nur druckende Zeichen, 
das heißt alle Zeichen außer den Steuerzeichen, vorgese¬ 
hen. Die meisten Steuerzeichen führen zu Fehlfunktionen. 
Dennoch sind die Steuerzeichen CLEAR, HOME und CR (CR 

544U* C 


= CARRIAGE RETURN = CHR$(13) in Basic) zugelassen 
und wurden für die Window-Technik modifiziert. Mit HOME 
wird die linke obere Ecke des Windows angesprungen, mit 
CLEAR wird das Window gelöscht und automatisch HOME 
ausgeführt, und mit CR wird an den Anfang der nächsten 
Zeile gesprungen. Um Steuerzeichen wie REVERS ON/OFF 
oder Farbsteuerzeichen auszugeben, muß man diese über 
die normale BASOUT-Routine des Betriebssystems senden; 
die dadurch hervorgerufenen Effekte werden von der OUTW- 
Routine beibehalten, ein durch REVERS ON über BASOUT 
bewirkter Reversdruck gilt also auch für die von OUTW aus¬ 
gegebenen Zeichen. 

Von gleicher Einfachheit ist die Anwendung der PRWIN- 
Routine. In Akku (Low-Byte) und Y-Register (High-Byte) wird 
die Adresse übergeben, ab der der Text des Windows im 
Speicher steht. Am Ende des Textes und im Text sind keiner¬ 
lei Endmarkierungen erforderlich, denn aus den Window- 
Grenzen geht eindeutig hervor, wieviele Zeichen ausgege¬ 
ben werden müssen. Hier werden die Label LAENGE1 und 
LAENGE2 herangezogen. 

Zwei Anwendungen von PRWIN-Routinen sehen Sie in den 
Zeilen 3150 bis 3300 und 3670 bis 3870. 

Das mit Zeile 3880 beginnende Hauptprogramm ist nur 
eine Demonstration der Window-Technik. Das Grundlegende 
sind die Routinen zur Window-Technik. Wenn Sie diese in 
Ihren Quelltext übernehmen wollen, müssen Sie auch die 
Label LINKSn / RECHTSn / OBENn / UNTENn (n ist die 
Window-Nummer) ändern; die Berechnungsformel für LAEN- 
GEn (siehe Zeilen 590/600) muß auch in Ihrem Quelltext ste¬ 
hen, allerdings ist hier kein Umschreiben nötig. 

Nun wünsche ich Ihnen noch viel Spaß mit den Window- 
Routinen und der Window-Technik im allgemeinen. 

(Florian Müller/do) 
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C 64 


Der Blanker 

Geschwindigkeit ist keine Hexerei. Immerhin läßt 
sich die Rechengeschwindigkeit mit dem »Blan¬ 
ker« um sagenhafte 5 Prozent steigern. Bei einer 
Stunde sind das ganze 3 Minuten. Während eines 
Compiler-Durchlaufs macht sich das bereits 
bemerkbar. 

D as ganze Geheimnis dieses Programms ist, daß auf 
Tastendruck der Bildschirm abgeschaltet wird. 
Dadurch unterbricht der VIC den 6510 nicht mehr bei 
seinen Buszugriffen. Das Programm (siehe Listing 2 und 
Flußdiagramm) wird in den Interrupt eingebunden und prüft 
bei jedem dreißigsten Interrupt, ob die Tastenkombination 
<CTRL> <B> gedrückt ist. Ist dies der Fall, wird der Bild¬ 
schirm ab- oder eingeschaltet. So lassen sich Compiler und 
langwierige Berechnungen in Basic beschleunigen. Geben 
Sie »Blanker« (Listing 1) bitte mit dem MSE ein und starten Sie 
ihn mit SYS 49152. Nach RUN/STOP RESTORE oder einem 
Reset ist ein Neustart erforderlich. 

(M. Neetz/og) 


Programm 

i blanker 



C000 C037 

C000 

* 

7B 

a9 

11 

40 

C0 

Bd 

14 

03 

74 

C00B 

1 

Bc 

15 

03 

a9 

le 

85 

b6 

58 

ae 

C010 

: 

60 

a6 

b6 

ca 

06 

b6 

30 

03 

af 

C01B 

s 

4c 

31 

ea 

a9 

le 

B5 

b6 

a5 

21 E4ER 

C020 

i 

cb 

c9 

lc 

d0 

f 3 

a9 

04 

2 c 

e6 

C02B 

i 

Bd 

02 

f0 

ec 

ad 

11 

d0 

49 

c9 

C030 

t 

10 

Bd 

11 

d0 

4c 

31 

ea 

ff 

5f 


Listing 1. »Blanker« geben Sie mit dem MSE ein 


100 

-i *#«**• blanker **•*•* 


110 

-i •* 

written 19B6 by »• 


115 

-| • »* michael naatz 


120 

“1 



130 

-.eq 

irqvec *= «0314 

1 irq-vektor 

140 

-.eq 

taute - «cb 

iaktueller tantencode 

150 

-.eq 

altlrq ■= *ea31 

tadroßae der alten irq-routine 

160 

-.eq 

blank - *d 011 

1vic-register 17 

161 

-.eq 

Ctrl flag = *02Bd 

(flag fuer shift,c»,ctr1 

163 

-.eq 

zaehl » *b6 

1 zaehler 

170 

-1 



180 

ba 

«C000 


185 

—| 



190 

-| initialisierunq 


195 

-1 



200 

- 

«ei 

;Interrupts verhindern 

210 

— 

1 da «<(main) 


220 

— 

ldy aXmain) 


230 

- 

sta irqvec 

;irq-vektor setzen 

240 

— 

•ty irqvec *1 


250 

— 

1 da »30 


260 

- 

ata zaehl 

1 zaehler setzen 

270 

— 

cli 

1 Interrupts zulassen 

280 

— 

rts 


290 

“1 



295 

-| hauptprogramm 


296 

“1 



300 

-main 

ldx zaehl 


310 

— 

dox 


320 

- 

stx zaehl 

1 zaehler dekrementieren 

330 

— 

bmi lab 


340 

-ende 

jmp altirq 

(weiter beim alten irq 

350 

-lab 

1 da «30 


360 

- 

sta zaehl 

1 zaehler setzen 

370 

— 

lda taste 


380 

- 

cmp «28 

(auf "b" pruefon 

390 

— 

bne ende 


391 

- 

lda «04 


392 

- 

bit ctrlflag 

(auf Ctrl-taste pruefen 

393 

— 

beq ende 


400 

— 

lda blank 


410 

- 

eor »16 

(blank-bit flippen 

420 

— 

sta blank 

(und abspeichern 

430 


jmp altirq 

(weiter beim alten irq 


Listing 2. Source-Code, mit Hypra-Ass erstellt zu »Blanker« 
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Initialisierung: 



Flußdiagramm zur Initialisierung des »Blanker« 
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Chetksummer 
64 V3 

Der Checksummer 64 V3 überprüft jede Basic- 
Zeile direkt nach der Eingabe, erkennt Fehleinga¬ 
ben sowie Vertauschungen von Ziffern und 
erspart eine aufwendige Fehlersuche. 

D er Checksummer 64 V3 ist ein kleines Maschinenpro¬ 
gramm, das Sie sofort unterrichtet, ob Sie die jeweilige 
Programmzeile korrekt eingegeben haben. 

So gehen Sie vor: 

1. Programm abtippen und speichern. 

2. Starten mit RUN 

3. Nach kurzer Zeit sehen Sie am Bildschirm: 
CHECKSUMMER 64. CHECKSUMMER AKTIVIERT. AUS¬ 
SCHALTEN MIT POKE 1,55, ANSCHALTEN MIT POKE 1,53, 
READY. 

4. Anschalten des Checksummer 64 V3 mit POKE 1,53. 

5. Test: Geben Sie in einer freien Zeile ein: »1 REM« und 
drücken die RETURN-Taste. Am Bildschirm oben links sollten 
Sie die Prüfsumme <63> sehen. 

6. Geben Sie ein Listing aus unserem Heft ein. Nach jeder 
Zeile wird die Zahl, die im Listing in Klammern < > steht, in 
den Bildschirm eingeblendet. Stimmen die Zahlen nicht über¬ 
ein, so liegt vermutlich ein Eingabefehler vor. 

Die Zahl in den Klammern, und auch die Klammern 
selbst, dürfen beim Abtippen nicht mit eingegeben wer¬ 
den! 

7. Der Checksummer 64 V3 bemerkt auch Vertauschun¬ 
gen von Zahlen und Buchstaben, aber nicht das Fehlen (oder 
Hinzufügen) von Leerzeichen. 

8. Unsere Basic-Listings enthalten keine Steuerzeichen 
mehr. Diese werden ersetzt durch Klartext und stehen zwi¬ 
schen geschweiften Klammern. Deshalb sind weder die 
Klammern noch was dazwischen steht, abzutippen, sondern 
die in Tabelle 1 aufgeführten Tasten zu drücken. Auf Ihrem 
Bildschirm erhalten Sie dann wieder die entsprechenden 
Grafikzeichen. 

9. Alle Grafikzeichen werden ebenfalls ersetzt durch unter¬ 
strichene oder überstrichene Großbuchstaben. 

Unterstrichene Buchstaben bedeuten, daß Sie die 
SHIFTTaste und den angegebenen Buchstaben drücken 
müssen, überstrichene jedoch die Commodore-Taste mit 
dem Buchstaben. 


Auch hier erhalten Sie am Bildschirm das entsprechende 
Grafikzeichen und nicht etwa das im Listing erkennbare Zei¬ 
chen. 

Die Leerzeichen zwischen den einzelnen Basic-Befehlen 
können beim Abtippen entfallen (ohne Einfluß auf die Check¬ 
summe zu nehmen). Dies ist besonders bei speicherkriti¬ 
schen Programmen wichtig. Ebenso müssen Zeilen, die 
mehr als 80 Zeichen pro Zeile enthalten, mit den bekannten 
Abkürzungen für die Basic-Befehle (siehe auch das Hand¬ 
buch zum C 64, Anhang D, Seite 130) eingegeben werden. 

Sie können die Programme auch weiterhin ohne den Check¬ 
summer eintippen. (F. Lonczewski/gk) 

Hinweis: [13 SPACE) bedeutet 13mal die Leertaste drücken 


9 REM #****#**<Ht*«»»#«*********»***** 

10 PRINT"<CLR,11SPACE,RVSONJCHECKSUMMER 64 

V3<RV0FF>" 

11 PRINT"<2D0WN,9SPACE>EINEN MOMENT, BITTE 

•i 

• • • 

12 FOR I=B2B TO B64:READ AsPOKE I,A:PS=PS+ 
A+l:NEXT I 

13 IF PSO5B02 THEN PR I NT" PRUEFSUMMENFEHLE 
R IN ZEILEN 20-22":END 

14 SYS 828:PS=0:FOR 1=58464 TO 58583:READ 
A:POKE I,A:PS=PS+A+1:NEXT I 

15 IF PS<>16267 THEN PRINT"PRUEFSUMMENFEHL 
ER IN ZEILEN 22-30":END 

16 POKE 1,53:POKE 42289,96:POKE 42290,228 

17 PRINT"<4D0WN,9SPACE1CHECKSUMMER AKTIVIE 
RT." 

18 PRINT"L2DOWNJAUSSCHALTEN : POKE1,55" 

19 PRINT"<DOWN>ANSCHALTENC2SPACE>: POKE1,5 
3":NEW 

20 DATA 169,0,133,254,162,1,189,93,3,133,2 
55,160,0,177,254 

21 DATA 145,254,136,208,249,230,255,165,25 
5,221,95,3,208,238,202 

'■ DATA 16,230,96,160,224,192,0,160,2,169, 
0,170,133,254,177 

23 DATA 95,240,40,201,32,208,3,200,208,245 
,133,255,138,41,7 

24 DATA 170,240,14,72,165,255,24,42,105,0, 

202.208.249.133.255 

25 DATA 104,170,232,165,255,24,101,254,133 
,254,76,111,228,192,4 

26 DATA 4B.219,198,214,165,214,72,162,3,16 
9,32,157,1,4,189 

27 DATA 212,228,32,210,255,208,12,0,92,72, 
32,201,255,170,104 

28 DATA 144,1,138,96,202,16,228,166,254,16 
9,0,32,205,189,169 

29 DATA 62,32,210,255,104,133,214,32,108,2 

29.169.141.32.210.255 

30 DATA 76,128,164,9,60,18,19 

6 64'er 

Der Checksummer 64 V3 erkennt auch 
Vertauschungen von Zahlen 


CTRL steht für Control-Taste, so bedeutet (CTRL-A), daß Sie die 

(CYAN) 

Control-Taste 8 4 

Control-Taste und die Taste »A« drücken müssen. Im folgenden steht: 

|PURPLE| 

Control-Taste 8 5 

IDOWN) 

Taste neben rechtem Shift, Cursor unten 

(GREEN) 

Control-Taste 8 6 

(UP) 

Shlft-Taste & Taste neben rechtem Shift; Cursor hoch 

|BLUE| 

Control-Taste 8 7 

(CLR) 

Shift-Taste 8 2. Taste ganz rechts oben 

(YELLOW) 

Control-Taste 8 8 

(INST) 

Shift-Taste 8 Taste ganz rechts oben 

(RVSON) 

Control-Taste 8 9 

(HOME) 

2. Taste von ganz rechts oben 

(RVOFF) 

Control-Taste 8 0 

IDELI 

Taste ganz rechts oben 

(ORANGE) 

Commodore-Taste & 1 

IRIGHT) 

Taste ganz rechts unten 

(BROWN) 

Commodore-Taste 8 2 

(LEFTI 

Shift-Taste & Taste unten rechts 

(LIG.RED) 

Commodore-Taste 8 3 

(SPACE) 

Leertaste 

(GREY 1) 

Commodore-Taste 8 4 

ISHFT-SPCE) 

Shift-Taste 8 Leertaste 

(GREY 2) 

Commodore-Taste 8 5 

(Fl Ibis (F8) 

Funktionstasten 

(LIG.GREEN) 

Commodore-Taste 8 6 

(RETURN) 

Shift-Taste & Return 

(LIG.BLUE) 

Commodore-Taste 8 7 

(BLACK) 

Control-Taste & 1 

(GREY 3) 

Commodore-Taste 8 8 

(WHITEI 

(RED) 

Control-Taste 8 2 

Control-Taste & 3 

Tabelle 1. Die Steuerbefehle In den Llstlngs 
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C 64 


MSE - Abtippen 
sicher und 
leicht gemacht 

Ähnlich wie der »Checksummer« ist auch der 
MSE ein leicht zu bedienendes Hilfsmittel bei der 
Eingabe von Listings, diesmal jedoch bei reinen 
Maschinensprache-Programmen. 

I m Gegensatz zum »Checksummer« aber ist die Eingabe 
nicht ohne den MSE möglich. Der MSE verringert die 
Tipparbeit um ein Drittel und schließt Fehleingaben voll¬ 
kommen aus. Außerdem können Sie die Werte blind einge¬ 
ben, ohne andauernd auf den Bildschirm schauen zu müs¬ 
sen. Dies wird durch akustische Meldungen realisiert. 

MSE ist ein Maschinenspracheditor, mit dem ein Vertippen 
ausgeschlossen ist. Eine abgetippte Zeile wird nur angenom¬ 
men, wenn sie richtig ist. Eine Checksumme am Ende jeder 
Zeile prüft, ob die richtigen Werte in der richtigen Zeile an der 
richtigen Stelle stehen. Wenn nicht, ertönt ein Warnsignal, 
und man beseitigt den Fehler. 

War die Zeile korrekt, erklingt ein Gong, und die nächste 
Zeilennummer wird ausgegeben. Damit ist also auch »blin¬ 
des« Eintippen möglich; Sie können sich voll auf den Text kon¬ 
zentrieren. 

So arbeitet man mit MSE 

Laden und starten Sie MSE. Zuerst wird der Programm¬ 
name und die Start- und Endadresse erfragt. Diese Angaben 
entnehmen Sie dem Kopf des Jeweiligen abgedruckten 
Listings. MSE meldet sich dann mit der Zeilennummer der 
ersten Zeile. 

Wenn Sie die Zeile richtig eingegeben haben, erscheint die 
nächste Zeilennummer und so weiter bis zum Ende. Zum 
Schluß wird das fertige Programm mit »CTRL-S« auf Diskette 
oder Kassette abgespeichert. Dazu sind keine weiteren Anga¬ 
ben mehr erforderlich. Das Programm kann dann ganz normal 
wieder geladen und gestartet werden. Wenn Sie nicht alles auf 
einmal tippen wollen, können Sie jederzeit unterbrechen und 


den eingetippten Teil mit »CTRL-S« abspeichern. Wollen Sie 
Weiterarbeiten, laden und starten Sie MSE wieder. 

Geben Sie auf die Frage nach der Startadresse aber jetzt »L« 
ein, um Ihr Teilprogramm zu laden. Jetzt können Sie mit »CTRL- 
N« die Adresse eingeben, an der Sie weitertippen müssen. 
Wenn Sie sich nicht gemerkt haben, wie weit Sie gekommen 
sind, geben Sie nach dem Laden »CTRL-M« ein. 

Auf die Frage nach der Startadresse antworten Sie mit der 
Anfangsadresse, die links in der Kopfzeile auf dem Bildschirm 
steht. Nun wird Ihr Programm aufgelistet. Mit »SPACE« wird 
das Listen fortgesetzt, mit »STOP« abgebrochen. Das Ende 
Ihres Programmteils erkennen Sie sehr einfach daran, daß nur 
noch der Wert »AA« in der Zeile steht. Die Adresse dieser Zeile 
müssen Sie anschließend mit »CTRL-N« eingeben. Das Pro¬ 
gramm ist nur mit »STOP/RESTORE« zu verlassen. Speichern 
Sie aber vorher unbedingt immer Ihren Text ab. 

Hinweise zum Abtippen 

Vor dem Abtippen oder späteren Wiederladen des MSE- 
Laders müssen Sie unbedingt folgende Zeile eingeben: 
POKE 43,1: POKE 44,32: POKE 8192,0: NEW 

Den MSE-Lader brauchen Sie nur einmal. Nach erfolgrei¬ 
chem Abtippen und Starten mit RUN geht der Lader verloren 
und es wird das endgültige Programm MSE VI.0 erzeugt. So 
gehen Sie vor: 

Starten Sie das Programm mit RUN. Fehlerhafte Zeilen wer¬ 
den angezeigt und müssen korrigiert werden, bis der Lader 
zum »READY« durchläuft. Jetzt müssen Sie das fertige MSE- 
Programm speichern. Dazu brauchen Sie nur »RETURN« zu 
drücken, weil die erforderlichen Angaben schon auf dem 
Bildschirm stehen. (Kassettenbesitzer müssen in Zeile 343 
die letzte Zahl in »1« abändern.) Ab jetzt können Sie »MSE 
VI.0« direkt, also ohne den DATA-Lader, benutzen. MSE VI.0 
wird g iz normal mit »,8« geladen (keine POKEs notwendig). 

(N. Mann/D. Weineck/gk) 


MSE-Befehle: 

DEL 

löscht die letzte Eingabe. 

CTRL-S 

speichert das eingetippte Programm ab. 

L oder CTRL-L 

lädt ein Programm. Start- und Endadresse werden 
automatisch ermittelt. 

CTRL-M 

listet den Speicherinhalt. Abbruch mit STOP-Taste, 
weiter mit Leertaste 

CTRL-N 

erlaubt die Eingabe einer neuen Adresse zum 
Weitertippen. 

CTRL-P 

gibt ein MSE-Listing aut dem Drucker aus. 


100 


<091 > 

KE 198,3 

^•?49> 

110 

REM * * 

<159> 

343 PRINT"<3D0WN>SAVE"CHR*(34)"MSE V1.0"UH 


120 

REM * MSE LADER * 

<206> 

R*(34)",8 

< 171 > 

130 

REM * * 

< 179> 

344 END 

<092> 

220 

REM **************************** 

<211 > 

1000 DATA 00,0B,08,0A,00,9E,32,30,36,31,00 


230 

REM 

<036> 

, 00,00, A2,08, A9,36,85, A4, A9, 1247 

< 119> 

240 

DIM H(75): FOR 1=0 TO 9 

< 113> 

1001 DATA 08,B5,A5,A9,00,85,A6,A9,B0,B5,A7 


250 

H(4B+I)=Ii H(65+1)=1+10:NEXT 

<041> 

,A0,00,Bl,A4,91,A6,C8,D0,F9, 2888 

<054> 

260 

FOR 1=2048 TO 3755 : READ A* 

< 198> 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01 


270 

H=ASC(LEFT*(A*,1>):L=ASC(RIGHT*(A*,1)) 

< 199> 

,4C,00,B0,20,Dl,B1,A9,06,BD, 2787 

< 144> 

280 

D=H(H)* 16+H(L)!S=S+D:POKE I,D 

<219> 

1003 DATA 21,D0,A9,03,8D,20,D0,8D,86,02,A0 


290 

A=A+1:IF A<20 THEN NEXT:A=-1 

< 141 > 

,B3,A9,74,20,FF,B1,A0,B3,A9, 2667 

<237> 

300 

PRINT " ZEILE:";1000+Z; 

<011> 

1004 DATA B9,20,FF,Bl,A0,00,20,CF,FF,99,01 


310 

READ V :Z=Z+1:IF V=S THEN 330 

<21B> 

,02,C8,C9,0D,D0,F5,8B,F0,D2, 2912 

<217> 

320 

PRINT"PRUEFSUMMENFEHLER !“:STOP 

< 138> 

1005 DATA C0,0F,90,02,A0,0E,8C,00,02,20,EA 


330 

IF A<0 THEN 341 

<221 > 

,B1,A0,B3,A9,CF,20,FF,B1,20, 2323 

<013> 

340 

S=0:A=0:PRINT:NEXT 

<046 > 

1006 DATA 8E,B4,85,FC,85,62,20,BE,B4,85,FB 


341 

PRINT"<CLR JPA43,1:PA4 4,8:PA45,172: PA46 
,14 

<010> 

,85,61,20,A7,B4,D0,20,A0,B3, 2864 

1007 DATA A9,E5,20,FF,B1,20,8E,B4,85,60,20 

<199> 

342 

POKE 631,19:POKE 632,13:POKE 633,13:PO 


,8E,B4,85,5F,20,A7,B4,D0,0A, 2624 

<091> 

Der MSE zum bequemen Abtippen von Maschinenprogrammen 
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C64 


EINGABEHILFEN 


1008 DATA AS, 61, CS, 5F, AS, 62 , ES, 60, *70,06,20 

,43,B3,4C,3A,B0,A9,AA,A0,00, 2379 <167> 

1009 DATA 91,FB,E6,FB,D0,02,E6,FC,20,3F,B2 

,90,EF,4C,FB,B4,A2,02,86,58, 3118 <152> 

1010 DATA A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0 

,FB,C9,30,90,0C,C9,47,B0,08, 2970 <231> 

1011 DATA C9,3A,90,0B,C9,41,B0,07,C9, 14,D0 

,0F,4C,0B,B1,20,D2,FF,A6,58, 2322 <121> 

1012 DATA 95,F7,C6,5B,D0,D2,60,AE,8D,02,F0 

,26,C9,0C,D0,03,4C,0B,B6,C9, 2685 <057> 

1013 DATA 13,D0,03,4C,BB,B5,C9,0D,D0,03,4C 

,BA,B4,C9,10,D0,03,4C,6B,B5, 2282 <225> 

1014 DATA C9,0E,D0,06,20,5F,B4,4C,64,B1,4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <20B> 

1015 DATA 0A,0A,B5,F9,A5,FB,20,02,B1,05,F9 

,60,C9,3A,90,02,69,08,29,0F, 1950 <092> 

1016 DATA 60,A6,59,E0,08,90,1F,A6,58,E0,02 

,B0,06,20,D2,FF,4C,8E,B0,C6, 2509 <1B8> 

1017 DATA 59,A0,14,A9,92,20,F2, B1,CA,D0,FA 

,84,57,68,68,4C,8B,Bl,A6,D3, 2891 <197> 

1018 DATA E0,08,B0,03,4C,92,B0,20,D2,FF,A6 

,58,E0,02,90,09,C6,59,20,02, 2468 <049> 

1019 DATA FF,C6,58,D0,F9,4C,BE,B0,48,4A,4A 

,4A,4A,20,59,B1,68,29,0F,C9, 2419 <035> 

1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2 

,FC,9A,20,D1,B1,20,48,B2,20, 2261 <073> 

1021 DATA EA,B1,20,9F,B2,A5,FC,20,4E,B1,A5 

,FB,20,4E,B1,20,ED,Bl,A9,3A, 2860 <148> 

1022 DATA A0,20,20,F2,B1,A9,00,85,59,20,8E 

,B0,20,ED,B1,A4,59,20,EF,B0, 2530 <233> 

1023 DATA 91,FB,CB,84,59,C0,08,90,EC,20,10 

,B2,A9,12,20,D2,FF,20,8E,B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9 

,14,A0,14,20,F2,B1,4C,A2,B1, 2665 <034> 

1025 DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2 

,20,3F,B2,90,9F,4C,BB,B5,A9, 2648 <123> 

1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00,D8 

,9D,00,D9,9D,00,DA,9D,00,DB, 2476 <237> 

1027 DATA E8,D0,EF,60,A9,0D,2C,A9,20,4C,D2 

,FF,20,D2,FF,98,4C,D2,FF,20, 2965 _ <160> 

1028 DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00 

,Bl,5C,F0,06,20,D2,FF,CS,D0, 3100 <077> 

1029 DATA F6,60,A5,FB,85,5A,A0,00,84,SB,B1 

,FB,18,65,5A,85,5A,90,02,E6, 2606 <156> 

1030 DATA 5B,06,5A,26,5B,C8,C0,08,90,EC,A5 

,5A,65,5B,B5,FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69,08,85,FB,90,02,E6,FC,60,A5,FB 

,C5,5F,A5,FC,E5,60,60,A0,B3, 3106 <1B3> 

1032 DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20 

,D2,FF,CC,00,02,CB,90,F4,A9, 2692 <09B> 

1033 DATA 10,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E,B1,A5,61,20,4E, 2453 <236> 

1034 DATA Bl, 20, ED , B1, A5,60,20,4E, B1, A5,5F 

,20,4E,B1,A9,9F,20,D2,FF,20, 2575 <038> 

1035 DATA EA,Bl,24,5E,10,01,60,A9,12,20,02 

,FF,A2,28,20,ED,Bl,CA,D0,FA, 2646 <161> 

1036 DATA A9,92,4C,D2,FF,A5,D6,C9,16,B0,01 

,60,A9,A0,85,A4,A9,78,85,A6, 2945 <204> 

1037 DATA A9,04,85,A5,85,A7,A2,13,A0,27,B1 

,A4,91,A6,88,10,F9,CA,F0,19, 2671 <20B> 

1038 DATA 18,A5,A4,69,28,85,A4,90,02,E6,A5 

,18,A5,A6,69,28,85,A6,90,E0, 2503 <251> 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,BD,18,D4,A9,00,BD,05,D4, 2776 <000> 

1040 DATA A9 , F7,8D , 06 , D4 , A9 ,11, 8D, 04 , D4 , A9 

,32,8D,01,D4,A9,00,80,00,D4, 2413 <126> 

1041 DATA A0,80,20,09,B3,A9,10,BD,04,D4,60 

,A2,FF,CA,D0,FD,88,D0,F8,60, 2914 <240> 

1042 DATA A9,0F,8D,18,D4,A9,2D,BD,05,D4,A9 

,A5,BD,06,D4,A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9,07,8D,01,D4,A9,05,8D,00,D4,A0 

,FF,20,09,B3,A9,20,8D,04,D4, 2250 <078> 

1044 DATA A9,00,8D,01,D4,8D,00,04,60,38,20 

,F0,FF,BA,48,98,48,18,A0,06, 2179 <175> 

1045 DATA A2,18,20,F0,FF,A0,B4,A9,0A,20,FF 

,Bl,20,12,B3,20,E4,FF,F0,FB, 2931 <093> 

1046 DATA A2,1D,A9,14,20,D2,FF,CA,D0,FA,6B 

,A8,68,AA,18,4C,F0,FF,0D,0D, 2704 <0B8> 

1047 DATA 0D,20,20,20,20,20,20,20,40,41,53 

,43,48,49,4E,45,4E,53,50,52, 1144 <216> 

1048 DATA 41,43,48,45,20,2D,20,45,44,49,54 

,4F,52,20,0D,0D,20,20,20,20, 1023 <030> 


1049 DATA 20,20,20,20,56,4F,4E,20,4E,2E,4D 

,41,4E,4E,20,26,20,44,2E,57, 1128 <206> 

1050 DATA 45,49,4E,45,43,4B,00,0D,0D,0D,20 

,20,20,50,52,4F,47,52,41,40, 1102 <117> 

1051 DATA 4D, 4E, 41,4D, 45,20,3A, 20,00,0D, 0D 

,20,20,20,53,54,41,52,54,41, 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,0D,0D,20,20,20,45,4E,44,41, 1014 <129> 

1053 DATA 44,52,45,53,53,45,20,20,20,3A,20 

,24,00,92,05,20,50,52,4F,47, 1171 <217> 

1054 DATA 52,41,4D,4D,20,3A,20,00,12,20,20 

,2A,2A,2A,20,46,41,4C,53,43, 1024 <027> 

1055 DATA 48,45,20,45,49,4E,47,41,42,45,20 

,2A,2A,2A,20,20,92,00,0D,0D, 1058 <098> 

1056 DATA 2A,2A,2A,20,45,4E,44,45,20,2A,2A 

,2A,00,13,05,20,20,12,44,92, 920 <148> 

1057 DATA 49,53,4B,20,4F,44,45,52,20,12,54 

,92,41,50,45,0D,00,13,20,20, 1151 <035> 

1058 DATA 49,2F,4F,20,2D,20,46,45,48,4C,45 

,52,00,20,D1,B1,20,48,B2,A0, 1606 <012> 

1059 DATA B3,A9,CF,20,FF,B1,20,8E,B4,85,FC 

,20,8E,B4,85,FB,C5,61,A5,FC, 3207 <251> 

1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5 

,60,B0,19,20,A7,B4,D0,14,60, 2860 <112> 

1061 DATA 20,A7,B4,F0,0C,85,F9,20,A7,B4,F0 

,05,85,FB,4C,EF,B0,68,68,20, 2749 <0BB> 

1062 DATA 43,B3,4C,5F,B4,20,CF,FF,C9,4C,D0 

,09,20,D1,B1,20,48,B2,4C,0B, 2372 <046> 

1063 DATA B6,C9,0D,60,A9,00,85,5E,20,5F,B4 

,20,EA,B1,20,0D,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20,E4,FF,F0,FB,20,E1,FF,F0,26 

,20,9F,B2,24,5E,10,09,20,4E, 2435 <198> 

1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20 

,3F,B2,90,D7,A0,B4,A9,28,20, 2190 <207> 

1066 DATA FF,Bl,20,E4,FF,C9,0D,D0,F9,A9,00 

,85,5E,A5,61,85,FB,A5,62,85, 3056 <240> 

1067 DATA FC,20,E0,B2,4C,64,B1,A5,FC,20,4E 

,B1,A5,FB,85,FF,20,4E,B1,A9, 3003 <221> 

1068 DATA 20,A0,3A,20,F2,B1,A0,00,20,ED,Bl 

,B1,FB,20,4E,B1,CB,C0,08,90, 2566 <070> 

1069 rwvTA F3,20,ED,Bl,24,5E,30,03,A9,12,2C 

20,20,D2,FF,20,10,B2,A5, 2190 <059> 

1070 DATA FF,20,4E,B1,A9,92,20,D2,FF,4C,EA 

,B1,A9,FF,85,B8,85,B9,A9,04, 3073 <029> 

1071 DATA 85,BA,20,C0,FF,A2,FF,4C,C9,FF,20 

,CC,FF,A9,FF,4C,C3,FF,20,5F, 3315 <189> 

1072 DATA B4,A9,80,85,5E,20,4E,B5,20,48,B2 

,A2,24,A9,2D,20,D2,FF,CA,D0, 2596 <111> 

1073 DATA FA,20,EA,B1,20,EA,B1,20,60,B5,4C 

,C1,B4,20,BB,B5,A6,5F,A4,60, 2812 <015> 

1074 DATA A9,61,20,D8,FF,B0,0A,20,B7,FF,29 

,BF,D0,03,4C,FB,B4,A9,01,20, 2577 <201> 

1075 DATA C3, FF, 20,68, B6, A0, B4, A9,4F , 20, FF 

,Bl,20,F9,B1,4C,FB,B4,20,68, 2921 <237> 

1076 DATA B6,A9,37,A0,B4,20,FF,B1,20,F9,B1 

,A2,08,C9,44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54,D0,F1,A9,01,A8,20,BA,FF,A0,00 

,E0,01,F0,1A,A9,40,80,20,02, 2403 <101> 

1078 DATA A9,3A,BD,21,02,B9,01,02,99,22,02 

,CB,CC,00,02,90,F4,CB,C8,D0, 2182 <127> 

1079 DATA 0C,B9,01,02,99,20,02,CB,CC,00,02 

,D0,F4,98,A2,20,A0,02,4C,BD, 2018 <025> 

1080 DATA FF , 20 , B8 , B5 , A5 , BA , C9,08,90,33 , A6 

,B9,86,57,A9,01,20,C3,FF,A9, 2800 <022> 

1081 DATA 60,85,B9,20,C0,FF,B0,28,A5,BA,20 

,B4,FF,A5,B9,20,96,FF,20,A5, 2911 <053> 

1082 DATA FF,85,61,A5,90,4A,4A,B0, 13,20,A5 

,FF,85,62,20,AB,FF,A5,57,85, 2663 <214> 

1083 DATA B9,A9,00,20,D5,FF,90,03,4C,A3,B5 

,86,5F,84,60,AS,BA,C9,01,D0, 2639 <131> 

1084 DATA 0A,AD,3D,03,85,61,AD,3E,03,85,62 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120> 

1085 DATA IC,20,ED,Bl,CA,D0,FA,60, 1230 <214> 

© G4'er 


MSE (Schluß). Dieses Listing können Sie (müssen 
aber nicht) mit dem Checksummer 64 V3 In 
diesem Heft eingeben. 
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EINGABEHILFE 


C 128 


Chedtsummer 
für C128 

Auch für den C128 gibt es jetzt eine Eingabehilfe. 
Der Checksummer 128 erkennt Fehler, die Sie 
beim Eintippen gemacht haben. Dadurch erspa¬ 
ren Sie sich eine aufwendige Fehlersuche. 

D er Checksummer 128 ist ein Maschinenprogramm, das 
Sie nach jeder eingegebenen Basic-Zeile unterrichtet, 
ob bei der Eingabe Fehler gemacht wurden oder nicht. 
Zu diesem Zweck steht rechts neben jeder Basic-Zeile 
eine Prüfsumme in eckigen Klammern. Beim Abtippen von 
C128-Listings dürfen Sie weder die Klammern noch die Prüf¬ 
summe mit eingeben. 

Der Checksummer 128 ermittelt, nachdem Sie eine Basic- 
Zeile mit < RETURN > eingegeben haben, eine Prüfsumme 
und zeigt sie am Bildschirm in der oberen linken Ecke an. 
Wenn diese Zahl mit der Prüfsumme neben dem Listing über¬ 
einstimmt, ist alles in Ordnung. Falls nicht, haben Sie einen 
Fehler gemacht und können ihn sofort verbessern. 
Eingabehinweise 
So gehen Sie vor: 

1. Tippen Sie das Listing »Lader.Checksummer 128« ab. 

2. Speichern auf Diskette oder Kassette. 

3. Starten mit RUN. 

4. Am Bildschirm werden die Zeilennummern ab 1000 der 
Reihe nach geLISTet. Ein Fehler beim Abtippen wird mit gro¬ 
ßer Wahrscheinlichkeit erkannt. Wenn die Meldung »ZEILE 
xxxx PRUEFSUMMENFEHLER ! xxxx« erscheint, haben Sie 
in der Zeile xxxx einen Fehler gemacht, den Sie sofort korri¬ 
gieren können. Danach erneut mit RUN starten. 

5. Wenn der Lader.Checksummer 128 fehlerfrei durchge¬ 
laufen ist, kann er mit SYS 2820 gestartet werden. Eine Mel¬ 
dung wird nicht ausgegeben. Das Listing wird dabei 
gelöscht. 

6. Geben Sie zur Kontrolle ein: 2 REM und drücken 
< RETURN >. Am Bildschirm sollte oben links die Prüf¬ 
summe <68P> erscheinen. 

7. Im Speicher steht jetzt der fertige Checksummer 128 als 
Maschinenprogramm. Damit Sie in Zukunft nicht mehr den 
Lader benutzen brauchen, speichern Sie sich das Maschi¬ 
nenprogramm auf Diskette oder Kassette. Gehen Sie so vor: 

8. Rufen Sie mit <F8> den Monitor auf. Geben Sie dann 
ein: 

S"checksuml28.2820 ", 08 0b22 0d64 
Bei Kassettenbetrieb muß anstatt »,08« »,01« eingegeben 
werden. Der Checksummer 128 wird jetzt unter dem Namen 
»checksuml 28.2820« gespeichert und kann mit demselben 
Namen und ,8,1 geladen werden. Die 2820 im Namen zeigt 
Ihnen auch in Zukunft, daß das Programm mit SYS 2820 
gestartet wird. 

So geben Sie die Listings ein 

In unseren Listings finden Sie keine Steuer- und Grafikzei¬ 
chen mehr. Sie wurden ersetzt durch Klartext. Aus dem 
reversen Herzen für Bildschirm löschen wird nun zum Bei¬ 
spiel (CLR). Das heißt, Sie dürfen nicht die Klammern einge¬ 
ben und die Buchstaben CLR, sondern Sie sollen die Taste 
<CLR> drücken. Weitere Informationen finden Sie im Arti¬ 
kel »Checksummer 64 V3«. 

Hinweis für C64-Besitzer 

Auch als »nur« C64-Besitzer können Sie diesen Check¬ 
summer benutzen. Er ist so ausgelegt, daß er auf beiden 
Computern sowohl im CI28- als auch im C64-Modus läuft. 


1 REM ******************************** 

2 REM * ++ CHECKSUMMER 128/64++ * 

3 REM * GERD MOELLMANN * 

7 REM ******************************** 

8 t 

9 J 

10 DIM H(75) : FÜR 1=0 TO 9 

20 H<48+1)=1 s H(65+1)=1 + 10 s NEXT 
30 FOR 1=2850 TO 3428 : READ A* 

40 H=ASC(LEFT*<A*,1>):L=ASC<RIGHT*<A*,1> > 
50 D=H<H)*16+H(L) i S=S+D*<A+l)a POKE I,D 

60 A=A+1:IF A<9 THEN NEXT « A=-l 

65 PRINT "ZEILE:1000+Zj 

70 READ V : Z=Z+1 : IF V=S THEN 85 

80 PRINT" PRUEFSUMMENFEHLER ■";999+ZlSTOP 

85 IF A<0 THEN END 

90 S=0 : A=0 : PRINT : NEXT : END 
95 : 

1000 DATA 4C,2A,0B,00,00,00,00,00,A9, 1714 

1001 DATA 00,8D,00,FF,A9,0D,20,D2,FF, 6424 

1002 DATA AD,CF,41,C9,56,D0,11,AD,D0, 6639 

1003 DATA 41,C9,37,D0,0A,AD,D1,41,C9, 6344 

1004 DATA 2E,D0,03,A9,FF,2C,A9,00,8D, 5138 

1005 DATA 25,0B,AA,D0,0B,BD,64,0D,A9, 4627 

1006 DATA 65,85,2B,A9,0D,85,2C,20,CD, 4444 

1007 DATA 0B,A9,6C,8D,02,03,A9,0B,8D, 3B05 

1008 DATA 03,03,2C,27,0B,10,06,EE,27, 2745 


Bevor Sie den Lader.Checksummer 128 abtippen oder 
laden, müssen Sie folgende Zeile eingeben: 

POKE 4-?, 0: POKE 44,16: POKE 4095,0: NEW < RETURN > 
Anschließend verfahren Sie genauso wie oben schon 
beschrieben. Da Sie jedoch keinen eingebauten Monitor 
besitzen, müssen Sie einen anderen nehmen, zum Beispiel 
den SMON. 

Der Checksummer 128 wird in Zukunft den Checksummer 
64 V3 ablösen, da er erstens für beide Computer geschrie¬ 
ben wurde, zweitens besser ist und last not least, weil zwei 
Checksummer-Listings Platz kosten. (gk) 
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C 128 


EINGABEHILFE 


1009 DATA 

1010 DATA 

1011 DATA 

1012 DATA 

1013 DATA 

1014 DATA 

1015 DATA 

1016 DATA 

1017 DATA 
1010 DATA 

1019 DATA 

1020 DATA 

1021 DATA 

1022 DATA 

1023 DATA 

1024 DATA 

1025 DATA 

1026 DATA 

1027 DATA 
1020 DATA 

1029 DATA 

1030 DATA 

1031 DATA 

1032 DATA 

1033 DATA 

1034 DATA 

1035 DATA 

1036 DATA 


0B,4C,35,0D,2C,26,0B,10,03, 
4C ,F9, 0C , 20 , A4 , 0B , 20 , AF , 0B , 
20,C2,0B,AA,F0,E1,B0,0C,CE, 
26,0B,20,E3,0B,20,AF,0B,20, 
C2,0B,2C,25,0B,30,03,4C, 94 , 
A4,4C,D7,4D,2C,25,0B,30,03, 
4C,60,A5,4C,93,4F,A9,FF,A2, 
01,2C,25,0B,30,05,05,7A,86, 
7B,60,85,3D,86,3E,60,2C,25, 

OB, 30,03,4C,73,00,4C,80,03, 
2C,25,0B,30,03,4C,44,A6,4C, 
D9,51,2C,25,0B,30,03,4C,13, 
A6,4C,64,50,2C,25,0B,30,06, 
20,6B,A9,4C,F1,0B,20,A0,50, 
A2,00,2C,25,0B, 1 0,02,A2,02, 
B5,15,85,AA,B5,14,85,A9,60, 
A9,00,B5,A7,85,A8,A9,FF,85, 
FC,A9,07,85,FD,20,9D,0C,F0, 

FB, C9,30,90,17,C9,3A,B0,13, 
20,8E,0C,4C,U,0C,20,9D,0C, 
D0,08,20,9D,0C,F0,FB,A2,01, 
2C,A2,00,C9,52,D0,26,20,9D, 

OC, C9,45,D0,17,20,9D,0C,C9, 
4D,D0,08,20,9D,0C,C9,3A,D0, 
F9,60,A5,FC,D0,02,C6,FD,C6, 

FC, A5,FC,D0,02,C6,FD,C6,FC. 
A5,FC,D0,02,C6,FD,C6,FC,BA, 
F0,05,A9,3A,20,8E,0C,20,9D, 


1054 

3347 

6865 

2912 

2800 

2199 

6957 

3627 

3357 

2570 

3302 

1802 

1895 

4552 

1921 

5474 

7329 

5955 

4679 

2401 

5510 

4765 

4764 

5245 

8188 

8991 

8453 

3754 


1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 


DATA 0C,C9,20,F0,F9,C9,3A,F0,Bl, 
DATA C9,22,F0,06,20,BE,0C,4C,6D, 
DATA 0C,20,8E,0C,20,9D,0C,C9,22, 
DATA D0,F6,F0,EE,06,A7,26,A8,08, 
DATA 46,A7,28,26,A7,45,A7,85,A7, 
DATA 60,E6,FC,D0,02,E6,FD,A0,00, 
DATA Bl,FC,F0,07,C9,20,F0,02,C9, 
DATA 3A,60,6B,68,60,A5,A8,45,A7, 
DATA 85,A8,20,BF,0C,20,BF,0C,A9, 
DATA 00,A2,04,06,A7,26,AB,2A,CA, 
DATA 10,F8,C9,0A,90,02,69,06,69, 
DATA 30,4C, D2 , FF, A9,00,8D, 00, FF , 
DATA 38,20,F0,FF,BA,48,A9,13,20, 
DATA D2,FF,A9,3C,20,D2,FF,20,B3, 
DATA 0C,A9,3E,20,D2,FF,68,AA,18, 
DATA 4C,F0,FF,AD,27,03,48,AD,26, 
DATA 03,48,A9,49,8D,26,03,A9,0D, 
DATA BD,27,03,2C,25,0B,10,03,A2, 
DATA 02,2C,A2,00,A5,A9,95,14,A5, 
DATA AA,95,15,20,D8,0B,A9,00,BD, 
DATA 28,0B,2C,25,0B,30,08,CE,27, 
DATA 0B,A0,02,4C,D8,A6,20,FB,50, 
DATA 20,03,0C,EE,26,0B,68,8D,26, 
DATA 03,68,8D,27,03,20,D6,0C,4C, 
DATA 6C,OB,85,AB,8A,4B,AE,28,0B, 
DATA A5,AB,C9,0D,D0,02,A9,00,9D, 
DATA 00,08,EE,28,0B,68,AA,A5,AB, 
DATA 18,60,41, 411 


7840 

3698 

3650 

5086 

5661 

6585 

6131 

5679 

4535 

4753 

3615 

5977 

4605 

6539 

5548 

4456 

3369 

2249 

5103 

4257 

2740 

5645 

3480 

3275 

3972 

4810 

5618 


Listing. »Lader.Checksummer 128« für den Commodore 128 


Ausführliche Informationen 
zu ausgewählten Themen finden 
C64-Anwender in zwei 
weiteren aktuellen 


64’er 


SONDERHEFTEN 


s 

0NDERHE 

FT: GRA 

FIK 


SONDERHEFT 05/86: C64-GRUNDWISSEN 



Grafik-Programmierung des C64, C128 und C128 im 
C64-Modus. Schwerpunktthema: »Giga-CAD« — ohne kompli¬ 
zierte Berechnungen am Bildschirm dreidimensional konstru¬ 
ieren. Mit »Giga-CAD« lassen sich Grafiken mit einer Auflö¬ 
sung von 640 x 400 oder 1000 x 640 Punkten berechnen 
und konstruieren. Jede 
Menge Spitzen-Listings 
zum Abtippen: Sprite-Edi- 
tor mit Animationseffekt / 

Erweiterungen zu Hi-Eddi 
/ Die schnellste Grafik-Er¬ 
weiterung / Routinen zum 
Ein- und Überblenden von 
Grafik-Bildern im HiRes- 
Modus / Hardcopies für 
Koala-Pad- und Blazing- 
Paddles-Bilder / Eine 
Basic-Erweiterung für 
Seikosha-Drucker / Plot- 
und Sprite-Basic. 


~ Jetzt für 
DM 14,- überall 
im Zeitschriften* 
Handel! 



Nur noch bis 
28.07.86 
erhältlich! 


Umfassendes Grundlagenwissen zum C64 hilft Einsteigern. 
U.a. werden Speicheraufbau, Ports und Floppy mit Datenspei¬ 
cherung/Verwaltung erklärt Dazu eine Erläuterung der wich¬ 
tigsten Begriffe. Informationen und Ratschläge helfen Ihnen 
bei der Auswahl des besten und presiwertesten Druckers für 
Ihren C64. Mit unserer 
Einführung in die Ba- 
sic-Programmierung fin¬ 
den Anfänger den richti¬ 
gen Einstieg. Eine Zu¬ 
sammenstellung der 
wichtigsten Hilfspro¬ 
gramme erleichtert Ih¬ 
nen das Programmieren. 

Die Rubriken »Fragen 
und Antworten«, »Peek-, 

Poke- und SYS-Kiste« 
sowie die vielen 
»Tips&Tricks« helfen Ein¬ 
steigern. 


QSSa? 
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TIPS&TRICKS 


C 64 


Apfelmännchen sind 
nicht nur als Ebene 
darstellbar. Zeichnen 
Sie sie mit 
dreidimensionalen 
Effekten und 
in räumlicher Tiefe. 
Die Grafiken sehen 
aus wie Hochhaus¬ 
oder Gebirgsland¬ 
schaften. 



V ergleichen Sie das nebenstehende Bild mit einem 
Apfelmännchen aus Ausgabe 11/85, wird Ihnen die 
dem Programm zugrunde liegende Idee sofort auffal¬ 
len. Die Anzahl der Iterationen bestimmt nun nicht mehr einen 
Farbwert, vielmehr stellt sie die Höhe eines Punktes über der 
Ebene dar. Die Höhe wird als Balken gezeichnet. Dabei 
besteht jeder Balken aus einer dunklen Vorderseite, einer 
etwas helleren rechten Seite und einer hellen Oberseite Da 
diese Balken von links nach rechts und von hinten nach vorne 
aneinandergefügt werden, benötigt das Programm keinen 
Algorithmus zur Berechnung verdeckter Linien. 

Das Programm »FRACTALBERGE« (siehe Listing 1) ist für 
Simons Basic geschrieben. Benötigt werden jedoch nur die 
Befehle zum Einschalten der Grafik und zum Zeichnen der 
Linien. Die das Bild bestimmenden Parameter sind in den Zei¬ 
len 5 bis 7 enthalten (Listing 2) und gliedern sich wie folgt. 
Zeile 5: Festlegen der Farben, Gesamtgröße des Bildes 
Zeile 6: Komplexe Parameter, Maximale Anzahl der Iteratio¬ 
nen, maximale Höhe der Balken 
Zeile 7: Ausschnitt des Bildes festlegen 
Es wird immer ein rechteckförmiger Ausschnitt der Fractal- 
ebene dargestellt .(Bild 1). Die Parallel-Perspektive entsteht 
durch das Verschieben jeder Zeile gegenüber der vorherge¬ 
henden um einen halben Bildpunkt nach links. Die Laufzeit 
beträgt im Durchschnitt über eine Stunde und ist je nach Bild 
nach oben beliebig offen. (G.Paret/og) 



Bild 1. Apfelmännchen, fast wie ein Hochplateau 


5 HIRES1,0:C0L0UR6,6 s MULT17,10,0 s XM=105 s YM=105 


5 HIRES 1,0sCÜLOUR 0,0:MULTI 7,10,9sXM=105:YM=105 

6 XC=lsYC=0sT=20sS=60 


6 XC=.77sYC=.6sT=22sS=40 

7 XL—.15sXR=.26sY0=.47sYU=.9 


7 XL—1.4sXR=1.4sY0—.9sYU=1.2 

B DX=<XR-XL)/XMsDY=<YU-YO>/YM 


B DX=(XR-XL)/XMsDY=<YU-YO)/YM 

9 FORN=0TOYM:Yl=YO+N*DYs FORM=0TOXM:X=XL+M*DXs Y=Y1: 


9 FORN=0TOYMs Yl=YD+N*DYs FORM=0TOXMs X=XL+M*DXs Y=Y1s 

K=0 


l<=0 

10 X2=X#XsY2=Y»YsY=2*X»Y-YCsX=X2-Y2-XCsK=K-UsIF<K< 


10 X2=X«Xs Y2=Y*Ys Y=2*X*Y—YCsX=X2-Y2-XCs K-K+lsIF <K< 

T)AND(X2+Y2< S)THEN10 


T)AND(X2+Y2< S)THEN10 

11 U=M+53-N/2s U1=U+1:V=N+B0:V1=V-3«(K-1) 


11 U=M+53—N/2s U1=U+1s V=N+80s V1=V-3* <K-1> 

12 LINE U,V,U,Vl,3sLINE Ul,V,U1,V1,2iLINE U,V1,U1, 


12 LINE U,V,U,V1,3sLINE Ul,V,U1,V1,2sLINE U,V1,U1, 

VI,1 


VI,1 

13 NEXTsNEXT 


13 NEXTsNEXT 

14 WAIT 198,255 


14 WAIT 198,255 


Listing 1. »FRACTALBERGE« ist in Simons Basic geschrieben. Listing 2. Ein Beispiel für andere Parameter, 
Die Parameter entsprechen dem oberen Bild entsprechend Bild 1 


-onlme.de 
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C 64 


TIPS&TRICKS 


Basic- 

Programme 

kürzen 

Mit Hilfe dieses kleinen Programms können Sie 
Speicherplatz bei Basic-Programmen sparen. Es 
entfernt alle überflüssigen Bytes aus Ihrem 
Programm. 

D ieses Programm verkürzt jedes Basic-Programm, 
indem nicht benötigte Leerzeichen, REM-Zeilen und so 
weiter aus dem Programm entfernt werden. Zusätz¬ 
lich können als Option die Basic-Zeilen, die Editor-bedingt 
nur 88 Zeichen lang sein können, auf bis zu 255 Zeichen pro 
Zeile zusammengeschoben werden. Dies ist gelegentlich 
notwendig, wenn Sie zum Beispiel ein Adreß- oder Dateiver¬ 
waltungsprogramm geschrieben haben und dieses zur bes¬ 
seren Übersichtlichkeit gut mit REM-Zeilen dokumentierten. 
Im nachhinein stellen Sie aber fest, daß Ihnen Ihr Speicher für 
die Variablen nicht mehr ganz ausreicht (OUT OF MEMORY 
ERROR) und Sie dringend Platz benötigen. 

In diesem Falle hilft es Ihnen, das Hauptprogramm zu ver¬ 
kürzen, indem Sie alle nicht benötigten Bytes entfernen. Dies 
sind REM-Zeilen, nicht benötigte Spaces (Leerzeichen) oder 
ähnliches. Ebenfalls hilft es, die Basic-Zeilen neu zu »linken«, 
also mehrere Zeilen zu einer einzigen neu zu binden. Hierbei 
entfallen pro gesparter Zeilennummer 4 Byte für die Zeilen¬ 
nummer und den Linkpointer auf die nächste Zeile. 

Dadurch kann oft sehr viel Speicherplatz gespart werden. 


Danach ist das Programm zwar nicht mehr editierbar und 
die Lesbarkeit des Programms hat auch etwas gelitten, aber 
es läuft genauso (meist sogar etwas schneller) wie das Origi¬ 
nal (bedingt dadurch, daß der Interpreter jetzt nicht mehr 
soviel Programm »durchforsten« mußiund außerdem hat man 
noch Speicherplatz gespart. 

Und das ist bei vielen Basic-Programmen ja auch der 
Effekt, den man erreichen will. 

Eingabehinweise 

Das Programm (Listing 1) geben Sie bitte mit Hilfe des MSE 
ein und speichern es auf Ihren Datenträger. 

Danach läßt sich der Basic-Packer normal mit 
»LOAD * BASIC-PACKER" ,8« laden und durch RUN starten. 
Er verschiebt sich selbständig in den $COOO-Bereich (Aufruf 
mit SYS 49152). 

Nach Abschluß des Packens wird Ihnen noch angezeigt, 
wieviele Bytes eingespart wurden. Jetzt ist das Programm 
gepackt und bereit zum Speichern. 

(Christoph Zwerschke/dm) 



name i basic-packer 0B01 0*40 













0909 

: 

a5 

2c 

B5 

7b 

20 

ef 

c4 

a5 

75 

0a 19 

: 

c 2 

a5 

7a 

10 

69 

04 

05 

7a 

11 

0001 

1 

23 

0B 

00 

00 

9a 

32 

30 

38 

d5 

0911 

a 

7a 

30 

e9 

01 

05 

41 

aS 

7b 

32 

Ba21 

a 

90 

02 

e6 

7b 

20 

73 

00 

O0 

ba 

0009 

1 

38 

14 

14 

14 

14 

14 

14 

14 

2d 

0919 

i 

»9 

00 

85 

42 

a0 

04 

20 

71 

3a 

0a29 

a 

00 

bl 

7a 

f0 

e 0 

c9 

22 

dB 

45 

0011 

: 

14 

14 

42 

41 

53 

49 

43 

20 

b5 

0921 

a 

c4 

a 0 

00 

20 

90 

cl 

bl 

7a 

0 c 

0a31 

: 

Be 

20 

73 

00 

c9 

22 

f0 

BC 

77 

0019 

i 

43 

4* 

4b 

44 

45 

4a 

53 

45 

bf 

0929 

i 

dB 

03 

4c 

6f 

cl 

c9 

3a 

f0 

bl 

0a39 

B 

C9 

00 

f0 

dl 

4c 

de 

cl 

c9 

bf 

0821 

i 

52 

00 

00 

00 

00 

00 

00 

a 2 

b9 

0931 

i 

46 

dB 

■B 

20 

70 

cl 

bl 

7a 

f 8 

0a41 

1 

89 

fB 

17 

c9 

0a 

fB 

13 

c9 

51 

0029 

: 

56 

30 

00 

66 

5* 

84 

60 

a2 

B3 

0939 

; 

c9 

00 

d0 

Be 

cB 

C0 

bl 

7a 

07 

0a49 

: 

8d 

fB 

Bf 

c9 

a7 

fB 

0b 

c9 

0d 

0031 

i 

13 

30 

0* 

06 

5a 

84 

5b 

a 2 

aS 

0941 

I 

dB 

111 

M 

08 

20 

71 

c4 

4c 

*4 

0 aSl 

a 

cb 

dB 

dl 

20 

73 

BB 

c9 

a4 

»4 

0039 

i 

bd 

30 

c6 

B6 

50 

04 

59 

20 

10 

0949 

1 

b7 

C0 

c9 

3a 

d0 

30 

20 

71 

0c 

0a59 

a 

dB 

cd 

20 

73 

BB 

9B 

06 

c9 

b7 

0841 

i 

b* 

3 3 

aH 

0'.', 

H 

13 

0* 

20 

ab 

0951 

a 

c4 

a5 

7a 

BB 

41 

a5 

7b 

05 

71 

0 a 61 

a 

2c 

t0 

* 7 

dB 

c2 

aS 

7a 

a6 

am 

0049 

a 

d2 

ff 

C0 

C0 

33 

d0 

f 5 

20 

37 

0959 

i 

42 

A0 

01 

20 

70 

cl 

bl 

7a 

03 

0 a 69 

a 

7b 

05 

31 

06 

32 

20 

79 

BB 

cm 

0051 

a 

44 

a6 

6c 

02 

a 0 

a9 

0b 

Bd 

e2 

0961 

j 

*0 

04 

c9 

3a 

rifl 

1B 

a5 

41 

f 4 

Ba71 

a 

20 

6b 

a9 

20 

be 

c 2 

30 

bi 

3c 

0059 

a 

20 

d0 

0d 

21 

d0 

•2 

ff 

a0 

cc 

0969 

I 

85 

7a 

aS 

42 

B5 

7b 

30 

01 

96 

0a79 

a 

bl 

2f 

f0 

ab 

c 0 

bl 

2f 

30 

bb 

0861 

a 

c4 

20 

99 

C0 

20 

d3 

c4 

A0 

a9 

0971 

t 

20 

7c 

c4 

30 

00 

*0 

bf 

cQ 

2d 

0301 

a 

e5 

14 

C0 

bl 

2f 

e5 

15 

bB 

bB 

0069 

a 

01 

bl 

2b 

dB 

0 a 

a 2 

6a 

30 

C0 

0979 

1 

20 

7c 

c 4 

4c 

CC 

C0 

c9 

22 

dB 

0aB9 

a 

06 

20 

d3 

c 2 

4c 

21 

c 2 

a5 

11 

0871 

a 

c6 

20 

99 

C0 

6c 

02 

a0 

aS 

6a 

0981 

1 

dB 

la 

cB 

bl 

7a 

*0 

06 

c9 

al 

0a91 

8 

7a 

e5 

31 

Bd 

3c 

03 

ad 

3d 

B9 

0079 

a 

2d 

Bd 

44 

03 

a5 

2e 

Bd 

45 

6b 

0909 

1 

22 

dB 

f 7 

f0 

54 

20 

71 

c4 

cS 

0a99 

a 

03 

ae 

3e 

03 

85 

63 

86 

62 

36 

0801 

a 

03 

a2 

50 

a 0 

c5 

20 

99 

C0 

45 

0991 


20 

a6 

c4 

a0 

00 

a9 

22 

91 

42 

Baal 

a 

a2 

90 

30 

20 

49 

bc 

20 

dd 

54 

0009 

a 

a9 

00 

05 

c6 

20 

c4 

ff 

c9 

29 

0999 

a 

7a 

C0 

dB 

a0 

c9 

83 

dB 

20 

fc 

0aa9 

8 

bd 

aB 

ff 

cB 

b9 

bi 

01 

dB 

10 

0891 

a 

03 

*0 

3b 

c9 

41 

*0 

04 

c9 

54 

09a 1 

a 

cB 

20 

90 

cl 

bl 

7a 

f0 

94 

bl 

0 ab 1 

a 

fa 

CC 

3c 

03 

*0 

if 

90 

0d 

e5 

0899 

: 

42 

d0 

fl 

Bd 

46 

03 

20 

d2 

14 

09a9 

a 

c9 

3a 

*0 

a2 

c9 

2 c 

f0 

fB 

c3 

0ab9 

8 

90 

ed 

3c 

03 

Bd 

42 

03 

20 

ef 

00a 1 

a 

** 

a 2 

Bd 

a 0 

c6 

20 

99 

C0 

bi? 

09b 1 

i 

c9 

22 

dB 

09 

cB 

bl 

7a 

*0 

c6 

Bacl 

8 

ef 

c2 

4c 

B0 

c2 

ad 

3c 

03 

c5 

0Ba9 

a 

a9 

2 a 

Bd 

43 

03 

70 

20 

af 

07 

09b 9 

a 

d4 

c9 

22 

dB 

f 7 

cB 

dB 

e4 

e7 

0ac9 

8 

8c 

3c 

03 

38 

•d 

3c 

03 

0d 

23 

08b 1 

a 

C0 

20 

d3 

c4 

20 

a8 

cl 

20 

9d 

09c 1 

i 

c9 

Bf 

d0 

ld 

aS 

41 

05 

7a 

99 
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a 

42 

03 

20 

le 

c3 

aB 

00 

b9 

15 

00b 9 

: 

d3 

c4 

ad 

46 

03 

c9 

41 

f0 

SB 

09c 9 

a 

a5 

42 

85 

7b 

A0 

00 

bl 

7a 

26 

0ad9 

8 

01 

01 

f0 

06 

91 

31 

C0 

4c 

b6 

08 c 1 

a 
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20 

5b 

c3 

20 

d3 

c4 

20 

21 

09dl 

a 

d0 
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a0 

04 

cfl 

bl 

7a 

dB 

fl 

Bael 

a 

02 

c2 

ac 

42 

03 

*0 

03 

20 

3c 

08c 9 

a 

a0 

cl 

20 

d3 

c4 

50 

a2 

a4 

b7 

09d9 

a 

fb 

20 

7c 

c4 

30 

00 

4c 

e7 

• 7 

0ae9 

a 

33 

aS 

20 

79 

00 

c9 

2 c 

f0 

07 

00dl 

a 

a 0 

c 6 

20 

99 

C0 

ad 

44 

03 

a0 
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Llstlng 1. »Baslc-Packer« - ein Programm, um Basic-Listings kürzer und schneller zu machen 




HiRes-Dia-Show 


Machen Sie aus Ihren HiRes-Grafiken eine profes¬ 
sionelle Dia-Show! Das Besondere an diesem Pro¬ 
gramm ist das »weiche« Ein- und Ausblenden der 
einzelnen Bilder. Ihre Grafiken (zum Beispiel aus 
»Apfelmännchen«) sind somit »vorführungsreif«. 

D ieses Programm (Listing 1) zeigt anhand einer Dia- 
Show mit den Grafiken von Apfelmännchen oder ande¬ 
ren HiRes-Grafiken die Möglichkeiten der Programme 
»HIRES-EFFEKT 1« und »HIRES-EFFEKT 2« (Listings 2 und 
3). Das erste Programm wird dazu verwendet, um die hoch¬ 
auflösende Grafik auszublenden und damit zu löschen. Das 
zweite Programm »HIRES-EFFEKT 2« wird dazu verwendet, 
die Grafiken, die ständig von der Diskette nachgeladen wer¬ 
den, ineinander überzubienden, um einen fließenden Über¬ 
gang zwischen den einzelnen Grafiken zu erhalten. Die auf 
dem Bildschirm sichtbare Grafik steht ab $2000, die Grafi¬ 
ken, die nachgeladen werden, ab $A000. Die Art, wie der 
Übergang vonstatten geht, wird von der RND(0)-Funktion 
gesteuert. 

Im Sonderheft 2/86 wurde auf Seite 153/154 eine Idee 
vorgestellt, um die hochauflösende Grafik mit Hilfe des DIM- 
Befehls von Basic aus zu löschen. Darauf basierend kam mir 
der Einfall, diesen Einzeiler dahingehend zu erweitern, daß 


dieser nun auch dazu fähig ist, beliebige Bereiche des Spei¬ 
chers (in 255-Byte-Schritten) mit einem beliebigen Byte zu 
füllen. Dieser neue Einzeiler hat zwar äußerlich mit dem ande¬ 
ren nichts gemeinsam, benutzt aber die gleiche ROM- 
Routine zum Auffüllen des mit DIM dimensionierten Feldes 
mit dem Byte 0. Wenn man nun an geeigneter Stelle in das 
ROM springt, kann man sogar selbst bestimmen, mit wel¬ 
chem Byte der entsprechende Speicherbereich aufgefüllt 
werden soll. Der Einzeiler lautet folgendermaßen: 

1 P0KE88,0:P0KE89,EndeHigh:POKE 113,0:P0KE 114, 
LängeHigh+l:POKE 780, Byte: POKE 12,1:SYS 45764 
In den beiden Speicherzellen 88/89 wird im Low/High- 
Byte-Format die Endadresse des Bereiches angegeben, bis 
zu der man einen Speicherbereich mit einem Byte füllen 
möchte. In den beiden Speicherstellen 113/114 wird, eben¬ 
falls im Low/High-Byte-Format, dieLänge+1 des zu füllenden 
Speichers angegeben. In die Speicherstelle 780 schreibt 
man nun nur noch das Byte, mit dem der Speicherbereich 
ausgefüllt werden soll. (Die Speicherstelle 780 ist das A- 
Register des Prozessors, was dem aktuellen Stand des Akku¬ 
mulators entspricht. Von Basic aus kann man diese Speicher¬ 
stelle sowie die folgenden (genaue Belegung siehe Hand¬ 
buch Seite 165) als LDA-Befehl beziehungsweise LDX, LDY 
und so weiter benutzen. Die Register werden nach dem SYS- 
Befehl automatisch belegt. 
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Als letzter POKE in dieser Zeile muß der POKE 12,1 ste¬ 
hen, der dieser Routine mitteilt, daß sie vom DIM-Befehl 
angesprungen wurde und auch kein Fehler aufgetreten ist. 
Der SYS-Befehl ist der Einsprungspunkt der Fill-Routine. 

An ROM-Routinen wurde im Programm DIA-SHOW noch 
eine Routine zum Löschen einzelner Bildschirmzeilen ver¬ 
wendet. Um sie zu verwenden, wird vorher ins X-Register des 
Prozessors die Zeilennummer hinterlegt, die gelöscht wer¬ 
den soll (POKE 781, Zeilennummer; Zeilennummer darf zwi¬ 
schen 0 und 24 liegen) und daraufhin die Routine aufgerufen, 
die mit SYS 59903 zu starten ist. Studiert man das ROM- 
Listing dieser Routine, kann man damit sogar noch mehr 
machen: 

Hinterlegt man im Y-Register (Speicherstelle 782) eine 
Zahl zwischen 0 und 39 und springt man die Routine mit SYS 
59905 an, wird die im X-Register hinterlegte Zeile nur bis zu 
der dem Y-Register entsprechenden Spalte gelöscht! 

Variablenbelegung des Programms 

Die Variable A wird im Programm als Statusvariable für die 
Ladevorgänge gebraucht. Die Variablen El, E2, LI, L2 und 
Byte sind mit der Beschreibung des Einzellers hinreichend 
erklärt worden. Die Variablen l,Z,T sind reine Schleifenvaria¬ 
blen. Die Variable A$ dient der Speicherung des aktuellen 
Filenamens für den Ladevorgang der einzelnen Bilder. 

Das Programm wird geladen und mit »RUN« gestartet. 


Zunächst werden die notwendigen Routinen und die ein¬ 
zelnen Bilder nachgeladen und in den sichtbaren Bildschirm 
mit Hilfe der Routine »HIRES-EFFEKT 2« eingeblendet. Die¬ 
ser Vorgang wird solange wiederholt, bis sämtliche auf der 
Diskette vorhandenen Bilder nachgeladen worden sind. Zum 
Schluß wird das letzte Bild mit Hilfe der Routine »HIRES- 
EFFEKT 1 ausgeblendet. Möchte man die DIA-SHOW für 
eigene Bilder umschreiben, muß in Zeile 7300 die Nummer 
des letzten zu ladenden Bildes eingetragen werden (IF I 
< Nummer THEN...). Der Name, den alle Bilder gemeinsam 
haben, steht in Zeile 7100 und kann ebenfalls nach Belieben 
geändert werden. (Für das erste Bild muß er auch in der Zeile 
2000 geändert werden.) Die Bilder, die man nachlädt, sollten 
ab der Startadresse $A000 anfangen, dann braucht im Pro¬ 
gramm nichts gändert zu werden. Man kann die Grafiken aber 
auch in den $E000-Bereich verlegen. Ebenso ist es möglich, 
die Grafiken in allen 8K-Bereichen zu legen, die größer als 
$4000 sind. Die Startadresse dieser Grafik wird im ersten 
Parameter der Routine »HIRES-EFFEKT 2« dementspre¬ 
chend geändert. Der SYS-Befehl zum Aufruf dieser Routine 
steht in der Zeile 7000. Auf jeden Fall müssen alle nachzula¬ 
denden Bilder die gleiche Startadresse haben! (Man kann sie 
bei Bedarf mit einem Diskmonitor ändern.) 

(Christian Coppes/tr) 
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6700 

6B00 

6900 

7000 

7100 

7200 


IF A<3 THEN PRINT"<CLR,12D0WN,WHITE,7 
SPACEJBITTE EINEN MOMENT WARTEN !"CHR 
*(B> <229> 

IF A=0 THEN A=1iLOAD"HIRES-EFFEKT 1", 

8, 1 <136> 

IF A=1 THEN A-2:LOAD-BILD 1 .PIC",8,1 <058> 
IF A=3 THEN A=4«G0T0 6900 <146> 

IF A=4 THEN 7000 <101> 

IF A=5 THEN A=6«B0T0 7500 <045> 

POKE 52,32iPOKE 56,32 <168> 

E1*=0«E2-64iL1=0iL2-33iBVTE=255 <093> 

BOSUB 11600 <248> 

POKE 781,12»SYS 59903 <103> 

FOR 1=0 TO 12 <1B2> 

POKE 781,12+1sSYS 59903 <149> 

POKE 781,12-1sSYS 59903 <251> 

FOR T=1 TO 60iNEXT <091> 

NEXT <222> 

POKE 53281,4 <244> 

POKE 53265,59 <191> 

POKE 53272,27 <212> 

POKE 53270,216 <210> 

El=0iE2=2201L1=0«L2=5iBYTE=7 <111> 

GOSUB 11600 <23B> 

E1=0J E2=8t L1=0«L2=5« BYTE=2 <201> 

GOSUB 11600 <1B2> 

SYS 828,8192,17,1 <0B4> 

A=3lLOAD"HIRES-EFFEKT 2",8,1 <035> 

1=16 <1B7> 

SYS 828,40960,8192,I*INT(6*RND(0>)+1 <09B> 

A#-"BILD" <023> 

1=1+1 <146> 


7300 IF I<19 THEN A*=A*+STR*<I>+"*"«LOAD A 

4,8,1 <100> 

7400 A=5iLOAD"HIRES-EFFEKT 1",B,1 <143> 

7500 SYS 828,8192,9,0 <002> 

7600 POKE 53281,0:POKE 53265,11tPOKE 53270 

,200«POKE 5327?,21 <116> 

7650 POKE 198,0«WAIT 198,1«P0KE 19B,0 <131> 

7700 POKE 2023,230«POKE 56295,5«POKE 53265 

,27 <171> 

11000 RESTORE« FOR 1-1 TO 5«READ A <026> 

11100 El=0s E2=220t LI=0«L2=5s BYTE=A <151> 

11200 BOSUB 11600 <210> 

11300 FOR T=1 TO 160»NEXT«NEXT <1B7> 

11400 DATA 1,15,12,11,0 <052> 

11500 PRINT”<CLR>"«END <006> 

11600 POKE BB.EliPOKE B9,E2«P0KE 113,L1«P0 
KE 114,L2«P0KE 7B0,BYTEsPOKE 12,1«BY 
8 45764«RETURN <045> 


NAME 

: 

HI RES- 

-EFFEKT 1 

033C 

03FC 

033C 

i 

20 

FD 

AE 

20 

EB 

B7 

A5 

15 

48 

0344 

i 

10 

69 

20 

05 

42 

A5 

14 

0D 

06 

034C 

i 

AB 

03 

A5 

15 

BD 

AD 

03 

06 

E4 

0354 

i 

41 

20 

FD 

AE 

20 

9E 

B7 

EO 

92 

035C 

: 

00 

FO 

22 

A9 

25 

BD 

B6 

03 

32 

0364 

: 

A9 

77 

05 

02 

20 

A3 

03 

A9 

E9 

036C 

: 

55 

05 

02 

20 

A3 

03 

A9 

u 

24 

0374 

* 

05 

02 

20 

A3 

03 

A9 

OO 

05 

FF 

037C 

: 

02 

20 

A3 

03 

60 

A9 

05 

8D 

5A 

0304 

: 

B6 

03 

A9 

11 

05 

02 

20 

A3 

79 

03BC 

i 

03 

A9 

55 

05 

02 

20 

A3 

03 

20 

0394 

: 

A9 

77 

05 

02 

20 

A3 

03 

A9 

19 

039C 

i 

FF 

05 

02 

20 

A3 

03 

60 

A9 

OA 

03A4 

i 

00 

0D 

AB 

03 

05 

B4 

A2 

00 

3F 

03AC 

: 

A? 

20 

B6 

3F 

05 

40 

AO 

00 

CC 

03B4 

: 

Bl 

3F 

05 

02 

91 

3F 

A5 

3F 

AF 

03BC 

: 

10 

65 

41 

05 

3F 

A5 

40 

69 

7D 

03C4 

x 

00 

05 

40 

A5 

3F 

C5 

14 

30 

IE 

03CC 

8 

06 

A5 

40 

C5 

42 

10 

03 

4C 

B7 

03D4 

s 

B2 

03 

EE 

AB 

03 

AD 

AB 

03 

BB 

03DC 

t 

C5 

41 

BO 

11 

46 

B4 

BO 

OE 

79 

03E4 

1 

BO 

OC 

A5 

02 

OA 

26 

02 

30 

BE 

03EC 

: 

26 

B4 

4C 

AA 

03 

60 

A5 

02 

A3 

03F4 

i 

4A 

66 

02 

06 

B4 

4C 

AA 

03 

11 


Listlng 2. »HIRES-EFFEKT 1« 


NAME 

s 

HIRES- 

EFFEKT 2 

033C 

03F9 

033C 

1 

20 

FD 

AE 

20 

0A 

AD 

20 

F7 

91 

0344 

: 

B7 

A5 

15 

BD 

95 

03 

20 

FD 

B3 

034C 

: 

AE 

20 

EB 

B7 

A5 

15 

18 

69 

32 

0354 

i 

20 

B3 

A5 

A5 

15 

OD 

BD 

03 

4F 

035C 

: 

B6 

A4 

70 

A9 

34 

05 

01 

A9 

4E 

0364 

: 

11 

85 

02 

20 

05 

03 

A9 

55 

7E 

036C 

i 

05 

02 

20 

05 

03 

A9 

77 

05 

11 

0374 

i 

02 

20 

85 

03 

A9 

FF 

85 

02 

FD 

037C 

: 

20 

85 

03 

A9 

37 

85 

01 

5B 

A9 

0304 

3 

60 

A9 

00 

BD 

BB 

03 

A2 

00 

C6 

03BC 

8 

A9 

20 

06 

AE 

BS 

AF 

86 

AC 

06 

0394 

8 

A9 

AO 

05 

AD 

AO 

00 

A5 

02 

49 

039C 

3 

49 

FF 

31 

AE 

91 

AE 

A5 

02 

30 

03A4 

3 

31 

AC 

11 

AE 

91 

AE 

A5 

AE 

C8 

03AC 

3 

IB 

65 

A4 

05 

AE 

A3 

AF 

69 

FA 

03B4 

3 

00 

05 

AF 

A5 

AC 

18 

65 

A4 

82 

03BC 

8 

05 

AC 

A5 

AD 

69 

00 

85 

AD 

BE 

03C4 

1 

A3 

AE 

C5 

14 

30 

06 

A5 

AF 

DD 

03CC 

3 

C5 

A5 

10 

03 

4C 

98 

03 

EE 

3C 

03D4 

3 

80 

03 

AD 

0B 

03 

C5 

A4 

BO 

10 

03DC 

3 

1 1 

46 

B4 

BO 

OE 

BO 

OC 

A5 

35 

03E4 

3 

02 

OA 

26 

02 

30 

26 

B4 

4C 

D5 

03EC 

3 

8A 

03 

60 

A5 

02 

4A 

66 

02 

D5 

03F4 

1 

06 

B4 

4C 

8A 

03 

4C 

AA 

03 

FC 


Llsting 1. Das Steuerprogramm »DIA-SHOW« 


Listlng 3. »HIRES-EFFEKT 2« 
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Ein Hauch von 
Multitasking 

Ein kleines Programm im Kassettenpuffer ermög¬ 
licht es, zwei Basic-Programme quasi gleichzeitig 
ablaufen zu lassen. Von jedem der zwei Program¬ 
me wird abwechselnd je ein Befehl ausgeführt. 

T ippen Sie das Programm »Fenchel MD« (Listing 1) mit 
dem MSE ein. Geladen wird es später mit »,8,1«. Der Auf¬ 
ruf erfolgt mit 

SYS 828,Zeilennummer Programm 1, Zeilennummer Pro¬ 
gramm 2 

Daraufhin wird von jedem Programm abwechselnd je ein 
Basic-Befehl ausgeführt. Das laufende Programm wird mit 
< —> gestoppt. Es geht zwar auch mit < RUN/STOP >, 
jedoch wird dann der geänderte Vektor nicht zurückgestellt. 
Hier noch ein Beispielprogramm: 

10 sys828,100,200 
100 print "programml 
110 goto 100 
200 print "programm2 * 

210 goto 200 

Beim Start mit RUN werden die Zeilen (100, 110) sowie 
(200, 210) als zwei eigenständige Programme betrachtet. 
Schritt für Schritt führt »Fenchel MD« nun jeweils abwech¬ 
selnd einen Befehl von beiden Programmen aus. Die Reihen¬ 
folge ist also: 100, 200, 110, 210, 100, 200 etc. 

Eine END-Anweisung in einem Programm führt zum Anhal¬ 
ten des gesamten Programmlaufes. Gibt man dann ein 
»CONT« ein, so wird das andere Programm bis zu seinem 
Ende abgearbeitet. Weiterhin dürfen sich die zwei Pro¬ 
gramme auch »überkreuzen«, wie es bei der gemeinsamen 
Benutzung von Unterprogrammen Vorkommen kann. Doch 
hier ist Vorsicht geboten, wenn die Programme sich »überho¬ 
len« (zum Beispiel durch IF). Denn dann stimmen die auf dem 
Stack abgelegten Rücksprungadressen der RETURNS nicht 
mehr. Meistens erscheint dann eine Fehlermeldung. Für 
Interessierte haben wir den Source-Code in Listing 2 abge¬ 
druckt und im untenstehenden Kasten erklärt. 

(M. Dietz/og) 


Erklärung der benutzten Speicherstollen 

a/b 

Zwischenspeicher für Zeilennummer >* 1 

c/d 

Zwischenspeicher für Zeilennummer #2 

e 

Flag, welches Programm abgearbeitet wird 

SAEFD 

Prüft auf Komma 

SAD8A 

Zahl oder Term holen, auf numerisch prüfen und in 

FAC ablegen 

$B7F7 

FAC in 2-Byte-Zahl wandeln 

SA613 

Startadresse einer Programmzelle berechnen und 
in $5F/$60 ablegen 

$7A/$7B 

Programmzeiger 

$308'$309 

Vektor für Basic-Befehlsadresse holen 

$73 

CHRGET-Routine 

$A7ED 

Basic-Befehl ausführen 

198 

Anzahl der Zeichen im Tastaturpuffer 

$A480 

Direktmodus ohne READY 


Programm x fenchel md 033c 03eS 


033c 

1 

20 

<d 

ae 

20 

Ba 

ad 

20 

17 

91 

0344 

1 

b7 

20 

13 

a6 

38 

aS 

31 

e9 

a7 

034c 

: 

01 

8d 

e5 

03 

a5 

60 

e9 

00 

13 

0354 

t 

8d 

c6 

03 

20 

td 

ae 

20 

8a 

04 

035c 

i 

ad 

20 

17 

b7 

20 

13 

a6 

38 

b4 

0364 

3 

a5 

5f 

■9 

01 

Bd 

e 7 

B3 

aS 

c3 

036c 

1 

60 

e9 

00 

Bd 

e8 

03 

a9 

84 

c9 

0374 

| 

Bd 

08 

03 

•9 

03 

Bd 

09 

03 

c 2 

037c 

: 

a9 

00 

8d 

e9 

03 

4c 

Bb 

03 

Bd 

03G4 

3 

ae 

e9 

03 

d0 

21 

»0 

0d 

ad 

0c 

038c 

3 

b5 

03 

B5 

7a 

.ul 

< 

03 

B5 

cd 

0394 

: 

7b 

4c 

ae 

a7 

20 

73 

00 

20 

b4 

039c 

s 

ed 

a7 

a5 

7a 

Bd 

e5 

03 

a5 

75 

03a 4 

3 

7b 

Bd 

e6 

03 

ee 

o9 

03 

ad 

a5 

03ac 

3 

e7 

03 

83 

7a 

ed 

eB 

■3 

85 

11 

03b 4 

I 

7b 

4c 

ae 

a7 

20 

73 

00 

20 

d4 

03bc 

: 

ed 

a7 

a5 

7a 

Bd 

e7 

03 

a5 

a5 

03c 4 

a 

7b 

Bd 

oB 

03 

cm 

*9 

03 

aS 

34 

03cc 

: 

cb 

c9 

39 

f0 

03 

4c 

Bb 

03 

al 

03d4 

3 

a9 

e4 

8d 

0B 

03 

a9 

a7 

Bd 

Bb 

03dc 

i 

09 

03 

a9 

00 

85 

c6 

4c 

80 

92 

03e4 

3 

a4 

00 

00 

00 

00 

00 

00 

00 

89 


Listing 1. »Fenchel MD« geben Sie bitte mit dem MSE ein 



.DPT 

P4 

BNE 

Ql 


*= 

828 

BEQ 

Q2 

A 

= 

S3E5 

LDA 

A 

B 

= 

S3E6 

STA 

$7A 

C 

= 

S3E7 

W1 LDA 

B 

D 

= 

S3E8 

STA 

$7B 

E 

= 

S3E9 

JMP 

SA7AE 

inda 

JSR 

SAEFD 

JSR 

$73 


JSR 

SAD8A 

JSR 

SA7ED 


JSR 

SB7F7 

Q2 LDA 

$7A 


JSR 

SA613 

STA 

A 


SEC 


LDA 

$7B 


LDA 

S5F 

STA 

B 


SBC 

#01 

INC 

E 


STA 

A 

LDA 

C 


LDA 

$60 

STA 

$7A 


SBC 

#00 

LDA 

D 


STA 

B 

STA 

$7B 


JSR 

SAEFD 

JMP 

SA7AE 


JSR 

SAD8A 

JSR 

$73 


JSR 

SB7F7 

JSR 

SA7ED 


JSR 

SA613 

Ql LDA 

$7A 


SEC 


STA 

C 


LDA 

S5F 

LDA 

$7B 


SBC 

#01 

STA 

D 


STA 

C 

DEC 

E 


LDA 

S60 

LDA 

203 


SBC 

#00 

CMP 

#57 


STA 

D 

BEQ 

Q3 


LDA 

#$84 

JMP 

W1 


STA 

$308 

Q3 LDA 

#$E4 


LDA 

#$03 

STA 

$308 


STA 

$309 

LDA 

#$A7 


LDA 

#00 

STA 

$309 


STA 

E 

LDA 

#00 


JMP 

W1 

STA 

198 


LDX 

E 

JMP 

SA480 


Tabelle: Die von »Fenchel MD« benutzten Speicherstellen Listing 2. Source-Code zu »Fenchel MD« 
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C 64 


Basic-Maker: 

Ein Recompiler für die 

gängigsten Compiler 


Von jetzt an können Sie getrost Ihre Basic- 
Programme nach dem Compilieren löschen, denn 
jetzt gibt es Basic-Maker. Basic-Maker generiert 
aus jedem Compilat, das mit den Austro- 
Compilern erzeugt wurde, ein lauffähiges und 
editierbares Basic-Programm. 

E in Recompiler ist ein Übersetzer, der es ermöglicht, ein 
compiliertes Programm wieder in das Ursprungs-Basic- 
Programm zurückzuverwandeln. Da jeder Basic-Com- 
piler unterschiedlichen Code erzeugt, kann man mit einem 
bestimmten Recompiler immer nur Compilate dieses Compi¬ 
lertyps verarbeiten. 

Basic-Maker ist in der Lage, Compilate der in Deutschland 
am meisten verbreiteten Compiler zu verarbeiten, des 
Austro-Comps und dessen Nachfolgern Austro-Speed sowie 
Austro-Blitz. Diese Compiler unterscheiden sich nur gering¬ 
fügig im Aufbau und erzeugen somit sehr ähnliche Compilate, 
die von Basic-Maker bearbeitet werden. 

Zunächst scheint es unsinnig zu sein, einen Recompiler zu 
schreiben, da man ja gerade durch das Compilieren ein 
schnelleres und meistens auch kürzeres Programm erhalten 
hat. Man nimmt jedoch auch einen gewaltigen Nachteil in 
Kauf: Das Programm ist für immer in der vorliegenden ft>rm 
fixiert, es können also keinerlei Änderungen mehr vorgenom¬ 
men werden. Will man sich Weiterentwicklungen offenhalten, 
muß man neben dem Compilat auch noch das Ursprungspro¬ 
gramm speichern. Darauf verzichten jedoch die meisten 
Anwender, weil Diskettenspeicherplatz nicht gerade billig ist. 
Basic-Maker ermöglicht es durch die Übersetzung des Com- 
pilats in Basic-Quelltext, doch noch Änderungen am Pro¬ 
gramm vorzunehmen. Anschließend kann man das geän¬ 
derte Programm wieder compilieren. 

Besonders tragisch sind die Fälle, in denen im Compilat 
eines Basic-Programms Fehler auftreten. Diese Programme 
waren bisher als Totalverlust zu werten, durch den Einsatz 
von Basic-Maker kann man das Programm jedoch noch 
retten. 

Die Bedienung von Basic-Maker 


Durch Basic-Maker ist es ebenso möglich geworden, 
gekaufte Software, die mit den Austro-Compilern compiliert 
wurde, nach eigenen Wünschen abzuändern und damit 
sogenannte »Schwachstellen« des Programms auszubes¬ 
sern. Ich habe zum Beispiel den Pascal-Compiler »PASCAL 
64« recompiliert und so abgeändert, daß das Programm jetzt 
nach erneuter Compilierung um fast 25 Prozent schneller 
arbeitet. 

Der Start der Übersetzung 

Wenn Sie das Programm (Listing) mit RUN gestartet haben, 
sehen Sie das umfangreiche Menü auf dem Bildschirm. Die 


Recompilierung wird gestartet, indem man in den Menüpunk¬ 
ten 1 bis 3 den Typ des Compilers festlegt, mit dem das nun 
zu bearbeitende Compilat erstellt wurde. Nach dieser Wahl 
erscheint die Frage nach dem Namen des Compilats auf Dis¬ 
kette. Wenn Sie diesen eingegeben haben, beginnt die 
Übersetzung. 

Die Recompilierung: PASS 1 

Bei Basic-Maker handelt es sich um einen 2-Pass-Recom- 
piler, der das Compilat also in zwei Arbeitsgängen übersetzt. 
In PASS 1 werden dabei die Zeilennummern für das Basic- 
Programm festgelegt, die Variablen geholt sowie grobe Auf¬ 
baufehler gesucht, die eine korrekte Übersetzung verhin¬ 
dern würden. Im Gegensatz zu allen bekannten Compilern 
werden diese Informationen nicht in eine Hilfsdatei auf Dis¬ 
kette, sondern in ein spezielles Feld im Speicher geschrie¬ 
ben. Dadurch wird der Zugriff erheblich beschleunigt. Das 
Feld befindet sich im Adreßraum von $AOOO bis $FFFF, was 
einer Kapazität von 24 KByte entspricht. Damit lassen sich 
Con<!! ite von einer Länge bis zirka 115 Blöcke recompilieren 
(das längste, mir bekannte Compilat ist das Programm »UNI- 
TAB« mit einer Länge von 106 Blocks). 

Die Recompilierung: PASS 2 

Die eigentliche Übersetzung wird von Basic-Maker in PASS 
2 vorgenommen. Dabei wird der Code in Basic-Befehle 
umgewandelt und in einzelne Programmzeilen geschrieben. 
Das erzeugte Basic-Programm wird parallel auf dem Bild¬ 
schirm gelistet und in eine Diskettendatei geschrieben, so 
daß Sie es mit LOAD "Name", 8 laden können. Als Programm¬ 
name wird der Name des Compilats mit dem Vorsatz »B—« 
verwendet. Es wird ein zum Ursprungsprogramm völlig 
ablaufkompatibles Programm erzeugt, das sich also im Ablauf 
gleich verhält. Dabei wird das Programm aus folgenden Grün¬ 
den jedoch nie genau gleich zum Ursprungsprogramm sein: 
REM-Zeilen werden bei der Compilierung entfernt, da sie im 
Code sinnlos sind. Daher kann das Recompilat ebenso keine 
REM-Zeilen enthalten. Im Gegensatz zum Basic-Programm 
enthält das Compilat ebenso keine Zeilennummern, da der 
Code chronologisch vom Runtime-Modul des Compilers 
abgearbeitet wird. Es läßt sich nachträglich nicht mehr fest¬ 
stellen, welche Zeilennummern das Ursprungsprogramm 
enthielt und welche Befehle in welchen Zeilen standen. 
Basic-Maker beginnt daher normalerweise mit der Zeile 1 
und erzeugt dann pro Programmzeile nur einen Befehl, damit 
das Basic-Programm leicht editierbar wird. Eventuell auftre¬ 
tende DATA-Codes werden vom Compiler an einer Stelle des 
Compilats »gesammelt«. Da die Position der DATA-Zeilen im 
Basic-Programm für die Reihenfolge der Bearbeitung uner¬ 
heblich ist, bleibt dies ohne Folge für den Programmablauf. 
Basic-Maker kann natürlich nicht feststellen, woher die ein¬ 
zelnen DATAS kommen und hängt diese komplett an das 
erzeugte Basic-Programm an. Dadurch wird zwar das Ausse¬ 
hen, nicht aber die Funktion des Programms beeinflußt. 

Nach Beendigung der Übersetzung werden die Anzahl der 
aufgetretenen Fehler und Erweiterungen sowie der Name 

mar 
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des erzeugten Basic-Programms ausgegeben. Anschlie¬ 
ßend können Sie durch Drücken der Taste < N > einen Reset 
auslösen oder durch eine beliebige andere Taste Basic- 
Maker erneut starten. 

Die Befehle MID$, RUN, PRINTS und die FOR-NEXT- 
Schleife 

Im Gegensatz zu den anderen Basic-Befehlen werden die 
oben genannten bei der Übersetzung durch den Compiler 
aus verschiedenen Gründen verändert. Der MID$-Befehl tritt 
normalerweise nur in Verbindung mit drei Parametern auf, wie 
zum Beispiel MID$(A$,2,3). Er kann aber auch mit nur zwei 
Parametern verwendet werden, zum Beispiel MID$(A$,2). 
Die Compiler können durch den Aufbau des Runtime-Moduls 
jedoch nur Befehle mit drei Parametern verwenden. Deshalb 
wird bei der Compilierung eine 255 als dritter Parameter 
angehängt. Die Wirkung des Befehls wird nicht verändert, da 
255 die maximal zulässige Stringlänge ist. Bei der Recompi- 
lierung erzeugt Basic-Maker daher in jedem Fall einen 
MID$-Befehl mit drei Parametern. 

Der RUN-Befehl wird bei der Compilierung durch zwei 
andere Basic-Befehle ersetzt, so daß keine eigene Interpre¬ 
tationsroutine für ihn erforderlich ist. Diese Befehle sind CLR 
und GOTO Z (Z: Erste Zeile des Basic-Programms). Durch sie 
wird genau das erreicht, was auch der RUN-Befehl bewirkt 
hätte. Basic-Maker »weiß« bei der Übersetzung nicht, ob 
diese Befehlsfolge einen »RUN«-Befehl ersetzt hat oder in 
der Form im Ursprungsprogramm vorhanden war. Deshalb 
wird sie unverändert in das Recompilat übernommen. 

Für den PRINT #-Befehl besitzen die Compiler ebenso 
keine Interpretationsroutine. Beim Antreffen dieses Befehls 
geschieht deshalb folgendes: Zunächst wird der 
PRINT#-Befehl durch die Befehle CMD und PRINT ersetzt, 
wodurch die Ausgabe auf das angesprochene Gerät umge¬ 
lenkt wird. Anschließend muß die Ausgabe auf den Bild¬ 
schirm zurückgesetzt werden. Dafür benutzen die Compiler 
jedoch keinen Basic-Befehl. Basic-Maker fügt daher beim 
Antreffen der Befehlsfolge CMD und PRINT von sich aus 
einen PRINT #-Befehl an. Dadurch wird die Ausgabe wieder 
auf den Bildschirm geleitet. 

Eine Schleife wird normalerweise in die Form »FOR I = 
Anfangswert TO Endwert:.,.:Next I« benutzt. Die Compiler 
ändern diese jedoch in die Form «I = Anfangswert: FOR I = 

I TO Endwert:...:NEXT I« ab. Die Wirkung bleibt unverändert. 
Basic-Maker übernimmt die Schleifenform des Compilats in 
das erzeugte Basic-Programm, da auch hier nicht festgestellt 
werden kann, ob dies ein Erzeugnis des Compilers ist oder 
vom Ursprungsprogramm stammt. 

Der erweiterte SYS-Befehl 

Die Austro-Compiler zeichnen sich unter anderem dadurch 
aus, jede Form des SYS-Befehls verarbeiten zu können. 
Basic-Maker ist in der Lage, diese erweiterten Befehle 
zurückzuübersetzen. Durch den Aufbau des Programms 
werden jedoch meistens Fehlermeldungen beim Antreffen 
eines erweiterten SYS-Befehls ausgegeben. Das hat jedoch 
hier keine Bedeutung. Der Befehl wird in jedem Fall korrekt 
übersetzt, so daß das Basic-Programm einwandfrei arbeiten 
kann. 

Die Fehlermeldungen von Basic-Maker 

Basic-Maker gibt zwei Arten von Fehlermeldungen aus: 
Zum einen gibt es die »leichten« Fehler, die in der Form »? 
RECOMPILE ERROR ?« mit Fehleradressen ausgegeben 
werden. Diese Fehlermeldungen werden durch den Aufbau 
von Basic-Maker bedingt auch bei Erweiterungen oder 
erweiterten SYS-Befehlen ausgegeben, ohne daß tatsäch¬ 
lich ein Fehler vorliegt. Meistens bedeutet ein »leichter« Feh¬ 
ler, daß Basic-Maker einen unbekannten Code gefunden hat. 
Wenn eine nicht interpretierbare Programmzeile gefunden 
wird, so wird in dem recompilierten Basic-Programm eine 
REM-Zeile erzeugt. Sie erkennen daher beim Listen dieses 


Programms sofort die fehlerbehafteten Stellen, da ja sonst 
keine REM-Zeilen existieren. Die Übersetzung kann in fast 
allen Fällen nach einem »leichten« Fehler korrekt fortgesetzt 
werden. 

Im Gegensatz dazu können auch schwerwiegende, soge¬ 
nannte »fatale« Fehler auftreten. Diese Fehler treten meist in 
PASS 1 auf und deuten auf einen schwerwiegenden Aufbau¬ 
fehler des Compilats hin. Meistens treten »fatale« Fehler nur 
dann auf, wenn das Compilat nicht korrekt erzeugt wurde, das 
heißt wenn während der Compilierung von den Austro- 
Compilern Fehlermeldungen ausgegeben wurden. Basic- 
Maker kann nach dem Auffinden eines »fatalen« Fehlers nicht 
mehr korrekt Weiterarbeiten und bricht die Recompilierung 
ab. Dabei werden alle Diskettendateien korrekt geschlossen, 
so daß eventuell bis zu diesem Zeitpunkt korrekt übersetzte 
Teile des Compilats nicht verlorengehen. Tritt innerhalb des 
Basic-Maker-Recompilers ein Fehler auf (zum Beispiel wenn 
das Programm im Direktmodus gestartet wurde), wird die 
Meldung »SYSTEM ERROR« ausgegeben und die Überset¬ 
zung ebenso abgebrochen. Basic-Maker liest zur Sicherheit 
nach jedem Zugriff auf die Diskettenstation den Fehlerkanal 
aus. Wird dabei eine Fehlermeldung gefunden, wird die 
Recompilierung sofort abgebrochen, da auf keinen Fall kor¬ 
rekt weitergearbeitet werden kann. Auch hier werden vor 
dem Abbruch alle Dateien richtig geschlossen. 

Basic-Maker für Compiler-Enthusiasten 


Nachdem grundsätzlich geklärt ist, wie man mit Basic- 
Maker eine Recompilierung vornehmen kann, soll jetzt auf die 
Menüpunkte 4 bis 9 eingegangen werden. 

Festlegen der Startzeile und Schrittweite 

Bish: wurde immer davon ausgegangen, daß Basic- 
Maker das erzeugte Basic-Programm mit der Zeilennummer 
1 beginnt und in Einer-Schritten fortsetzt. Im Menüpunkt 4 
können Sie jedoch eine andere Startzeile/Schrittweite festle¬ 
gen. Erlaubt sind Werte von 1 bis 10. Aus programmtechni- 
schen Gründen muß die Schrittweite immer der Startzeile des 
Basic-Programms entsprechen. Bei jedem Druck der Taste 
< 4 > wird die Zahl um 1 erhöht, bis 10 erreicht ist. Daraufhin 
wird wieder mit 1 begonnen, und so weiter. Wenn Sie also 
Vorhaben, viele Zeilen in das erzeugte Basic-Programm ein¬ 
zufügen, sollten Sie lieber eine etwas größere Schrittweite 
festlegen. 

Wahl der Bildschirmausgabe 

In Punkt 5 können Sie bestimmen, ob das recompilierte 
Programm in PASS 2 auf dem Bildschirm ausgegeben wer¬ 
den soll. Wenn Sie nichts anderes festlegen, wird das Listing 
immer auf dem Bildschirm ausgegeben. Bei äußerst langen 
Compilaten kann jedoch durch Abschalten der Bildschirm¬ 
ausgabe die Verarbeitungsgeschwindigkeit von Basic-Maker 
in PASS 2 um mehr als 35 Prozent erhöht werden. Wenn man 
daher nicht unbedingt an einer Ausgabe interessiert ist, kann 
man durch Drücken der Taste < 5 > die Bildschirmausgabe 
abschalten. Fehlermeldungen und Erweiterungen werden 
jedoch in jedem Fall weiterhin ausgegeben. Durch erneute 
Betätigung der Taste wird die Ausgabe immer wechselweise 
ein- und ausgeschaltet. Der jeweilige Zustand wird hinter der 
Menü-Zeile angezeigt. Bei kleinen Compilaten ist der 
Geschwindigkeitsgewinn nicht lohnenswert, so daß man die 
Ausgabe eingeschaltet lassen kann. 

Bestimmung der Länge einer DATA-Zeile 

Im Menüpunkt 6 können Sie die maximale Länge einer 
erzeugten DATA-Zeile festlegen. Die Voreinstellung beträgt 
fünf Zeichen, wobei alle Werte ohne Zeilennummer und 
Befehlswort »DATA« gerechnet werden, so daß wirklich nur 
die Länge der eigentlichen DATAs betrachtet wird. Durch 
Drücken der Taste < 6 > wird diese Einstellung jeweils um 
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fünf Zeichen erhöht. Das Maximum beträgt durch die maxi¬ 
male Zeilenlänge (80 Zeichen) 70 Zeichen. Besonders bei 
Compilaten mit vielen DATAs kann man durch lange DATA- 
Zeilen eine erhebliche Anzahl von Programmzeilen einspa¬ 
ren. Wird ein DATA-Statement gefunden, dessen Länge die 
voreingestellte, maximale übertrifft, wie zum Beispiel eine 
Stringkette, so wird diese Voreinstellung natürlich ignoriert, 
das heißt das DATA-Element wird korrekt erzeugt. 

Die Recompilierung von Basic-Erweiterungen 

Die Austro-Compiler sind vor allen Dingen deshalb so 
beliebt, weil sie beliebige Basic-Befehlserweiterungen verar¬ 
beiten können. Basic-Maker ist in der Lage, verwendete 
Erweiterungsbefehle korrekt zu recompilieren. Es ist jedoch 
unbedingt erforderlich, den verwendeten Erweiterungstyp in 
den Menüpunkten 7 bis 9 festzulegen. 

Voreingestellt ist der Punkt 7, das heißt keine Erweiterung. 
Durch Punkt 8 wird eine Erweiterung festgelegt, deren 
Befehle ausschließlich I-Byte-Token sind. Der Commodore 
64 verwendet bekanntlich die Token 128 bis 203 und das 
Token 255, so daß für eine Befehlserweiterung noch die 
Token 204 bis 254 zur Verfügung stehen. Haben Sie den 
Punkt 8 angewählt, so müssen Sie Basic-Maker das Start- 
Token (204 voreingestellt) und End-Token (254 voreinge¬ 
stellt) der Erweiterung angeben. Es ist ganz wichtig, daß Sie 
diese Frage korrekt beantworten, da Basic-Maker sonst nicht 
immer ein korrekt arbeitendes Basic-Programm erzeugen 
kann. Nach der Eingabe dieser Token wird hinter der Menü- 
Zeile angezeigt, daß Sie eine I-Byte-Token-Erweiterung ver¬ 
wendet haben. Ein Beispiel für eine Basic-Erweiterung, die 
die Token 204 bis 254 benutzt, ist »GRAFIK-BASIC« aus der 
Zeitschrift »RUN Spezial Nr. 1«. Neben dieser Erweiterungs¬ 
form gibt es jedoch auch Programme, die 2 Byte als Token 
verwenden. Dies ist immer dann erforderlich, wenn mehr als 
51 neue Befehle vorhanden sind, da durch I-Byte-Token ja 
nur maximal 51 solcher codiert werden können. Deshalb ver¬ 
wenden größere Erweiterungen immer das 2-Byte-Token- 
Prinzip: Dabei wird jedem neuen Befehl ein sogenanntes 
Erkennungs-Token vorangestellt, das nur die Funktion hat, 
anzuzeigen, daß ein Erweiterungsbefehl folgen wird. Dieses 
Erkennungs-Token ist bei allen Erweiterungsbefehlen iden¬ 
tisch. Erst dann folgt das eigentliche Befehls-Token. Durch 
dieses Prinzip, was gegenüber dem I-Byte-Token natürlich 
umständlicher ist, kann man auch die schon vom Commodore 
64 verwendeten Token belegen und damit natürlich weit 
mehr Befehle codieren. Bei Punkt 9 des Menüs wird daher 
nur nach dem Erkennungs-Token der Erweiterung gefragt, 
die das Compilat verwendet. Auch hier gilt, daß bei falscher 
Eingabe eine korrekte Übersetzung unmöglich ist. Als Bei¬ 
spiel möchte ich »Simons Basic« mit dem Erkennungs-Token 
100 anführen. Zu der Gruppe der 2-Byte-Token-Erweiterun- 


gen gehören übrigens auch diejenigen Erweiterungen, die 
vor jedem Befehl ein Ausrufezeichen oder ähnliches stehen 
haben und das Befehlswort uncodiert benutzen. Im Fall des 
Ausrufezeichens wäre das Erweiterungs-Token die 33 
(ASCII-Code von »!«). Durch den Aufbau des Basic-Maker- 
Recompilers werden bei der Übersetzung von Erweiterungs¬ 
befehlen immer Fehlermeldungen erzeugt. Wie beim erwei¬ 
terten SYS-Befehl bleiben diese jedoch ohne Auswirkung auf 
das recompilierte Basic-Programm. 

Wie man Erweiterungen erkennt 

Zunächst scheint es schwierig zu sein, den Typ einer Erwei¬ 
terung festzustellen. Eindeutig ist der Fall bei Erweiterungen, 
die vor jedem Befehl ein bestimmtes Zeichen haben, zum 
Beispiel ein Ausrufezeichen. Hierbei handelt es sich immer 
um den 2-Byte-Token-Typ. Ist den Befehlen jedoch kein Zei¬ 
chen vorangestellt, müssen Sie experimentieren. Dafür 
schreiben Sie am besten ein kleines Basic-Programm, was 
zirka fünf Erweiterungsbefehle benutzt. Jeder Befehl muß in 
einer neuen Programmzeile stehen. Dann sehen Sie sich mit 
einem Monitor den Basic-Speicherab $0801 an. Wenn jede 
Programmzeile mit demselben Code beginnt, obwohl ver¬ 
schiedene Befehle verwendet wurden, handelt es sich in 
jedem Fall um eine 2-Byte-Token-Erweiterung. In einem ande¬ 
ren Fall kann es sich nur um eine I-Byte-Token-Erweiterung 
handeln. Nun müssen Sie nur noch die verwendeten Befehls- 
Token feststellen: Geben Sie dazu im Direktmodus die folgen¬ 
den Befehle ein: 

NEW (Return) 

POKE 2049,6:P0KE 2050,8 (Return) 

P0KE 2051,10:POKE 2052,0 (Return) 

POKE 2054,0:POKE 2055,0:POKE 2056,0 (Return) 

POKE 45,10:POKE 46,8:CLR: 1=203 (Return) 

Nu.. r.'iüssen Sie immer folgende Zeile eingeben, bis I den 
Wert 254 erreicht hat: 

1=1+1:PRINT I:PRINT"(Down,10Space,2Up)":P0KE 2053, 

I:LIST (Return) 

Wenn nach dem List-Befehl ein Befehlswort der Erwei¬ 
terung gelistet wird, ist der Wert I ein I-Byte-Token. Ist dies 
nicht der Fall, so wird nur das ASCII-Zeichen von I ausgege¬ 
ben, das heißt I ist kein verwendetes Token. Auf diese Weise 
können Sie genau die verwendeten Token der Erweiterung 
bestimmen. Sie müssen die obige Zeile dabei immer mit dem 
Cursor überfahren und »RETURN« drücken. Das Start-Token 
stellt dabei den ersten ausgegebenen Wert von I dar, der als 
Befehlswort gelistet wird. Das End-Token der Erweiterung 
ist dann erreicht, wenn kein Befehl, sondern nur noch ein 
ASCII-Zeichen gelistet wird, also der ausgegebene Wert von 
I minus 1. 

(Frank Riemenschneider/ah) 
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TIPS&TRICKS 


Garbage 64 
Version 2 

Auch Gutes kann noch verbessert werden. Diese 
schnelle Garbage Collection ist um 25 Prozent 
kürzer als die des Listings des Monats aus der 
Ausgabe 2/86. Sie korrigiert das bei der Version 1 
auftretende Problem mit dem String-Stack und ist 
trotzdem nicht wesentlich langsamer. 


N ormalerweise behindert sie uns nicht, die Garbage 
Collection. Tritt sie aber doch einmal auf, kann die Aus¬ 
führung mehr als eine Stunde dauern. Meistens pas¬ 
siert das nur bei größeren Datenmengen, da hier sowieso viel 
Zeit für die Bearbeitung von Daten benötigt wird. Murph/s 
Gesetze zeigen auch hier ihre Wirkung. 

»Garbage 64 V2« ist vollständig überarbeitet, daher genügt 
es nicht, Korrekturen an Version 1 vorzunehmen. Tippen Sie 
das Listing bitte mit dem MSE ein (siehe Listing). Das Einbin¬ 
den ins Betriebssystem geschieht mit »SYS 51356«. Beim 
Auslösen der Garbage Collection erscheint links unten ein 
weißer Stern, dessen Zeichen und Farbe Sie in den Speicher¬ 
stellen 50953 (Zeichen) und 50958 (Farbwert) verändern. 
Insgesamt läuft die neue Garbage Collection mehr als 
2500mal schneller ab als normal. (J. Varnholdt/og) 


Programm 

s garbage 64 v2 

c700 c8b7 

c788 

s 

69 

05 

65 

22 

85 

22 

90 

02 

cl 

C82B 

3 

B6 

34 

a5 

5f 

10 

0d 

a2 

bf 

91 












c790 

: 

e& 

23 

a& 

23 

e4 

4f 

dB 

04 

2a 

cB30 

3 

20 

54 

c8 

a5 

5e 

a2 

e0 

85 

eb 












C798 

s 

c5 

4b 

«0 

ba 

20 

ab 

c7 

f0 

78 

c838 

: 

5b 

86 

5c 

a 2 

it 

20 

54 

cB 

26 

c 700 

s 

a5 

01 

85 

60 

a9 

37 

85 

01 

00 

c7a0 

i 

f 3 

bl 

22 

30 

5b 

cB 

bl 

22 

32 

c840 

x 

a5 

60 

c9 

37 

10 

03 

20 

72 

fb 

c70B 

: 

a9 

2 a 

Bd 

e7 

07 

a9 

01 

Bd 

03 

c7a8 

« 

10 

59 

cB 

bl 

22 

f0 

54 

05 

d3 

c84B 

X 

cB 

a9 

20 

Bd 

e7 

07 

a5 

60 

ad 

c710 

i 

07 

db 

a6 

37 

a3 

38 

86 

59 

5b 

c7b0 

s 

5d 

C0 

bl 

22 

aa 

cB 

bl 

22 

le 

C050 

X 

85 

01 

58 

60 

#0 

00 

bl 

5b 

ff 

c718 

s 

BS 

Sa 

a9 

19 

a 0 

00 

B5 

22 

bc 

c7b8 

: 

c5 

34 

90 

47 

dB 

04 

■4 

33 

cb 

C058 

X 

91 

59 

eh 

59 

d0 

02 

e6 

5a 

eB 

c720 

3 

84 

23 

B4 

5f 

84 

57 

B4 

58 

09 

c7c0 

3 

90 

41 

86 

5b 

85 

5c 

a5 

57 

7b 

cB 60 

X 

SB 

c4 

5b 

d0 

05 

e4 

Sc 

d0 

c6 

c728 

l 

c5 

16 

f0 

05 

20 

ab 

c7 

f0 

35 

c7cB 

: 

a6 

5B 

e0 

B0 

d0 

0 c 

c5 

5d 

2b 

C068 

X 

01 

60 

e6 

Sb 

d0 

e6 

e6 

5c 

57 

c730 

X 

f 7 

a9 

07 

85 

53 

a5 

2d 

a6 

d3 

c7d0 

x 

b0 

08 

c6 

5f 

B5 

5e 

a9 

00 

14 

c870 

: 

dB 

e2 

a9 

37 

85 

01 

a9 

e0 

cb 

c738 

l 

2b 

85 

22 

86 

23 

e4 

30 

d0 

3b 

c7d8 

i 

a2 

C0 

38 

e5 

5d 

85 

57 

b0 

66 

cB78 

: 

20 

87 

cB 

a5 

5f 

fe 

05 

a9 

27 

C740 

X 

04 

c5 

2 f 

fH 

05 

20 

al 

c7 

7B 

c7p0 

s 

01 

ca 

86 

5B 

a5 

59 

a 6 

5a 

67 

cB80 

3 

aB 

20 

B7 

c8 

4c 

ab 

cB 

a 0 

b2 

c74B 

X 

f0 

♦ 3 

B5 

4e 

86 

4 1 

a9 

03 

ed 

c7b8 

X 

38 

e5 

5d 

85 

59 

88 

91 

22 

71 

cB88 

3 

00 

B4 

22 

85 

23 

a2 

20 

bl 

2f 

c750 

X 

85 

53 

a5 

Ae 

a 6 

4 1 

e4 

32 

Bf 

c7f0 

X 

b0 

01 

ca 

c8 

Ba 

85 

Sa 

91 

Ae 

cB90 

1 

22 

91 

22 

cB 

d0 

f 9 

e6 

23 

db 

c75B 

l 

d0 

07 

c5 

31 

d0 

03 

4c 

13 

c 0 

c7f 8 

3 

22 

a4 

5d 

88 

bl 

5b 

91 

57 

C0 

cB9B 


ca 

d0 

f4 

60 

a9 

ff 

85 

5f 

83 

c /60 

X 

cB 

85 

22 

86 

23 

a0 

00 

bl 

df 

c800 

3 

98 

d0 

fB 

a5 

53 

1B 

65 

22 

c3 

c 8 a 0 

3 

20 

72 

cB 

a9 

35 

85 

01 

60 

a5 

c768 

X 

22 

aa 

cB 

bl 

22 

08 

CB 

bl 

31 

c80B 

X 

85 

22 

90 

02 

e6 

23 

a6 

23 

6b 

c8a8 

I 

4c 

00 

c7 

a 0 

02 

b9 

aB 

CB 

1c 

c770 

t 

22 

65 

4e 

B5 

4e 

c8 

bl 

22 

bf 

cBIB 

X 

aB 

BB 

60 

a5 

57 

a6 

58 

10 

6b 

c8b0 

3 

99 

26 

b5 

BB 

10 

f 7 

60 

00 

ld 

c77B 

i 

65 

4f 

85 

4 f 

28 

10 

d3 

Ba 

38 

cQlB 

X 

30 

85 

Sb 

86 

5c 

7B 

a9 

35 

4d 












c780 

s 

30 

<10 

cB 

bl 

22 

a0 

00 

0a 

bc 

cB20 

I 

85 

01 

aS 

59 

a6 

Sa 

B5 

33 

74 

Listing 

»Garbage 64 V2« 





Programmier' 

Hilfe für Basic- 

Programmierer 


Dieses Toolkit unterstützt den Basic-Program- 
mierer durch einige sehr nützliche Befehle, die 
ihm die Arbeit erleichtern. 

J eder Basic-Programmierer wünscht sich für seinen C 64 
Befehle, die ihm das Arbeiten mit seinem Computer 
erleichtern. Diese Befehle werden allgemein als Toolkit 
bezeichnet. Sie dienen dazu, diverse Aufgaben, die sonst 
vom Programmierer erledigt werden müssen, automatisch, 
das heißt ohne Dazutun des Anwenders zu erledigen. Etwa 
die automatische Zeichennummervorgabe beim Schreiben 
eines Basic-Programms (AUTO), das Löschen von bestimm¬ 
ten Zeilenblöcken (DELETE) oder auch ein Verbinden von 
zwei Programmen zu einem einzigen, ablauffähigen Pro¬ 

030? 


gramm (MERGE), das von Hand nicht so einfach zu lösen 
wäre. Ebenfalls unverzichtbar ist auch der RENUMBER- 
Befehl, der dazu dient, die Zeilen eines Basic-Programms 
neu zu numerieren, um eventuell Platz für neu einzufügende 
Zeilen zu schaffen. 

Praktisch wäre auch noch ein Befehl zum Anzeigen der 
momentan im Programm verwendeten Variablen sowie deren 
derzeitige Belegung (DUMP). 

Dieser Toolkit stellt Ihnen diese und noch weitere zur 
Verfügung. 

Die Befehle und ihre Funktion 

RENUMBER - Neunumerierung eines Programms (ohne 
GOTO/GOSUB). 

Syntax: RENUMBER X,Y 


SONDERHEFT 7/86 


139 









TIPS&TRICKS 


C 64 


DELETE 

MERGE 


DUMP 

CATALOG 

OLD 

AUTO 


LSAVE 


TRACE 


OFF 

FIND 


Parameter: X - Nummer der ersten Pro¬ 
grammzeile 

Y - Schrittweite 
Löschen von Zeilenblöcken. 

Syntax: DELETE X-Y 

Parameter: X/Y - Anfang/Ende des zu 
löschenden Bereiches. 
Verbinden zweier Basic-Programme. 
Syntax: MERGE "NAME" ,8 (oder ,1) 

Das erste Programm muß sich im Speicher 
befinden. Danach MERGEt man einfach das 
zweite hinzu (die Zeilennummern des nach¬ 
geladenen Programms müssen höher als 
die des ersten sein). 

Anzeige der momentan belegten Variablen. 
Syntax: DUMP 

Anzeige des Disketten-Directories ohne 
Verlust eines im Speicher befindlichen 
Programms. 

Syntax: CATALOG 

Wiederherstellen eines durch NEW oder 
Reset gelöschten Programms. 

Syntax: OLD 

Automatische Zeilennummer-Vorgabe. 

Syntax: AUTO X,Y 

Parameter: X - Anfangszeilennummer 

Y - Schrittweite 

Beenden der AUTO-Funktion durch 
Drücken von < RETURN > bei leerer Zei¬ 
lennummer. 

Speichern von Zeilenbereichen. 

Syntax: LSAVE X-Y 

Parameter: X/Y - Anfang/Ende des zu 

speichernden Bereiches. 
Dieser Befehl gibt Ihnen die Möglichkeit, 
Teile, das heißt bestimmte Zeilennummern 
eines Basic-Programms, auf Diskette oder 
Kassette zu speichern (zum Beispiel LSAVE 
400-900). 

Überwachen eines Basic-Programms. 
Syntax: TRACE 

In der rechten oberen Ecke wird die gerade 
bearbeitete Zeilennummer des laufenden 
Programms angezeigt. 

Abschalten der TRACE-Funktion. 

Syntax: OFF 

Suchen bestimmter Befehle oder Zeichen¬ 
folgen. 

Syntax: FIND PRINT oder 

FIND "Text" 

Bei der ersten Syntax wird nach Token 
gesucht, die zweite findet unverschlüsselte 
Texte. 


STEP - Schrittweises Abarbeiten eines Basic- 
Programms. 

Syntax: STEP gefolgt von TRACE 

Nach jedem abgearbeiteten Befehl stoppt 
das Programm und wartet auf einen Tasten¬ 
druck, um den nächsten Befehl zu 
bearbeiten. 

SHOW - Anzeige der gerade bearbeiteten Zeile. 

Syntax: SHOW gefolgt von TRACE 

Es wird nicht mehr die Zeilennummer, son¬ 
dern die komplette Basic-Zeile beim Testlauf 
ausgegeben. 

I - Umrechnung Dezimal-Hexadezimal. 

Syntax: IWERT 

Zum Beispiel: 136578 14553 

Ergebnis: $8EE2 $11C9 

$ - Umrechnung Hexadezimal-Dezimal 

Syntax: $WERT 

Zum Beispiel: $CE00 $00BE 

Ergebnis: 52736 190 

% - Umrechnung Binär-Dezimal. 

Syntax: %WERT 

Zum Beispiel: % 11001001 % 10011 

Ergebnis: 201 19 

@ - Kommando an die Floppy senden. 

Syntax: @ N: TEST,00 

Der Klammeraffe ohne weitere Angaben 
liest den Fehlerkanal der Floppy und zeigt 
ihn an. 

Außerdem ist noch eine weitere Funktion integriert: HELP. 
Tritt ein Fehler während eines Programmlaufs auf, so wird die 
entsprechende Zeile auf dem Bildschirm gelistet und die 
Stelle, an der der Fehler auftrat, revers angezeigt. 

Df« weiteren sind die Funktionstasten wie folgt mit nützli¬ 
chen befehlen belegt: 

Fl - LIST < RETURN > 

F2 - Verlassen des Toolkits (Neustart: SYS 49152) 

F3 - RUN < RETURN > 

F4 - SYS 4096* 

F5 - LOAD 

F6-OLD < RETURN > 

F7 - CATALOG < RETURN > 

F8 - Disk-Status 

Die Funktionstasten Fl und F3 sind im TRACE-Modus mit 
folgenden Funktionen belegt: 

Fl - STEP/normaler TRACE 
F3 - SHOW/normaler TRACE 

Eingabehinweise 

Das Programm (Listing 1) geben Sie bitte mit dem MSE ein 
und speichern es auf Ihrem Datenträger. Gestartet wird es mit 
RUN. Haben Sie das Programm mit F2 verlassen, ist ein Neu¬ 
start über SYS 49152 möglich. (Thomas Meidinger/dm) 
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b5 

5b 

Oedl 


c6 

ad 

ff 

02 

49 

ff 

Bd 

ff 

79 

Ue9 

8 

c8 

b9 

9e 

aO 

10 

fa 

30 

f5 

cf 

Obel 


14 

4a 

4a 

4a 

4a 

20 

al 

c3 

Ba 

0ed9 


02 

dO 

d6 

60 

20 

e4 

ff 

dO 

dO 

Hfl 

3 

cB 

b9 

9e 

aO 

30 

05 

20 

47 

Bc 

Obc9 


b3 

14 

29 

Of 

20 

al 

c3 

ca 

6B 

Oeel 


fb 

60 

20 

•8 

c6 

ad 

36 

03 

82 

1 lf 9 

3 

ab 

dO 

f 5 

60 

53 

55 

49 

43 

21 

Obdl 


10 

ed 

20 

la 

c9 

4c 

86 

e3 

04 

0ee9 


49 

ff 

8d 

36 

03 

60 

a9 

00 

36 

1201 

8 

49 

44 

45 

Od 

54 

4f 

50 

2d 

bb 

0bd9 


09 

30 

c9 

3a 

90 

02 

69 

06 

7f 

Oef 1 


Bd 

ff 

02 

Bd 

34 

03 

Bd 

36 

ae 

1209 

3 

54 

4f 

4f 

4c 

00 

a3 

a3 

a3 

55 

Obel 


20 

d2 

ff 

60 

4c 

OB 

af 

20 

7a 

Oef 9 


03 

4c 

86 

e3 

B5 

22 

84 

23 

02 

1211 

8 

a3 

a3 

a3 

a3 

a3 

a3 

a3 

00 

c9 

0be9 


fl 

c3 

a 2 

01 

20 

79 

00 

fO 

34 

OfOl 


aO 

00 

bl 

22 

fO 

10 

aa 

65 

57 

1219 

8 

56 

4f 

4e 

20 

54 

48 

4f 

4d 

Oe 

Obf 1 


f 3 

•9 

2f 

c9 

Oa 

90 

02 

e9 

df 

Of 09 


24 

85 

24 

90 

02 

e6 

25 

cB 

BB 

1221 

8 

41 

53 

20 

4d 

45 

49 

44 

49 

00 

Obf 9 


OB 

Oa 

Oa 

Oa 

Oa 

95 

14 

20 

a8 

Of 11 


8a 

20 

d2 

ff 

dO 

ec 

60 

aO 

97 

1229 

8 

4e 

47 

45 

52 

OO 

93 

4c 

49 

17 

OcOl 


73 

00 

fO 

14 

#9 

2f 

c9 

Oa 

86 

Of 19 


00 

20 

79 

00 

99 

a7 

02 

fO 

48 

1231 

8 

53 

54 

Od 

93 

52 

55 

4e 

Od 

87 

0c09 


90 

02 

o9 

OB 

15 

14 

93 

14 

B6 

Of 21 


60 

c9 

22 

fO 

5f 

, 11 

20 

73 

bO 

1239 

8 

53 

59 

53 

34 

SO 

39 

36 

2 a 

Be 

Ocll 


20 

73 

00 

fO 

03 

ca 

10 

d9 

83 

Of 29 


00 

99 

a7 

02 

fO 

08 

c8 

cO 

fc 

1241 

8 

4c 

4f 

41 

44 

4f 

4c 

4 4 

Od 

90 

0cl9 


20 

17 

c9 

a6 

14 

aS 

15 

20 

Of 

Of 31 


14 

dO 

f 3 

a6 

2b 

aS 

2c 

86 

ld 

1249 

8 

93 

43 

41 

54 

41 

4c 

4f 

47 

9b 

0 c 21 


cd 

bd 

20 

la 

c9 

4c 

86 

e3 

f 9 

Of 39 


fb 

85 

fc 

aO 

03 

bl 

fb 

99 

2b 

1251 

8 

Od 

40 

Od 

52 

45 

4e 

55 

4d 

c3 

0c29 


a9 

OO 

B5 

14 

B5 

15 

60 

20 

79 

Of 41 


37 

03 

BB 

10 

fB 

aO 

03 

a 2 

04 

1259 

3 

42 

45 

sa 

ff 

21 

ff 

24 

ff 

75 

0c31 


fl 

c3 

20 

79 

00 

fO 

ad 

c9 

Od 

Of 49 


ff 

eB 

cB 

bd 

a7 

02 

fO 

Oa 

08 

1261 

3 

44 

45 

88 

45 

ff 

41 

55 

a4 

bb 

Oc39 


31 

1B 

dO 

01 

3B 

26 

14 

26 

lc 

Of 51 


dl 

fb 

fO 

f 5 

bl 

fb 

fO 

lc 

12 

1269 

8 

ff 

4d 

45 

52 

47 

45 

ff 

54 

f 2 

Oc41 


15 

20 

73 

00 

90 

fl 

bO 

dO 

40 

Of 59 


dO 

ed 

ae 

39 

03 

B6 

14 

ad 

03 

1271 

8 

52 

41 

43 

45 

ff 

25 

ff 

4f 

a5 

Oc49 


4c 

e3 

a8 

20 

79 

00 

20 

6b 

a4 

Of 61 


3a 

03 

83 

15 

20 

cd 

bd 

20 

cB 

1279 

8 

46 

46 

ff 

46 

49 

4e 

44 

ff 

c3 

0c5 1 


a9 

20 

13 

a6 

90 

f 2 

a6 

5f 

9e 

Of 69 


13 

a6 

a9 

00 

B5 

7a 

20 

62 

ab 

1281 

8 

44 

55 

4d 

50 

ff 

95 

ff 

40 

fa 

0c59 


a4 

60 

86 

fd 

B4 

fe 

20 

fd 

4b 

Of 71 


c9 

20 

la 

c9 

20 

el 

ff 

fO 

fd 

1289 

8 

ff 

43 

41 

54 

41 

bc 

ff 

4f 

9d 

0c61 


ae 

20 

lf 

c9 

20 

13 

a6 

90 

77 

Of 79 


OB 

ae 

37 

03 

ad 

3B 

03 

dO 

51 

1291 

8 

4c 

44 

ff 

4c 

94 

ff 

94 

ff 

24 

0c69 


df 

78 

aO 

00 

bl 

5f 

aa 

c8 

ff 

Of 81 


b6 

4c 

86 

e3 

20 

a2 

e3 

aO 

63 

1299 

1 

93 

ff 

a9 

ff 

9a 

ff 

53 

4B 

le 

0c71 


bl 

Sf 

B5 

60 

B6 

Bf 

bl 

3f 

28 

Of 89 


00 

bl 

7a 

c9 

22 

dO 

02 

a9 

3e 

12al 

3 

4f 

57 

ff 

cB 

cO 

b9 

cO 

9a 

c7 

Oc79 


91 

fd 

c8 

dO 

f 9 

e6 

60 

•6 

7b 

Of 91 


00 

99 

a7 

02 

fO 

05 

cB 

cO 

64 

12a9 

8 

cO 

cl 

c3 

c3 

c4 

c4 

c4 

c5 

c4 

OcBl 


fe 

a5 

2m 

c5 

60 

bO 

ef 

20 

22 

Of 99 


14 

dO 

ee 

4c 

fc 

c6 

38 

a5 

8d 

12bl 

3 

c3 

c6 

c6 

c7 

c5 

c8 

cB 

cB 

d9 

OcB9 


33 

aS 

20 

9b 

a6 

4c 

86 

e3 

b9 

Of al 


2d 

e5 

2f 

aa 

aS 

2e 

e5 

30 

a6 

12b9 

8 

c4 

c5 

cS 

c5 

cS 

cS 

ab 

7a 

bB 

0c91 


20 

79 

00 

20 

6b 

a9 

a6 

14 

39 

0fa9 


dO 

07 

eO 

07 

bO 

03 

4c 

86 

77 

12cl 

8 

af 

13 

5B 

d4 

af 

f 7 

b6 

df 

00 

0c99 


a4 

15 

B6 

f 9 

84 

t a 

20 

fd 

45 

Of bl 


e3 

a6 

2d 

a4 

2e 

86 

41 

BA 

ec 

12c9 

8 

66 

5f 

27 

7d 

fe 

fb 

8c 

62 

lf 

Ocal 


ae 

20 

6b 

a9 

a& 

14 

a4 

15 

37 

Of b9 


42 

20 

d6 

c7 

aO 

00 

bl 

41 

Od 

12dl 

8 

95 

aO 

b7 

00 

ff 

00 

ff 

00 

a4 

0ca9 


86 

f 7 

84 

f 8 

ad 

04 

03 

65 

7d 

Of cl 


09 

7f 

30 

18 

cB 

bl 

4t 

09 

ca 

Listing 1. 

»Top-Tool« 
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TIPS&TRICKS 


C 64/C 16/C 128 


Berechnung periodischer 
Dezimalbrikhe 

Wahrscheinlich standen Sie auch schon vor dem Problem, einen periodischen Dezimalbruch in 
einen echten Bruch umzuwandeln. Dieses Programm berechnet Ihnen den echten Bruch 

automatisch. Ungenauigkeiten treten nicht auf. 


D as Programm ist so geschrieben, daß eine Fehlbedie¬ 
nung so gut wie ausgeschlossen ist. Das Anfangsbild 
zeigt, wie die periodischen Dezimalbrüche eingege¬ 
ben werden. Neben dem eigentlichen Ergebnis werden 
zusätzlich noch die wichtigsten Rechenschritte angezeigt. 
Nehmen wir doch einmal das Beispiel aus dem Anfangsbild: 

Zu berechnen ist der Dezimalbruch 
0.76351, 

Einzugeben ist der Wert 0.76351 und die Länge der Periode 
= drei. Der Dezimalbruch wird nun wie folgt aufgespaltet: 

0.7635? = + Rest 

100 

wobei für den Rest gilt, 


Rest 


E 351 
k=o io 5+3K 


Dieses ist noch recht einfach zu 
sich 


verstehen. Daraus ergibt 


= 351 £ 1 

io 5 K-0 10 3K 

dieses ist durch vollständige Iteration beweisbar. 

_ 351 1 

100000 0.999 

Somit gilt (siehe auch ersten Zwischenschritt beim 

Ausdruck): 


0.76351 = 


76 351 _1 

100 100000 0.999 



Dies war der schwierigste Teil der Berechnung und erfor¬ 
derte zum ganzen Verständnis schon einige Grundkennt¬ 
nisse in höherer Mathematik. Doch zum Glück ist das Ver¬ 
ständnis keine Voraussetzung zum Benutzen des Pro¬ 
gramms. 

Sehen wir weiter: Zunächst wird nun versucht, die vorhan¬ 
denen Brüche so klein wie möglich zu machen. Das 
geschieht dadurch, daß man jeweils von Zähler und Nenner 
den GGT (größter gemeinsamer Teiler) berechnet und Zähler 
und Nenner dadurch dividiert. In unserem Beispiel ist beim 
ersten Bruch 

76 

100 

der GGT = 4; nach der Division erhalten wir also 
19 
25 

Bei... anderen Bruch (der zweite Bruch wurde bereits mit 
dem dritten multipliziert) haben wir den GGT 27, dies führt 
dann zum Ergebnis 

13 

3700 

Als zweites Zwischenergebnis steht nun: 

= 19 | 13 

25 3700 

Im folgenden sind jetzt also nur noch die beiden Brüche zu 
addieren. Das machen wir, wie in der Schule gelernt, indem 
wir zuerst das KGV (kleinstes gemeinsames Vielfaches) der 
beiden Nenner suchen. Da die Funktion GGT schon vorhan¬ 
den ist und das KGV definiert ist als 


KGV(a,b) = 


a x b 
GGT(a,b) 


ist dies kein größeres Problem. 


Anschließend muß dann nochmal durch den GGT des jetzt 
so entstehenden einzigen Bruches dividiert werden und wir 
erhalten: 


= 113 

148 

Wenn das Programm als Unterprogramm verwendet wer¬ 
den soll, so muß vor dem Aufruf der Dezimalbruch in X$ ste¬ 
hen und die Länge in L$. Zurückgegeben wird dann in Z2$ 
der Zähler und in N2$ der Nenner. Die Zeilen zum Aus¬ 
drucken der Ergebnisse müssen natürlich entfernt werden. 

Das Programm wurde zwar für den C 64 geschrieben, kann 
aber im Prinzip auf jeden anderen Computer übertragen wer¬ 
den, sofern er Stringbefehle verarbeiten kann. Falls diese 
nicht zur Verfügung stehen, müssen wenige Anpassungs- 
Routinen geschrieben werden. (B. Filpe/do) 
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C 64/C 16AC 128 


TIPS&TRICKS 


0 REM ********************************* 

< 131 > 

580 Z(1)=Z <1)*GG/N(1) 

< 178> 

1 REM * * 

<050> 

590 Z(2)=Z <2)*GG/N(2) 

< 20 B> 

2 REM * BERECHNUNG PERIODISCHER * 

< 145> 

600 N(2)—GG:Z(2)—Z(1)+Z(2) 

<064> 

3 REM * DEZIMALBRUECHE * 

<005> 

610 Bl—Z(2):G2—N(2):GOSUB 5000 

< 152> 

4 REM * # 

<053> 

620 Z <2) —Z (2) /GG: N <2) —N (2) /GG 

<015> 

5 REM * BERNHARD FILPE * 

< 177> 

630 GOSUB 3000:GOSUB 4200 

< 18B> 

6 REM * LANGGASSE 2B * 

<036> 

700 END 

< 194> 

7 REM * 6733 HASSLOCH * 

< 192> 

2000 REM FEHLERANZEIGE 

<047> 

8 REM * * 

<057> 

2010 PRINT"{3D0WN,RVSON,SPACE}";ER*J" " 

<096> 

9 REM ********************************* 

10 POKE 53280,6:P0KE 53281,6sPRINT CHR*<14 

< 140> 

2015 IF EL=0 THEN 2030 

2017 PRINT"{DOWN>"iX*:IF EL-1 THEN PRINT"t 

<029> 

7),CHR*(14),CHR*<8) 

20 PR INT "BERECHNUNG PERIODISCHER JEZIMALBR 

<201 > 

":GOTO 2030 

2020 FOR J=1 TO 1-1 SPRINT" "j:NEXT:PRINT"T 

<080 > 

UECHE" 

<062> 

II 

2030 FOR W=1 TO 1000: BET A*: IF A*“” "THEN N 

<016> 

TTTTT" 

<094 > 

EXT 

<025> 

40 PRINT"<3DQWN >glNGABEBEISPIEL:" 

<24B> 

2040 RUN 

<C18> 

45 PRINT" {DOWN, lBSPACEi***” 

50 PRNT"gU BERECNEN .7635” <232> 

< 127> 

3000 REM AUSGABE DER ERRECHNETEN WERTE 

3005 Z<1)“INT(Z(l>):Z(2>=INT <Z<2)):N(1)-IN 

< 171 > 

60 PRINT“{DOWN>glNGABE{5SPACE>: 0.76351{3S 


T(N(1)):N(2)=INT(N(2)) 

<169> 

PACEJgAENGE 3“ 

<211 > 

3010 Z1*=STR* < Z(1)>:N1*=STR*(N <1)) 

<049> 

70 PRINT“<DOWN>" 

<018> 

3020 Z2*=STR*<Z(2)):N2*-STR*(N(2)) 

<008> 

80 INPUT"fiEZIMALBRUCH{ 6 SPACEI: "jX* 

<232> 

3030 Z3*="1":N3*=STR*(N(3)):IF N(3)<>1 THE 


90 INPUT"iAENGE DER £ERIODE: ";L* 

100 L-VAL(L*):IF LOINT<L)OR L< 1 THEN ER*- 

<211 > 

N 3040 

3035 N3*=" .":FOR J-l TO L:N3*”N3*+"9":NEX 

< 106> 

"EINGABE DER £ERIODE FALSCH":GOTO 2000 
105 IF VAL(X*>=0 THEN ER*-"FALSCHE glNGABE 

<005> 

T: N(3)=VAL(N3*> 

3040 Ll—LEN <Z1*>:IF L1<LEN<N1*1THEN LI—LEN 

< 114> 

“:GOTO 2000 

<096> 

(Nl*> 

< 182> 

110 REM TEST AUF KORREKTE EINGABE 

< 109> 

3050 L2=LEN(Z2*):IF L2<LEN<N2<1THEN L2-LEN 


120 XL=LEN(X») 

< 138> 

<N2*> 

<050 > 

130 FOR 1=1 TO XL 

< 196> 

3060 L3—LEN(N3*> 

<199> 

140 T*-MID*(X*,I,1>:T=VAL(T*> 

< 144> 

3070 IF L1>LEN(Z1*1THEN Zl*=" "+Zl*:GOTO 3 


150 IF<T=>1>AND<T<-9>THEN FL-1:GOTO 180 

160 IF T*="0"AND FL=0 THEN NU=NU+l:GOTO 18 

< 198> 

070 

3080 IF LI>LEN(Nl*lTHEN NI*-" "+Nl*:BOTO 3 

<216> 

0 

<005> 

080 

< 157> 

165 IF T*=”0"THEN 180 

< 166> 

3090 IF L2>LEN <Z2*1THEN Z2*-" "+Z2*:GOTO 3 


170 IF T*="."AND PF-0 THEN FL-1:PF=1sPK=Is 


090 

< 112 > 

GOTO 180 

<066> 

3100 IF L2>LEN(N2*1THEN N2*-" "+N2*:GOTO 3 


175 ER*="£ALSCHE glNGABE"sEL=I:GOTO 2000 

<238> 

100 

<231 > 

180 NEXT 

< 190> 

3110 IF L3>LEN(Z3*)THEN Z3*=" "+Z3*:G0T0 3 


200 IF FL THEN X*=MID*<X*,NU+1)sPK-PK-NU 

<253 > 

1 10 

< 1 B 6 > 

210 XL=LEN(X*> 

< 22 B> 

312lu 3*-"0"+MID*(N3*,2> 

<034> 

220 IF PF-0 THEN ER*-"JEZIMALPUNKT FEHLT": 


3130 RETURN 

<140> 

GOTO 2000 

<247> 

4000 PRINT"{2SPACE> "; Z1 * J"{3SPACE}";Z2*|"{ 


230 IF L>XL—PK THEN ER*="£ALSCHE ÜERIODENA 


3SPACEJ";Z3* 

< 175> 

NGABE":GOTO 2000 

250 PRINT"<CLR,DOWN>JERECHNUNG PERIODISCHE 

<248> 

4010 PRINT"- "; 

4020 FOR 1 = 1 TO LI:PRINT"*"j:NEXT:PRINT" + 

<036> 

R JEZIMALBRUECHE" 

< 198> 

"5:FOR 1=1 TO L2:PRINT"* M j:NEXT:PRIN 

<05B> 



T" * 

rrmT" 

270 PRINT“{DOWN>JEZIMALBRUCH{7SPACE>: "}:I 

<070> 

4030 FOR 1 = 1 TO L3:PRINT"*" j:NEXT:PRINT 
4040 PRINT"{2SPACE>";N1*;"{3SPACE>" 5 N2*;“{ 

< 129> 

F PK=1 THEN PRINT”0"; 

<017> 

3SPACE >";N3* 

< 145> 

275 PRINT X* 

<127> 

4050 RETURN 

<042> 

2B0 PRINT"iAENGE DER £ERIODE : ";L* 

<227> 

4100 PRINT"(2SPACEJ";Z2*J"<3SPACE>"|Z3* 

<226> 

290 PRINT 

< 138> 

4110 PRINT"- "5 

< 13B> 

300 REM BERECHNUNG 

<045> 

4120 FOR 1 = 1 TO L2:PRINT"*";:NEXT:PRINT" * 


310 N(1) = 10T<XL—L—PK) 

< 200 > 

" 1 

< 161 > 

320 IF PK=1 THEN V*=MID*<X*,2,XL-L-1>:GOTO 


4130 FOR 1=1 TO L3:PRINT"*";:NEXT:PRINT 

<231 > 

337 

< 012 > 

4140 PRINT"{2SPACE>"j N2*j“{3SPACE>"; N3* 

< 133> 

330 V*=MID*(X*,1,PK-1>:VL=LEN(V*> 

<183> 

4150 RETURN 

<144> 

335 V*-V*+MID*(X*,PK+1,XL-VL-1-L) 

<103> 

4200 PRINT"<2SPACE>"jZ2* 

<091 > 

337 Z(1>=VAL<V*) 

< 112 > 

4210 PRINT"- "5 

<23B> 

340 N(2)=10t(XL—PK) 

< 102 > 

4230 FOR 1 = 1 TO L2:PRINT"*" 5 :NEXT:PRINT 

<074> 

350 Z(2>=VAL(MID*<X*,XL-L+1>>:IF Z(2>=0 TH 


4240 PRINT"<2SPACE>"iN2* 

< 12B> 

EN ER*-"flEZIMALBRUCH TRIVIAL":GOTO 200 


4250 RETURN 

<244> 

0 

< 191 > 

4300 PRINT"<2SPACE>“|ZI*;"<3SPACE >”5 Z2* 

<233> 

360 N(3>—l-10t(-L):Z(3)=l 

< 187> 

4310 PRINT"- "5 

< 0 B 2 > 

400 GOSUB 3000 

< 118> 

4320 FOR 1-1 TO LI:PRINT"*" j:NEXT:PRINT" + 


410 GOSUB 4000:PRINT 

<062 > 

“J 

< 120 > 

420 IF Z(1)=0 THEN 450 

<236> 

4330 FOR 1=1 TO L2:PRINT"*" ;:NEXT:PRINT 

< 174> 

430 Gl-Z<1):G2=N(1) :GOSUB 5000:REM GGT 

<217> 

4340 PRINT"<2SPACE>";N1*;”{3SPACE>" 5 N2* 

< 140> 

440 Z(11=Z(1)/GG:N(1)=N <1)/GG 

<005> 

4350 RETURN 

<0B8> 

450 Z(2)=Z(2)*Z <3> 

<046> 

5000 REM GGT 

<036> 

460 N(2)=N(2>*N{3) 

<065> 

5010 Q1=1NT(Gl1:G2—INT(G2> 

<21B> 

510 Gl—Z(2) :G2—N(2):GOSUB 5000:REM GGT 

<043> 

5020 IF G1<B2 THEN HI-Gl:B1-B2:G2-HI 

<231 > 

520 Z (2) —Z <2) /GG: N (2) —N (2) /GG 

< 171 > 

5030 IF Gl/B2—INT(Gl/G2)THEN 6G-G2:RETURN 

< 16B> 

530 GOSUB 3000 

<250> 

5040 Q—G1/G2:IF B>20 THEN Gl-Gl-INT(Q-10)* 


540 IF Z(1)<>0 THEN GOSUB 4300 

<211 > 

G2 

< 170> 

550 IF Z<1>=0 THEN GOSUB 4200:END 

<157> 

5050 IF G1-G2 THEN GG-Gl:RETURN 

<241 > 

555 PRINT 

< 149> 

5060 IF Gl>G2 THEN Gl-INT(G1-G2):GOTO 5020 

<241 > 

560 G1=N(1> sG2=N(2):GOSUB 5000 

570 GG—N(1> *N <2>/GG:REM KGV 

<099> 

<014> 

5070 G2—INT < G2—G1>:GOTO 5020 

< 136> 

Listing. Wandlungen eines periodischen Bruches in einen echten Bruch 
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TIPS&TRICKS 


C 64 


Das erste Lebenszeichen 


Was passiert in den ersten Sekunden nach dem 
Einschalten Ihres C64? Woher weiß der Prozes¬ 
sor, was er zu tun hat? Was ist ein Reset-Taster, 
was ein Modul-Start? Auf diese Fragen finden Sie 
auf dieser Seite ausführlich Antwort. 

aben Sie sich nicht auch schon Gedanken darüber 
gemacht, warum sich Ihr C64 nach dem Einschalten 
für kurze Zeit »totstellt«? Brauchen die Chips erst eine 
kurze Vorwärmzeit? Muß der Prozessor erst einmal wach 
werden? 

Nein, während dieser Phase, in der der Computer zwar ein¬ 
geschaltet ist, aber noch kein Lebenszeichen (sprich 
»READY.«-Meldung) von sich gibt, wird ein sogenannter 
»Reset« ausgeführt. Dieser Reset ist für den C 64 nicht eine 
»Anwärmphase«, sondern eine höchst arbeitsintensive und 
interessante Routine. Schauen wir uns einmal an, was in 
unserem C64 nach dem Einschalten so alles vor sich geht. 

Wenn Sie Ihren C 64 einschalten, so werden die Bausteine 
im Computer nahezu schlagartig mit Spannung versorgt. 
Würde die CPU sofort losstürmen, würde sie sofort wieder in 
den Tiefen des C 64 verschwinden. Daran hindert sie jedoch 
ein Signal am Reset-Eingang. Er liegt auf logisch »0« und 
lähmt somit den Prozessor. Zu diesem Zeitpunkt wird ein spe¬ 
zieller Timer-Baustein in Gang gesetzt, der die Reset-Leitung 
kontrolliert. Er wartet, bis sich die Betriebsspannung vollstän¬ 
dig aufgebaut und stabilisiert hat. Erst nach Ablauf der hard¬ 
waremäßig vorgegebenen Zeitspanne wechselt der Timer 
seinen Pegel und gibt somit den Prozessor frei, der bis dahin 
noch nicht eine einzige Operation gemacht hat. 

Doch dieser Reset (es gibt noch andere) betrifft nicht nur 
die CPU. Drei weitere Bausteine bekommen ihn auf die glei¬ 
che Weise zu spüren: der Sound-Chip (welch ein Lärm ohne 
Reset) und die zwei Port-Bausteine (CIAs). Primär betrifft der 
Einschalt-Reset also vier Bausteine. Doch nur beim Prozes¬ 
sor geht es aktiv weiter, die anderen drei werden nur in eine 
bestimmte Grundposition »gefahren«, um den Prozessor und 
uns nicht weiter zu stören. 

Am Anfang kommt ein Reset 


Wichtig ist, daß der Prozessor bei seinem ersten Zugriff das 
ROM vorfindet, denn nach Freigabe der Reset-Leitung führt 
die CPU einen bestimmten Befehl aus. Dafür sorgt der Pro¬ 
zessor selber, indem er an seinen Ausgangsports Basic, Ker¬ 
nel und I/O-Bereich selektiert. Der erste Befehl ist ein indirek¬ 
ter Sprung nach $FFFC, fast an das Ende des Speicherbe¬ 
reichs. Das heißt, der Prozessor »sieht nach«, welche 2-Byte- 
Adresse sich dort befindet, um sofort dorthin zu springen. 
Beim C 64 steht dort die Adresse $FCE2 (64738). Und dann 
geht es richtig los. 

Zunächst wird der Prozessor gegen normale Interrupts 
abgesichert (Einen NMI, also RUN/STOP RESTORE, nimmt 
er nach wie vor an, stürzt aber dabei ab.), der Stack-Pointer 
wird zurückgesetzt und das Dezimal-Flag (für uns nicht so 
wichtig, es ist hier nur der Vollständigkeit halber erwähnt) 
wird gelöscht. Dann prüft der Computer, ob sich ein Modul im 
Expansions-Port befindet. Diese Routine befindet sich ab 
$FD02. Er vergleicht die Adressen $8004 bis $8008, ob 
deren Inhalt den Speicherstellen $FD10 bis $FD14 ent¬ 
spricht. Sie enthalten die Zeichen »CBM80«. 

Läuft der Modul-Vergleich erfolgreich ab, wird wieder ein 
indirekter Sprung ausgeführt, diesmal nach $8000. Es wird 
also auf die dort Vorgefundene Adresse verzweigt. Allerdings 
erkennt der Computer nicht das Modul, sondern lediglich die 


Meldung »CBM80«. So ist es möglich, einen solchen Modul- 
Start zu simulieren, indem man die Modul-Identifikation ein¬ 
fach an die entsprechende Adresse (ab $8004) schreibt und 
den Vektor bei $8000 auf eine eigene Routine verzweigt. Bei 
professionellen Spielen wird auf diese Weise der Reset 
unterdrückt. Dafür bieten einige Speeder wie zum Beispiel 
SpeedDos, PrologicDos, DolphinDos und das 64’er-Dos die 
Möglichkeit, während des Resets durch Drücken einer Taste 
(<SPACE> oder <CTRL>) den Modulstartzu unterbin¬ 
den. Dies ist allerdings eine Veränderung der Systemsoft¬ 
ware, die im Commodore-Betriebssystem nicht besteht. 

Findet der Computer keinen Modul-Start vor, dann wird als 
nächstes das Register 22 des VIC auf Null gesetzt - das 
sehen Sie, wenn Sie einen Reset-Taster haben, am Abschnei¬ 
den des rechten und linken Bildrandes. 

Reset sorgt für Ruhe und Ordnung 


Im darauffolgenden Schritt, einem Unterprogramm ab 
$FDA3, werden die Portbausteine und der Sound-Chip, die 
ja auch einen Reset durchgeführt haben, abgehandelt. Bei 
letzterem wird nur die Lautstärke auf Null gesetzt, für den Fall, 
daß der Reset softwaremäßig ausgelöst wurde. In den CIAs 
dagegen werden die Timer für den Interrupt vorbereitet und 
gesetzt, die Datenrichtungs-Register, die CIA-Ports und 
sowie der Prozessor-Port definiert. 

Jetzt erst kommt der C 64 dazu, seinen Arbeitsspeicher zu 
testen und zu initialisieren. Die Routine dazu steht ab $FD50 
und ist zu etwa 98 Prozent verantwortlich für die Dauer des 
fie3<Liw. Der Bereich von $0002 bis $03FF wird komplett 
gelöscht, der gesamte Speicher von $0400 bis $9FFF wird 
durch zweimaliges Schreiben und Auslesen auf Funktion 
getestet. Daraufhin werden die Ober- und Untergrenze des 
Basic-Bereiches definiert und das Video-RAM (der Bild¬ 
schirm) nach $0400 gelegt. 

Hardware und Ein-/Ausgabe-Vektoren sind die nächste 
Station des Resets. Damit sind die Zeiger ab $0314 gemeint. 
Deren Inhalte werden von einer Routine ab $FD15 einfach 
aus einer Tabelle ab $FD30 kopiert. 

Die letzte Station des Resets ist die Initialisierung des 
Video-Controllers. Eine Tabelle ab $ECB9 wird nach $D000 
kopiert. Dadurch wird der VIC initialisiert. Danach wird die 
Tastatur-Eingabe vorbereitet, der Bildschirm gelöscht und 
nochmals der Interrupt-Timer gesetzt. Nachdem dann der 
Interrupt schließlich auch noch zugelassen wurde, wird der 
Basic-Kaltstart, durch einen indirekten Sprung nach $A000, 
ausgeführt. 

Wir haben vorher angesprochen, daß es mehrere Möglich¬ 
keiten gibt, einen Reset auszulösen. Den Einschalt-Reset 
können Sie auslösen, indem Sie die Reset-Leitung kurzzeitig 
auf Masse ziehen, beispielsweise durch einen Taster. Eine 
Bauanleitung dafür finden Sie im 64’er, Ausgabe 6/85. 

Einige Erweiterungen beinhalten Reset-Befehle, wie 
COLD bei Simons Basic, die dann einen Reset software¬ 
mäßig auslösen. Dem entspricht ein SYS 64738 im normalen 
Basic. Allerdings ist dies kein »sauberer« Reset, da nicht auto¬ 
matisch auf das ROM geschaltet wird und auch der SID und 
die CIAs nicht davon betroffen sind. Der Einsprung ist aller¬ 
dings derselbe, also mit Modul-Test und Initialisierung aller 
wichtigen Register, so daß Sie hier beliebig experimentieren 
können. Natürlich lassen sich die diversen Einsprünge auch 
unabhängig voneinander verwenden. So löst zum Beispiel 
SYS 64763 nur einen Video-Reset mit Basic-Kaltstart aus, 
ohne eventuell verstellte Interrupt-Vektoren zu korrigieren. 

(og) 
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TIPS&TRICKS 


C 128 


Inbel 

im Basic 7.0 


4) GOTO und GOSUB auf den Inhalt von Feldelementen, 
die Strings enthalten. Verfahren wie unter Punkt 2). 

5) GOTO und GOSUB auf definierte Stringvariable. Dabei 
muß stets eine REM-Zeile mit dem entsprechenden String 
vorhanden sein. 

10 A$="1000" 

20 GOSUB A$ 


Nun wird es auch mit Basic 7.0 möglich, Label 
anstatt feststehender Zeilennummern anzuge¬ 
ben. Dies erleichtert die Programmierung. 

O bwohl das Basic 7.0 des CI28 sehr umfangreich ist, 
fehlt ihm eine Möglichkeit, die einige andere Computer 
schon aufweisen: die Angabe von Sprungzielen durch 

Label. 

Eine große Schwierigkeit beim Erstellen umfangreicher 
Programme scheint es zu sein, daß man von Anfang an wis¬ 
sen muß, wohin ein Sprung führen soll. Auch die Zusammen¬ 
stellung von Programmen durch Module ist nicht einfach, 
wenn Sprungadressen auftreten. 

Mit diesem Programm (Listing 1) kann neben der bisheri¬ 
gen Möglichkeit, Sprungziele mit Zeilennummern anzuge¬ 
ben, folgendes programmiert werden: 

1) GOTO und GOSUB auf eine errechnete Zeile. 

A=1000:GOTO A 
A=1000:GOSUB A/2+50 

Damit lassen sich Sprungverteiler vermeiden. 

2) GOTO und GOSUB auf Inhalte von Feldelementen (nume¬ 
risch). In einem numerischen Feld sind Sprungziele gespei¬ 
chert. Hiermit ist 
möglich: GOTO 

(oder GOSUB) A(l) 
mit laus zulässigem 
Bereich. 

3) GOTO und 
GOSUB auf Mar¬ 
ken. Die Marke muß 
in einer REM-Zeile 
stehen. Es ist fol¬ 
gendes möglich: 


550 GOTO"DRUCK" 

... REMDRUCK 
... PRINT"... 
Gleiches gilt auch 
für GOSUB. 


name 

1 

sys 




1300 

13b7 

13MB 

, 

ad 

00 

ff 

48 

a9 

00 

Bd 

00 

87 

I30B 

1 

ff 

•id 

06 

d5 

09 

06 

Bd 

06 

ld 

1310 

1 

d5 

68 

Bd 

00 

ff 

78 

a9 

22 

2 b 

1318 

: 

Bd 

08 

03 

a9 

13 

Qd 

09 

03 

67 

1320 

i 

58 

60 

20 

80 

03 

c9 

89 

f0 

47 

1328 

: 

0 a 

c9 

Bd 

f0 

24 

4c 

f 3 

4a 

al 

1330 

i 




20 

f 7 

77 

a5 

Bf 

3e 

1338 

: 

30 

23 

20 

15 

8 B 

a5 

17 

c9 

4a 

1340 

: 

fa 

bM 

06 

20 

e 2 

59 

4c 

f 6 

30 

1348 

i 

4a 

a2 

0 b 

2 c 

a2 

11 

4c 

3c 

88 

1350 

i 

4d 

20 

ld 

5a 

20 

B6 

03 

20 

c 2 

1358 

i 

33 

13 

4c 

f 6 

4a 

20 

7e 

87 

bb 

1360 

8 

f0 

ea 

18 

69 

05 

90 

03 

4c 

72 

1368 

8 

ed 

a5 

85 

93 

8 a 

e9 

04 

85 

0 f 

1370 

8 

Sc 

98 

e9 

00 

in 

o 

5d 

aS 

2 d 

c7 

137B 

8 

n6 

2 e 

85 

61 

86 

62 

a 0 

01 

c3 

1380 

8 

20 

ec 

42 

f0 

c7 

aa 

all 

04 

21 

1388 

8 

20 

ec 

42 

c9 

Bf 

f0 

14 

a0 

fa 

1390 

: 

00 

20 

ec 

42 

4c 

7a 

13 

20 

49 

1398 

s 

e 2 

42 

85 

a6 

20 

ec 

42 

c5 

cf 

13a0 

s 

a6 

d0 

ec 

CB 

c4 

93 

dB 

ef 

0 e 

13a8 

: 

18 

a0 

bi 

20 

94 

50 

06 

62 

ff 

1 3b0 

8 

38 

20 

06 

5a 

4c 

f 6 

4a 

1 B 

9b 


Listing 1. Bitte mit dem MSE im 
C64-Modus eingeben. 


Eingabehinweise 

Das Programm (Listing 1) geben sie bitte mit dem MSE im 
C64-Modus ein und speichern es. Für Floppy-Besitzer 
scheint weiter folgender Weg der einfachste zu sein: 

1) Erstellen einer Autoboot-Diskette 
Name des Basic-Programms: INIT 

2) Unter INIT wird folgender Einzeiler gespeichert: 

10 P0KE 46,32:P0KE 48,32:P0KEDEC("2000"),0:CLR: 
BL0AD"SYS":SYSDEC('1300"):NEW 
Dieses Programm bewirkt folgendes: 

a) Basic-Anfang auf $2000 einstellen 

b) Variablen-Anfang auf $2000 einstellen 

c) Der Befehl CLR bewirkt ein Anpassen der übrigen Zeiger 
auf den umgestellten Bereich 

d) Nachladen des unter SYS gespeicherten Maschinen¬ 
programmes 

e) Einbinden in den Interpreter 

f) Löschen 

Statt f) könnte auch ein weiteres Programm nachgeladen 
und gestartet werden. 

3) Das Maschinenprogramm ist dabei unter dem Namen SYS 
gespeichert. 

Nicht-Floppy-Besitzer müssen folgenden Einzeiler laden 
und starten: 

10 ROKE 46,32:P0KE 48,32: P0KEDEC("2000"),0:CLR:NEW 
Danach muß das Maschinenprogramm geladen und mit 
SYSDEC( "1300") gestartet werden. 

Die Listings 2 und 3 sollen Ihnen nur die Fähigkeiten der 
Erweiterung demonstrieren, müssen also nicht unbedingt 
abgetippt werden. 

Um das Maschinenprogramm kurz zu halten, mußten 
folgende Restriktionen vereinbart werden: 

1) Die erweiterte GOTO/GOSUB-Routine ist nur im 
Programm-Modus benutzbar 

..:GOTO.. 

2) Soll nach THEN auf eine Marke gesprungen werden, muß 
die Syntax geändert werden 

IF..THEN:G0T0.. 

3) Soll ELSE mit Marken verwendet werden, ist ebenfalls die 
Syntax zu ändern 

IF..:ELSE:G0T0.. 


(Gerhard Seltzsam/dm) 


10 REM *** DEMO 2 

*#* 

<A99> 

20 PRINT CHR*(147) 


< 1 A3> 

30 Z*=“ZAHL": O*=“QUADRAT": 

W$="WURZEL" <LR3> 

40 FOR I = 1 TO 10 


<K0V> 

50 GOSUB Z*: GOSUB 

O* 

<402> 

70 GOSUB W* 


<1CT> 

80 NEXT 


<GU0> 

90 END 


<RVE> 

100 REM ZAHL 


< I IA> 

110 PRINT I, 


<3H7> 

120 RETURN 


<4S7> 

300 REM WURZEL 


<JIE> 

310 PRINT SQR(I) 


<JJV> 

320 RETURN 


<4K7> 

510 REM QUADRAT 


<GQ3> 

520 PRINT 1*1, 


<VAF> 

530 RETURN 


<KE7> 


10 REM *** DEMO 1 *** 

<A99> 

15 PRINT CHR*<147> 

<PA3> 

20 FOR I =1 TO 10 

<I0V> 

30 GOSUB "ZAHL" 

<510> 

40 GOSUB "QUADRAT" 

<TUJ> 

50 GOSUB "WURZEL" 

<QOP> 

60 NEXT 

<8P0> 

70 END 

<7SU> 

100 REM ZAHL 

< 11 A> 

110 PRINT I, 

<3H7> 

120 RETURN 

<4S7> 

300 REM WURZEL 

<JIE> 

310 PRINT SQR(I) 

<JJV> 

320 RETURN 

<4K7> 

510 REM QUADRAT 

<GQ3> 

520 PRINT 1*1, 

<VAF> 

530 RETURN 

<KE7> 


Listing 2. So können Sie mit Label arbeiten Listing 3. Auch hier wurden Zeilensprünge durch Label ersetzt 
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C 128 


TIPS&TRICKS 


Tips, Tricks, PEEKs und POKEs 

zum C128 


Eine wahre Fundgrube für jeden C 128-Anwender. 
Hier finden Sie interessante Listings und Informa¬ 
tionen, die Ihnen helfen werden, Ihren C128 bes¬ 
ser auszunutzen und kennenzulernen. 

E ine wahre Fundgrube für jeden C 128-Anwender und 
-Programmierer haben wir für Sie zusammengestellt. 
Tips & Tricks-Listings, PEEKs, POKEs und jede Menge 
Hintergrundinformationen, um Ihnen das Arbeiten mit Ihrem 
Computersystem zu erleichtern. 

Datagenerator C128 


Da der Monitor des C128 im Vergleich mit dem SMON 
keine Möglichkeit besitzt, Maschinenprogramme in DATA- 
Zeilen zu verwandeln, mußte der gequälte C128-Besitzer 
immer zwischen C64- und C128-Modus wechseln, nur um 
eine kleine Routine in Basic-Zeilen abgelegt zu bekommen. 

Mit diesem Datagenerator (Listing 1, bitte mit dem neuen 
Checksummer 128 eingeben) können bequem alle 
Maschinensprache-Routinen in Basic-Zeilen übernommen 
werden. 

Das Programm verlangt von Ihnen die Eingabe der Start- 
und Endadresse des zu wandelnden Bereiches. Diese kann 
sowohl dezimal oder auch, mit vorangestelltem »$«-Zeichen, 
hexadezimal erfolgen. Zu beachten ist nur, daß die Hex-Zahl 
vierstellig sein muß. 

Haben Sie die beiden Adressen eingegeben, müssen Sie 
dem Computer noch die Startzeilennummer der DATA-Zeilen 
und deren Schrittweite mitteilen. Danach wird der Bildschirm 


? ::: d&wwa::: tm 

b i <oib> 

B SCNCLR <0FJ> 

10 INPUT "STARTADR. ";SA*: IF MID» (SA*, 1,1)“'' 

*" THEN SA»DEC«RIGHT»(SA*,4))s ELSE SA»VA 
L(SA*) <S5Q> 

12 INPUT "ENDADR.";EA*: IF MID*(EA*,1,1)»"*" 

THEN EA»DEC(RIBHT*(EA*,4))t ELSE EA-VAL« 

EA») <JAL> 

14 INPUT “1.ZEILENNR.";ZN: INPUT "SCHRITTWEI 

TE";SW: IF ZN<30 THEN 14 <D09> 

16 PRINT CHR*(147)|ZN;“FORI="SA"TO“EA" <0MI> 

1B ZN=ZN+SW: PRINT ZN;"READ A*:POKE I,DEC(A* 

>“: ZN=ZN+SW: PRINT ZN;"NEXT I" <B4H> 

20 ZN=ZN+SW: PRINT ZN;. <IS6> 

22 PRINT “BOTO 26" <CMN> 

24 POKE 842,19: FOR I»1 TO 5: POKE B42+I.13: 

NEXT i POKE 200,6: END <JV1> 

26 ZN»ZN+SW: SCNCLR : PRINT ZN;"DATA"; <8MF> 

28 FOR I=SA TO SA+14 <IQT> 

30 : PRINT RIBHT*(HEX*(PEEK(I)>,2)+“,"; <04D> 

32 NEXT Xl PRINT CHR*(20) <8KP> 

34 PRINT "SA="SA":EA=“EA":SW»"SW":ZN-"ZN <ECK> 

36 PRINT "{2DOWN)GOT03B": POKE 842,19: FOR T 
-1 TO 3: POKE 842+T.13: NEXT : POKE 208,3 
: END <RD1> 

38 SA=SA+15: IF SA<EA THEN 26 <UHL> 

40 SCNCLR : PRINT "DELETE-40": POKE 842,19: 

POKE 843,13: POKE 200,2: END <LMA> 


Listing 1. »DATAGEN 128« - erzeugt ein Basic-Ladeprogramm. 
Bitte verwenden Sie zur Eingabe den Checksummer 128 auf 
Seite 122. 


gelöscht und die Einleseschleife übernommen. Wiederum 
löscht sich der Bildschirm und aus dem angegebenen 
Bereich werden die Werte in DATA-Zeilen abgelegt, und zwar 
in hexadezimaler Form. Dadurch sind die erzeugten Zeilen 
nicht nur schön untereinander formatiert, sondern ersparen 
den späteren Benutzern auch noch ein Drittel Tipparbeit. 
Letztendlich löscht sich der Datagenerator per DELETE -40 
noch selbst, so daß nun beim LISTen ein speicherfertiges 
Programm auf dem Bildschirm steht. 


1000 F0RI= 4064 TO 4919 
1010 READ ASiPOKE I,DEC(A*> 

1020 NEXT I 
1030 : 

1040 DATA78,A9,OE,8D,14,03,A9,13,8D,15,03,58,60,78,A5 
1050 DATAD5,F0,25,C5,FC,F0,21,85,FC,A9,15,8D,18,D4,AO 
1060 DATA09, A2,00,8C, 05, D4,8E,06,D4,A9,30,8D,01,D4,A9 
1070 DATA20,8D,04,D4,A9,21,8D,04,D4,58,4C,65,FA,A4,FB 


Listing 2. So könnte ein mit DATAGEN 128 erzeugtes Listing 
aussehen 

Das Programm »Tasten-Piep« (Listing 2) zeigt, wie ein durch 
»Dat-i • n 128« bearbeitetes Programm aussieht. Die ersten 
vier Zeilen zeigen die vom Programm erzeugte Einlese¬ 
schleife, danach folgen die formatierten DATA-Zeilen. Übri¬ 
gens können Sie dieses kleine Programm ruhig abtippen, 
denn einen Piepston auf Tastendruck kann man immer 
gebrauchen, vor allem dann, wenn man mehr oder weniger 
blind DATA-Zeilen eintippt. 

Wichtiger Hinweis: 

Sollten Sie das Programm RENUMBERn, müssen Sie auch 
in den Zeilen 22,36 und 40 die Werte entsprechend ändern, 
da der RENUMBER-Befehl GOTO und DELETE innerhalb 
einer PRINT-Zeile nicht ändert. (Torsten Fahle/dm) 

Punkt-Komma-Tausrii 


Mit diesem kurzen Programm (Listing 3, bitte mit dem neuen 
Checksummer 128 eingeben) läßt sich der Dezimalpunkt auf 
der Zehnertastatur durch ein Komma ersetzen. Dies ist sehr 
hilfreich, falls lange DATA-Kolonnen mittels der Zehnertasta¬ 
tur eingetippt werden müssen. 

Der Dezimalpunkt wird nur im ASCII-Modus mit dem 
Komma belegt. Es ist aber trotzdem möglich, den deutschen 
Zeichensatz zu nutzen, wenn man wie folgt vorgeht: 

Den CI28 ausschalten, auf DIN umstellen, das Programm 
laden und starten. Nach kurzer Zeit wird man aufgefordert, 
die Taste F8 zu betätigen. 

Nun kann damit begonnen werden, Listings einzugeben. 
Will man nun den Dezimalpunkt als Komma benutzen, was ja 
meist in DATA-Zeilen der Fall ist (da hier ja sowieso keine deut¬ 
schen Umlaute benötigt werden), schaltet man auf ASCII- 
Zeichensatz um und hat nun das Komma zur Verfügung. Soll 
wieder Text eingegeben werden, wählt man wieder den DIN- 
Zeichensatz. Der Dezimalpunkt auf der Zehnertastatur ist 
nun wieder Dezimalpunkt, kann aber durch erneutes 
Umschalten auf ASCII wieder als Komma genutzt werden. 
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Soll nur im ASCII-Modus gearbeitet werden, ist das ganze 
wesentlich weniger kompliziert. Einfach Programm laden und 
starten! 

Vor dem Speichern eines so eingegebenen Programmes 
sollte erst einmal <RUN/STOP-RESTORE> betätigt wer¬ 
den, um den Ursprungszustand wieder herzustellen. 

Programmbeschreibung 

In Zeile 85 bis 105 werden die für das Programm notwendi¬ 
gen Adressen definiert. Die nun folgende FOR..NEXT- 
Schleife erstellt im RAM ab Adresse $1B00 die später benö¬ 
tigte Normaltabelle des ASCII-Codes, da sie dort einfach zu 
manipulieren ist. Diese Tabelle ist im Commodore-Handbuch 
des CI28 in Anhang J sehr gut versteckt. 

In Zeile 125 wird bei Adresse $0AC5 das siebte Bit 
gesetzt. Dies bewirkt, daß das Hlgh-Byte bei Adresse $033F 
immer mit dem gesetzten Modus (ASCII oder DIN) überein¬ 
stimmt, da die Adresse $033F andernfalls neu gesetzt 
würde. 

Die Zeilen 130 bis 135 setzen nun noch die Adreßzeiger, 
und zwar $033E auf 0 und $033F auf 27. 

Zeile 140 ist eigentlich der komplizierteste Teil. Hier findet 
der eigentliche Tausch der Tastaturbelegung statt. Sie erhal¬ 
ten nun die Methode gezeigt, mit der sich Tasten nahezu 
beliebig umbelegen lassen. Es folgt nun eine genaue Erklä¬ 
rung des S. Kohlitz-Tasttausch-Systems: 

Man hat durch die FOR..NEXT-Schleife einen ASCII-Zei- 
chensatz im RAM, der bei Adresse 6912 ($1B00) beginnt. 
Will man nun eine Taste umbelegen, so addiert man zu dem 
Wert 6912 zuerst den Platz-Code aus der Tastaturtabelle des 
zu ändernden Zeichens minus 1 (im Falle des Dezimalpunk¬ 
tes also 83-1). Warum denn minus 1?Ganz einfach: Die Platz¬ 
codes sind von 1 bis 89 fortlaufend durchnumeriert. Um aber 


80 RESTORE 

<79M> 

B3 Z1“DEC("0058")3 Z2-DEC<"1B00"> 

<Q9Q> 

90 Z3“DEC("0AC5"): Z4-DEC<"0080"> 

<BTV> 

95 Z5=DEC("033E“)s Z6=DEC("033F“) 

<UHV> 

100 

Z7-DEC("001B")s ZB=DEC("1B52") 

<CAL> 

105 

Z9-DECC002C") 

<N1E> 

110 

FOR DC-0 TO ZI s READ DA 

<NLK> 

115 

POKE Z2+DC, DA 

<FN5> 

120 

NEXT DC 

<5B5> 

125 

POKE Z3,PEEK <Z3) OR Z4 

<UN7> 

130 

POKE Z5,0 

<KQE> 

135 

POKE Z6,Z7 

<BV1 > 

140 

POKE ZB,Z9 

<A 6 U> 

145 

DATA 20,13,29,136,133,134,135,17 

<0F9> 

150 

8 

<043> 

155 

DATA 51,87,65,52,90,83,69,1 

<EIU> 

160 

s 

<045> 

165 

DATA 53,82,68,54,67,70,84,88 

<1J4> 

170 

8 

<047> 

175 

DATA 55,89,71,56,66,72,85,86 

<NQJ> 

180 

8 

<04P> 

185 

DATA 57,73,74,48,77,75,79,78 

< 17Q> 

190 

8 

<04R> 

195 

DATA 43,80,76,45,46,58,64,44 

<OLP> 

200 

8 

<045> 

205 

DATA 92,42,59,19,1,61,94,47 

<UIR> 

210 

8 

<047> 

215 

DATA 49,95,4,50,32,2,81,3 

<E07> 

220 

: 

<041 > 

225 

DATA 132,56,53,9,50,52,55,49 

<JVS> 

230 

8 

<043> 

235 

DATA 27,43,45,10,13,54,57,51 

<D4P> 

240 

8 

<04D> 

245 

DATA 8,48,46,145,17,157,29,255 

<GPP> 

250 

8 

<04F> 

255 

DATA 255 

<ALV> 

260 

KEY 8,"DELETE—300"+CHR*(13) 

<C2U> 

270 

PRINT CHR*(147)|“PUNKT—>KOMMA TAUSCH 

<NNF > 

280 

PRINT s PRINT "(C) STEPHAN KOHLITZ 1985" 

<K4A> 

290 

PRINT s PRINT "VOR WEITEREN EINGABEN - FB 
• DRUCKEN" 

< IDO 


Listing 3. Ein Programm zum Austauschen des Punktes mit 
einem Komma auf der Zehnertastatur 


sinnvoll damit arbeiten zu können, sollten sie von 0 bis 88 
numeriert sein. Man sagt ja auch acht Bit, die aber von 0 bis 
7 durchnumeriert sind. 

Wir haben nun den Wert 6912+82 errechnet, also 6994. 
In diese Speicherstelle POKEt man nun nur noch den Code 
(nicht den Platzcode) des Zeichens, mit der die Taste belegt 
werden soll (im Falle des Kommas also eine 44). POKE 
6994,44 und der Tausch ist perfekt. 

Wollen Sie jetzt noch weitere Tasten umbelegen (wie wäre 
es mit SHIFT anstatt der Minus- oder Plus-Taste, um die Funk¬ 
tionstasten von der Zehnertastatur leichter zu erreichen?), so 
dürften der Ausführung keine Probleme mehr im Wege 
stehen. (Stephan Kohlitz/dm) 

Gef mit Cursor 


Bei allen Commodore-Computern konnte man mit drei klei¬ 
nen POKEs den Cursor beim GET-Befehl ein- und ausschal¬ 
ten. Beim CI28 geht es im Prinzip auch, nur nicht im 
80-Zeichen-Modus. Doch nichts ist unmöglich. 

Im 80-Zeichen-Modus kann man dem VDC (Videocontrol¬ 
ler) ein Zeichen mit einem »Blink-Attribut« versehen überge¬ 
ben. Wie man anhand des Programms (Listing 4, bitte mit 
dem neuen Checksummer 128 eingeben) ausprobieren 
kann, blinkt der Cursor jetzt bei der GET-Routine, egal, ob im 
40- oder 80-Zeichen-Modus. 

Das Programmsegment für den 80-Zeichen-Modus dürfte 
durch die reichlichen Kommentare verständlich sein. Beim 
40-Zeichen-Modus sind folgende zwei angesprochenen 
Speicherstellen von Interesse: 

2599 $0A27 BLNSW Schalter für den Cursor (204 
beim C64); 0 = Ein/1 = Aus 

2CC0 $0A28 BLNCT Zähler für Cursorblinken (205 
beim C64) 

Den Cursorblinkzähler sollte man nach dem Holen eines 
Zeichens auf 1 stellen, da sonst hin und wieder ein inverser 
Block irgendwo auf dem Bildschirm stehenbleibt. 

(Michael Bauer/dm) 


100 REM ************************************ <02A> 
110 REM * * <02B> 
120 REM * GET MIT BLINKENDEM CURSOR * <028> 
130 REM » FUER C12B MIT 40 ODER 80 * <029> 
140 REM * ZEICHEN-SCHIRM * <02E> 
150 REM * * <02F> 
160 REM ************************************ <020 
200 PRINT "EINGABE ? “| <904 > 
210 GOSUB 310S IF X*<>"J" AND X*<>"N" THEN 2 

10 <M7J> 
220 PRINT X* <ATI> 
230 END <0KU> 
250 REM ***************** SUBROUTINE GET <029> 
260 REM ***************** MIT BLINKENDEM <02A> 
270 REM ***************** CURSOR <02B> 
290 REM PRUEFE OB 40 ODER 80 ZEICHEN-SCHIRM <025> 
310 IF PEEK(215)“128 THEN BEGIN i REM 80 Z 

EICHEN <IBH> 
330 I REM CHR*(15) - ZEICHENBLINK AN <047> 
340 s REM CHR*(18) = RVS ON <049> 
350 s REM CHR#(146) = RVS OFF <©4B> 
360 s REM CHR#(157) - CURSOR LINKS <04D> 
370 I REM CHR*(143) - ZEICHENBLINK AUS <04F> 
390 s PRINT CHR#(15) CHR*(18)j" CHR*(146) 

CHR#(157) CHR#(143)| <DUV> 
410 s GET KEY X*s REM WARTE AUF TASTEND 

RUCK <09K> 
430 BEND i ELSE BEGIN s REM 40 ZEICHEN <V4R> 
450 : POKE 2599,0s REM SCHALTE BLINKEN EIN <PSD> 
470 s BET KEY X*s REM WARTE AUF TASTENDRUC 

K <69K> 


Listing 4. Nun blinkt der Cursor auch bei GET. Bitte beachten 
Sie den Checksummer 128 auf Seite 122. 
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Bildschirme verwalten 


Dieses Programm macht es möglich, bis zu drei Bildschirme 
gleichzeitig im 80-Zeichen-Modus zu verwalten. Die einzel¬ 
nen Bildschirme können nach dem Starten des Basic-Laders 
mit SYS 2883, Sichtbar, Bildschirmnummer, Attribut aufgeru¬ 
fen werden. Dabei haben die Parameter folgende Bedeutung: 

- Sichtbar: Sichtbar kann zwei verschiedene Werte anneh¬ 
men. 


Name 

Nummer 

Adresse 

Funktion 

FSTMODE 

01 

$1147 

Fastimpuls an Bus 

EAINIT 

02 

Sft4B 

Standard E/A-Geräte setzen 

C64M0DE 

03 

Sff4d 

Aktivierung des 64’er-Modus 

OMA-CALL 

04 

Sff50 

Externe RAM-Bausleine initialisieren 

BOOT-CALL 

05 

$1153 

Booten der Diskette 

PHOENIX 

06 

$(156 

Kaltstart 

LKUPLA 

07 

$1159 

Suche nach logischer Filenummer 

LKUPSA 

08 

$M5c 

Suche nach Sekundäradresse 

SWAPPER 

09 

$1151 

Umschalter zwischen 40 und 80 Zeichen 

DICHR 

10 

SH62 

Kopiert Zeichensatz ins VDC-RAM 

PFKEY 

11 

$M65 

F-Tastenbelegung 

SETBANK 

12 

$1168 

Speicherbank (ür LOAD/SAVE definieren 

GETC0NF 

13 

streb 

Holt Konligurationsbyto 

JSRFAR 

14 

$f(6e 

JSR in beliebige Bank 

JMPFAR 

15 

$1171 

JMP in beliebige Bank 

FETCH 

16 

Slf74 

LDA (),Y aus beliebiger Bank 

STASH 

17 

$1177 

STA (),Y in beliebiger Bank 

COMPARE 

18 

$117 a 

CMP(),Y In beliebiger Bank 

PRIMM 

19 

$ll7d 

Textausgabe 

CINT 

20 

$1181 

Editor-Initialisierung 

IOINIT 

21 

$1f84 

Ein-/Ausgabe-Initialiesierung 

RAMTAS 

22 

$1187 

Warmstart 

RESTOR 

23 

$1l8a 

Systemvektoren initialisieren 

VECTOR 

24 

$1l8d 

Systemvekloren kopieren 

SETMSG 

25 

$1190 

Systemmeldungen ermöglichen/ 
verhindern 

SECND 

26 

$1193 

Sekundäradresse nach LISTn 

TKSA 

27 

$1196 

Sekundäradresse nach TALK 

MEMTOP 

28 

$1199 

Lesen/setzen der Speicherobergrenze 

MEMB0T 

29 

SII9C 

Lesen/setzen der Speicheruntergrenze 

KEY 

30 

$1191 

Tastaturabfrage 

SETTMO 

31 

Slla2 

Setzen des Timeoutflags für IEEE 

ACPTR 

32 

$Ha5 

Holt Byte vom Bus 

CIOUT 

33 

$Ha8 

Legt Byte auf Bus 

UNTLK 

34 

SHab 

Untalk an Bus senden 

UNLSN 

35 

Slfae 

Unlisten an Bus senden 

USTN 

36 

$1fb1 

Listen an Bus senden 

TALK 

37 

$llb4 

Talk an Bus senden 

READST 

38 

Slfb7 

Statusbyte lesen 

SETLFS 

39 

Silbe 

Setzen der Fileparameter 

SETNAM 

40 

Sllbd 

Setzen des Filenamens 

OPEN 

41 

SlIcO 

Datei öffnen 

CLOSE 

42 

$1(c3 

Datei schließen 

CHKIN 

43 

$ 11 c 6 

Datei ist Eingabedatei 

CKOUT 

44 

$tfc9 

Datei ist Ausgabedatei 

CLRCH 

45 

Sffcc 

Ein-/Ausgabekanäle schließen 

BASIN 

46 

Stiel 

Zeichen eingabe 

BSOUT 

47 

$ffd2 

Zeichenausgabe 

LOAD 

48 

Sffd5 

Laden einer Datei 

SAVE 

49 

SlldS 

Speichern einer Datei 

SETTIM 

50 

$11db 

Setzen der internen Uhr 

ROTIM 

51 

Stlde 

Lesen der internen Uhr 

STOP 

52 

Sffel 

Stop-Tasten-Abfrage 

GETIN 

53 

$1le4 

Holt Zeichen aus Tastaturpuffer 

CLALL 

54 

$lle7 

Schließen aller Dateien 

UOTIM 

55 

Sllea 

Interne Uhr hochzählen 

SCRORG 

56 

Slled 

Fenstergröße feststellen 

PLOT 

57 

$11(0 

Cursorposition holen/setzen 

IOBASE 

58 

$11(3 

Holt die Basisadresse des I/O-Bereiches 


Tabelle 1. Die wichtigsten Kernel-Routinen und Ihre Funktion 


Wert 0: Der vorherige Bildschirm wird angezeigt. Die 
Befehle PRINT und CHAR schreiben aber schon auf den 
neuen Bildschirm. Dadurch kann ein Bildschirm aufgebaut 
werden, während ein anderer angezeigt wird. 

Wert 1: Der angewählte Bildschirm wird auch tatsächlich 
angezeigt. 

- Bildschirm: Es stehen die Bildschirme 1 bis 5 zur Verfü¬ 
gung. Bitte lassen Sie sich nicht verwirren, die Bildschirme 1 
und 3 sind die gleichen. 

- Attribut: Auch für das Attribut gibt es zwei Werte: 

Wert 0: Attribut wird ausgeschaltet. Das heißt, auf dem 

Bildschirm sind keine Farben, blinkende und unterstrichene 
Zeichen mehr sichtbar. Außerdem werden alle Zeichen im 
Grafikmodus angezeigt. Das alles gilt auch, wenn Sie den 
Bildschirm nicht sichtbar einschalten. Beim Beschreiben des 
Bildschirms wird aber auch das abgeschaltete Attribut-RAM 
beschrieben. Diese Funktion (Attribut aus) ist für die Bild¬ 
schirme 3, 4 und 5 gedacht, für die nur ein Attribut-RAM zur 
Verfügung steht. 

Wert 1: Attribut wird eingeschaltet. 

Insgesamt können fünf Bildschirme erzeugt werden. Die 
verschiedenen Bildschirme werden durch Verschiebung des 
Video-RAMs (in ihm stehen die Bildschirmcodes der Zei¬ 


le s REM BILDSCHIRME <02F> 

20 s <029> 

' 30 s REM MASCHINENSPRACHEDATEN EINLESEN <02B> 

40 : BANK 0: FAST <RQI> 

50 s FOR I = DEC("B00") TO DEC ("B91") <5BT> 

60 s READ DA*: POKE I, DEC(DA*) <IMQ> 

70 : SU = SU + DEC(DA*) <LV5> 

80 : NEXT I <204> 

90 : IF SU <> 11931 THEN PRINT “<CTRL+0)£EHL 

ER IN JjATAZEILEN“: END : ELSE BEB IN <4UV> 

100 : PRINT "{CTRL+OJSATAZEILEN SIND RICHTI 

SLEEP : BEND <VBP> 

110 : REM DIE STEUERZEICHEN IN ZEILE70/B0 SI 

ND < CONTROL O > <04B> 

120 BANK 15: SYS DEC("C07B"): REM BILDSCHIRM 

INITIALISIEREN <CBF> 

130 : <04F> 

140 : REM ASSEMBLERDATEN <041> 

150 DATA 8E,00,D6,2C,00,D6,10,FB,BD,01,D6,60 

,BE,00,D6,2C <KL6> 

160 DATA 00,D6,10,FB,AD,01,D6,60,A9,00,E0,01 

,D0,07,A2,0C <SIG> 

170 DATA 20,00,0B,A2,01 ,BD,2E,0A,60,A9,0B,E0 

,01,D0,05,A2 <LOK> 

1B0 DATA 14,20,00,0B,BD,2F,0A,60,20,0C,0B,09 

,40,20,00,0B <57F> 

190 DATA 4C,53,0B,4B,BA,4B,A2,19,98,D0,ED,20 

,0C,0B,29,BF <MOB> 

200 DATA 20,00, 0B,68 ,C9,01 ,F0,04 ,C9,03,D0, 00 

,68,AA,20,18 <ASI> 

210 DATA 0B,4C,29,0B,C9,02,D0,0C,68,AA,A9,10 

,20,1A,0B,A9 <Q2L> 

220 DATA 18,4C,2B,0B,C9,04,D0,0A,68,AA,A9,10 

,20,1A,0B,4C <DU2> 

230 DATA 29,0B,C9,05,D0,0A,68,AA,A9,18,20,1A 

,OB,4C,29,0B <B1Q> 

240 DATA 68,60 <BFM> 

250 : <04F> 

260 : REM MIT SYS28B3,SICHTBAR,BILDSCHIRM,AT 

TRIBUT WERDEN DIE BILDSCHIRME <049> 

270 : REM EINGESCHALTET. SICHTBAR KANN DIE W 

ERTE 0 (NICHT SICHTBAR) UND 1 (SICHT- <04B> 

280 : REM BAR) ANNEHMEN. ICHT SICHTBAR HEISS 

T, DASS FUER DIE BEFEHLE PRINT UND <04L> 

290 t REM CHAR AUF DEN NEUEN BILDSCH. ZUGEBR 

IFFEN WIRD, ABER BLEICHZEIT. DER ALTE <04N> 

300 : REM BILDSCH. ANBEZEIGT WIRD. BILDSCHIR 

M KANN DIE WERTE VON 1-5 ANNEHMEN. <041> 

310 : REM ATTRIBUT KANN DIE WERTE 0 (AUS) UN 

D 1 (EIN) ANNEHMEN. <043> 

320 : REM DER BEFEHL IN ZEILE 120 ZUM INITIA 

LISIEREN DES BILDSCHIRMS IST NOTWEN- <045> 

330 : REM DIB UM DAS PRB. BILDSCHIRME FEHLER 

FREI ABLAUFEN ZU LASSEN. ER MUSS EIN- <047> 

340 : REM MAL NACH DEM POKEN DER MASCHINENSP 

RACHEDATEN AUSBEFUEHRT WERDEN. <049> 


Listing 5. Mehrere Bildschirme austauschen 
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chen, die auf dem Bildschirm sichtbar sind), und durch Ver¬ 
schieben beziehungsweise Abschalten des Attribut-RAMs 
(in ihm werden die Farben und alternativen Darstellungen 
eines Zeichens eingetragen) des VDC-R AM (der VDC besitzt 
ein eigenes, 16 KByte großes RAM) realisiert. 

Dabei stehen folgende Bildschirme zur Verfügung: 
Bildschirm 1 Video-RAM von $0000 bis $0800, Attribut- 
RAM von $0800 bis $1600 

Bildschirm 2 Video-RAM von $1600 bis $2400, Attribut- 
RAM von $2400 bis $3200 

Bildschirm 3 Video-RAM von $0000 bis $0800, Attribut- 
RAM von $0800 bis $1600 

Bildschirm 4 Video-RAM von $1600 bis $2400, Attribut- 
RAM von $0800 bis $1600 

Bildschirm 5 Video-RAM von $2400 bis $3200, Attribut- 
RAM von $0800 bis $1600 


Daraus ergibt sich die folgende Aufteilung: Bildschirm 1 
und 2 oder Bildschirm 3, 4 und 5 können zusammen benutzt 
werden, ohne daß Verluste des Bildschirminhalts auftreten. 
Bei den Bildschirmen 3, 4 und 5 wird dasselbe Attribut-RAM 
benutzt. Für eben diese Schirme steht dann jedoch nur ein 
Attribut-RAM zur Verfügung. 

Eingabehinweise 

Das Programm (Listing 5) geben Sie bitte mit dem neuen 
Checksummer 128 ein und speichern es. Das Programm 
starten Sie durch RUN. Das zweite Programm (Listing 6) ist 
ein Demo-Programm, das nicht unbedingt abgetippt werden 
muß. 


Der Befehl SYS DEC ("C07B") im Basic-Lader ist nötig, 
um den Bildschirm zu initialisieren. Wird dieser Befehl nicht 
ausgeführt, so kann es geschehen, daß sich der Computer 
nach dem Wechsel eines Bildschirms nicht mehr meldet. 


Dann müssen Sie das Programm mit RUN/STOP-RESTORE 
unterbrechen. (Christoph Franzen/dm) 

Programme verbinden (MERGE) 


Mit diesem Programm (Listing 7, bitte mit dem neuen Check¬ 
summer 128 eingeben) lassen sich mehrere Programme zu 
einem einzigen verbinden. 

Das Programm »Merge« ist so geschrieben, daß es an 
einen freien Speicherplatz gesetzt und aufgerufen werden 
kann. Um das Programm an eine andere Adresse zu verschie¬ 
ben, muß im Basic-Lader in Zeile 30 die Variable »AN« geän¬ 
dert werden. 


10 REM MERQE <019> 
20 : < 029> 
30 AN - 2816 I BANK 0 <3NT> 
40 I <025> 
50 REM MASCHINENSPRACHEDATEN EINLESEN <01D> 
60 FOR I = AN TO AN + 30 <G9H> 
70 READ DA*x POKE I, DEC(DA*) <KAQ> 
80 SU - SU + DEC(DA*) <5VT> 
90 NEXT <0UQ> 
100 IF SU <> 2733 THEN PRINT "ZEHLER IN JATA 

ZEILEN"I END s ELSE BEBIN <L7B> 
110 PRINT "£ROGRAMMSTART AN £ROGR AHMENDE SET 

ZEN MIT SX&" AN <7S3> 
120 PRINT "ZROBRAMME ZU EINEM PROGRAMM ZUSAM 

MENSETZEN MIT g£ä" AN+22 <UE1> 
130 « <04F> 
140 REM MASCHINENSPRACHEDATEN <02E> 
150 DATA AD,10,12,38,E9,02,85,2D,AD,11,12,E9 

, 00,85,2E,A0 <P8H> 
160 DATA 02,A9,00,91,2D,60,A9,01,85,2D,A9, IC 

,85,2E,60 <9LS> 
170 : <047> 
180 REM ENDE <022> 


10 FAST I EIN=lx AUS=0 <D98> 

11 x <02E> 

20 B8=2x SYS 2BB3,EIN,BS,EINx PRINT “<CLR>"« 

REM BILD 2 LOESCHEN U EINSCHALTEN <5K1> 

30 BS-li SYS 2883,AUS,BS,EIN: PRINT "<CLR>"i 

REM BILD 1 LOESCHEN U NICHT SICHTB. EIN <9LM> 

31 l <02A> 

40 FOR 1=1 TO 10 <JSV> 

50 PRINT "<CTRL+B>£HRISTOPH £RANZEN JONIFATI 

USSTRASSE 70 4130 AUERS flSBERG BILDSCHIRM 
1 <SCS> 

60 NEXT <0P0> 

61 s <020> 

70 B8=lx SYS 2883,EIN,BS.EINx 

REM BILD I EINSCHALTEN <VAA> 

80 INPUT "BITTE BEBE JEINEN KAMEN EIN“; NA* <TLH> 

81 PRINT "<CLR,128PACE>AALL0 "NA*"<2D0WN> <195> 

82 PRINT “ICH HOFFE ES GEHT JIR HEUTE SEHR G 

UT. JEDENFALLS WIRD JETZT GERADE WAEHREND <K8F> 

83 PRINT "JU DIESEN JEXT LIESST JEIN KÄME AU 

F BILDSCHIRM 2 BLINKEND GESCHRIEBEN. <K07> 


84 PRINT "KENN JU GLEICH DIE AUFFORDERUNG BE 
KOMMBT EINE JASTE ZU DRUECKEN, DANN IST <INK> 

85 PRINT "DER AUFBAU DES BILDSCHIRMS 2 FERTI 

G UND JU KANNST IHN JIR ANSEHEN, INDEM JU <T1D> 

86 PRINT "DER AUFFORDERUNG NACHKOMMST UND EI 


NE BELIEBIGE JASTE JEINES JDMPUTERS <S7E> 

87 PRINT "DRUECKST. <8DS> 

89 x <02K> 

90 BS-2: SYS 2883,AUS,BS,EIN x 

REM BILD 2 NICHT SICHTB. EIN <QEI> 

100 PRINT "<CLR,CTRL+B>£HRISTOPH ZRANZEN JON 
IFATIUSSTRASSE 70 4130 ADERS ABBERG BILD 
SCH.2 ^U85) 

110 FOR 1=0 TO 100: PRINT “ <CTRL+0>" NA* “ 

i NEXT <BAR> 

111 x <04A> 

120 BS=lx SYS 2BB3,EIN,BS.EINx 

REM BILD 1 WIEDER EINSCHALTEN <6IA> 

130 CHAR 1,20,20, "BITTE EINE JASTE DRUECKEN 

" <IQ2> 

140 BET KEY A* <KCD> 

141 x <040> 

150 BS=2x SYS 2883,EIN,BS,EINx 

REM BILD 2 ZUM SEHEN EINSCHALTEN <7AI> 


Listing 6. Ein Demo-Programm, das Ihnon die Fähigkeiten des 
Bildschirm-Vertauschens aufzeigt 


Listina 7. »Merge« - Verbinden mehrerer Basic-Programme 

Die Bedienung der Routine: 

1) Reset-Taster am Computer betätigen beziehungsweise 
Computer aus- und einschalten. Das ist wichtig, um sicherzu¬ 
gehen, daß der Basic-Start wirklich bei $1C00 beginnt. 

2) Programm MERGE laden und starten. Bitte schreiben 
Sie sich die Adressen der SYS-Befehle auf. 

3) Laden Sie Ihr Programm, das Sie mit einem anderen ver¬ 
binden wollen, und bringen Sie das Programm eventuell 
durch RENUMBER in einen vernünftigen Zeilennummernbe¬ 
reich. Schreiben Sie sich bitte die höchste Zeilennummer 
des ersten Programmes auf. 

4) Verschieben Sie den Basic-Start (SYS 2816). 

5) Laden Sie das nächste Programm und bringen auch die¬ 
ses durch RENUMBER in einen vernünftigen Zeilennum¬ 
mernbereich (die Zeilennummern des zweiten Programms 
müssen höher als die des ersten sein). 

6) Verbinden Sie die Programme (SYS 2838). 

7) Nun können Sie das neue Programm speichern. 

Nach dem Verschieben des Basic-Starts sind alle Befehle 

erlaubt. Das heißt, Sie können die geladenen Programme mit¬ 
tels DELETE, RENUMBER oder sonstigen Befehlen ver¬ 
ändern. (Christoph Franzen/dm) 

Bankswitching in Assembler 


Durch das Bankswitching wird die Assemblerprogrammie¬ 
rung oft sehr aufwendig und mühselig. Wer schon einmal ver¬ 
sucht hat, aus BANK 1 in eine Kernel-Routine in BANK 15 zu 
springen, wunderte sich sicher, denn danach befand sich der 
Computer in einem (sehr) Undefinierten Zustand. 

Um diesem Problem zu begegnen, müßte ein Programm 
her, das vor Aufruf die gewünschte Konfiguration einschaltet 
und bei der Rückkehr die alte Speicherbelegung wiederher¬ 
stellt. 
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C 128 


TIPS&TRICKS 


Das Programm müßte zusätzlich in der Common-Area (je¬ 
nem Speicherbereich, der für alle BANKs gleich ist) funktio¬ 
nieren. Es bietet sich der RS 232-Eingabepuffer von $COO 
bis $DOO an. 

Das Programm »Kernel« (Listing 8), das in diesem Bereich 
liegt, funktioniert so: 

1) Die Nummer der Kernel-Routine wird in 996 gespeichert 
(die Nummern entnehmen Sie bitte Tabelle 1) 

2) Akku, X- und Y-Register so mit ihren Werten laden, als 
würde direkt in die gewünschte Kernel-Routine verzweigt 

3) JSR $C00 

Manchmal kommt es auch vor, daß ein Unterprogramm im 
Basic-ROM von $F4000 bis SFAFFF oder im Monitor von 
$FBOOO bis FBFFF aufgerufen werden soll. Solch ein Pro¬ 
blem ist mit JSRFAR zu lösen: 

1) Die anzuspringende BANK ist in $02 abzulegen 

2) Die anzuspringende Adresse ist im High-/Low-Förmat in 
$03/$04 bereitzustellen 

3) Akku in $06, X-Register in $07 und Y-Register in $08 

4) JSR $C23 

Soll kein Unterprogrammaufruf, sondern ein normaler 
Sprung stattfinden, so ist Punkt 4 durch JMP $CDO zu erset¬ 
zen. 

Diese seltsame Art der Parameterübergabe entspricht den 
original JMP- und JSRFAR-Routinen. Es dürfte also keine gro¬ 
ßen Probleme bei der Umrüstung bereits bestehender Pro¬ 
gramme geben. 

»Kernel 128« muß vor dem Start noch initialisiert werden. 
Dies erfolgt durch JSR $C3E. Findet der Interpreter während 
der Ausführung eines Basic-Programms eine USR(X)- 
Anweisung, so wird nach $0F000 gesprungen. 

(Frank Probst/dm) 


Boot-Sektoren selbst erstellen 


Wichtleer Hinweis zum Abtippen 

Bitte beachten Sie den neuen Checksummer 128. Mit diesem Pro¬ 
gramm können Sie alle C128-Basic-Ustings eingeben. Die Prüf¬ 
summe am Ende jeder Basic-Zeile unterrichtet Sie sicher, ob Sie die 
Zeile richtig eingegeben haben. Den Checksummer 128 finden Sie 
in dieser Ausgabe. 
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Listing 8. »Kernel 128« - Bitte mit dem MSE Im C64-Modus 
eingeben 


Die Wirkung eines Boot-Sektors kennt wohl jeder Besitzer 
eines CI28. Doch eine Diskette mit diesem Boot-Sektor 
(Listing 9) versehen, ist dagegen ganz etwas anderes. 

Selbst mit dem »Auto-Boot-Creater« von der Test-Demo- 
Diskette kann leider nur ein Boot-Sektor mit Autostart für ein 
Maschinen- oder ein Basic-Programm erzeugt werden. 

Oder man studiert die entsprechenden Kapitel in den ent¬ 
sprechenden Fachbüchern, und schreibt den Boot-Sektor 
mit Floppy-Befehlen oder einem Disketten-Monitor (Wer hat 
den schon für den C128?) auf die Diskette. Aber versuchen 
Sie dann einmal, das so geladene Basic-Programm im Spei¬ 
cher zu verändern! Oder lieber nicht, denn absolut geladene 
Basic-Programme lassen sich nicht mehr editieren. Doch das 
steht ja schon im »Commodore-128-Handbuch« von Markt & 
Technik. 

Doch Gott sei Dank gibt es noch vernünftige Boot-Maker 
wie den hier vorgestellten. 

Hiermit lassen sich leicht und locker 17 (in Worten: sieb¬ 
zehn) verschiedene Boot-Kombinationen erstellen! 

Zunächst einmal kann man frei wählbaren Text während des 
Ladens auf den Bildschirm geben. Hierbei sind sogar Steuer¬ 
zeichen möglich. Oder man gibt schlicht den Namen des Pro¬ 
gramms ein, das gerade geladen wird. 

Das zu ladende Programm kann mit oder ohne Autostart 
sein. Natürlich kann man auch nur einen Begrüßungstext auf 
den Bildschirm ausgeben. Oder nur ein Maschinen- oder 
Basic-Programm laden. 

Aus den drei Grundeinstellungen 

1) Text nein / ja 

2) Masch.Prg. nein / ja, mit Autostart 

ja, ohne Autostart 

3) Basic-Prg. nein / ja, mit Autostart 

ja, ohne Autostart 

ergeben sich die oben genannten 17 Boot-Versionen. 

»Boot-Sektor« wurde auf einem 80-Zeichen-Montior 
erstellt, aber auch auf einem 40-Zeichen-Monitor bleibt die 
Übersichtlichkeit erhalten. Hierfür wird vom Programm auto¬ 
matisch festgestellt, welcher der Bildschirme gerade einge¬ 
schaltet ist. 

Selbstverständlich läuft das Programm nicht nur mit den 
Floppy-Laufwerken 1570/1571, sondern auch mit der guten, 
alten 1541. 

Zum Ausprobieren nimmt man am besten eine frisch forma¬ 
tierte Diskette mit je einem Testprogramm in Basic und 
Maschinensprache. Daß die Floppy 1571 beidseitig forma¬ 
tierte Disketten schneller liest, hat sich sicher schon herum¬ 
gesprochen; es entfallen dann nämlich einige vergebliche 
Leseversuche. Aber das nur nebenbei. 

Doch nun zur eigentlichen Beschreibung des Programms 
(Listing 9), das Sie übrigens mit dem neuen Checksummer 
128 eingeben müssen: 

Zeile 100 löscht den Bildschirm und aktiviert die Fehlerfalle. 
Hiermit soll vor allem ein Programmabbruch durch versehent¬ 
liches Drücken der <STOP>-Taste oder falsche HEX- 
Eingabe (in Zeile 530) vermieden werden. 

Es folgen in den Zeilen 120 bis 150 Initialisierung und Test 
auf Schreibschutz. 

Mit Zeile 160 bis 200 wird der Sektor 0 in Spur 1 anhand 
der ersten 3 Byte geprüft. Je nach Ergebnis kann nach einer 
Information laut Zeile 210 oder Zeile 250 das Programm in 
Zeile 290/320 abgebrochen oder fortgesetzt werden. Hier 
kommen übrigens die sehr praktischen, für C 64-Aufsteiger 
neuen Basic-Anweisungen GETKEY und IF..THEN..ELSE zur 
Anwendung. 

Haben die ersten 3 Byte den Wert 00, ist der Block frei und 
es wird von Zeile 190 direkt nach Zeile 340 gesprungen. 


iJJ'ai* 


SONDERHEFT 7/86 


151 










TIPS &TRICKS 


C 128 


10 REM > : ■ 1 I I II i I t 1 t I t I I I I 

IIIIIIIIII-IIII 

20 REM PROGRAMM ZUR EINRICHTUNG EINES 
30 REM BOOT-SEKTORS FUER DEN 

40 REM COMMODORE 12B PC 

90 REM ii:t::iai3ii::i:i:i 
iiiiiiiiiiiiii 
100 PRINT "<CLR>": TRAP 1000 

110 PRINT "{3SPACE)B00T-SEKT0R FUER DEN COMM 
ODORE 128 T9SPACE}(C) 1906 {2SPACEJHANS-GE 
ORG SCHMIDT" 

120 OPEN 15,8,15 

130 PRINT#15,"IO"I PRINT#15,"B—F 0 1 0" 

140 IF VAL(DS*)<>0 THEN 1040 

150 PRINT#15,"B—A 01 0"s OPEN 5,8,5,"#“ 

160 PRINT#15,"Ul 5010" 

170 PRINT#15,"B—P 5 0" 

100 GET #5,A*,B*,C*: DCLOSE 
190 IF A#+B*="" THEN 340 
200 IF A*+B*+C*="CBM" THEN 250 
210 PRINT "{3DOWN.2SPACEJACHTUNG!" 

220 PRINT "{2D0WN.2SPACEJDER BOOTSEKTOR{2SPA 
CE>(SEKTOR 0{2SPACEJIN SPUR 1){3SPACEJIS 
T NICHT FREI !" 

230 PRINT "(2D0WN,2SPACE>WICHTIGE DATEN ZUM 
RETTEN ?" 

240 PRINT “(D0WN,2SPACE>0DER WEITERMACHEN?"! 
GOTO 290 

250 PRINT "(3D0WNJ ACHTUNG!" 

260 PRINT "<DOWN> AUF DER DISKETTE BEFINDET 
SICH BEREITS(2SPACE>EIN BOOT-SEKTOR!" 

270 PRINT "{DOWN} UEBERSCHREIBEN ? ?" 

280 PRINT "(DOWNJ ODER PROGRAMM ABBRECHEN ?" 
290 PRINT "(2D0WN,2SPACE)X -ABBRECHEN(9SPACE 
}W = WEITER" 

300 GET KEY WX* 

310 IF WX*«"W" THEN 340 

320 IF WX*-"X" THEN 1120! ELSE 300 

330 i 

340 CLR I PRINT "{2H0ME,3D0WN)";CHR#(27);"e( 
2D0WN}" 

350 PRINT "(2SPACE>KEIN TEXT = NUR (RVSONJRE 
TURN{RVOFF} !<3UPJ" 

360 POKE 842,34! POKE 208,1 

370 INPUT "<2SPACE>TEXT HINTER •BOOTING*<15S 
PACE)"|TX* 

3B0 IF TX*-"" THEN PRINT TAB(INT(PEEK(215)/3 
. 2>) " (UP>...." 

390 I 

400 INPUT "<D0WN,2SPACE)NAME DES ZU LADENEN 
MASCH-PROBRAMMS “JMP* 

410 IF MP*-"" THEN RU-LEN(TX*>+19: PRINT “<3 
UP>"! GOTO 650 

420 PRINT "{DOWN,2SPACEISOLL DAS MASCHINEN-P 
ROGRAMM" 

430 PRINT "(2SPACE>AUTOMATISCH GESTARTET WER 
DEN{2SPACE)? T2SPACE)J/N" 

440 GET KEY AM* 

450 IF AM*—"J" OR AM*—“N" THEN 460! ELSE 440 
460 IF AM#—"J" THEN JN-22i ELSE JN-19 
470 RU-LEN(TX*)+LEN(MP*)+JN 
480 IF AM*—"J" THEN 500 

490 PRINT TAB(PEEK(2151/3.2+17)"t4UP>- KEIN 
AUTOSTART";CHR*(27) CHR*(64)! GOTO 650 
500 PRINT TAB(PEEK(215)/3.2+17)"<4UP>— MIT A 
UTOSTART" CHR*(27) CHR*(64) 

510 PRINT "{DOWN>"! TRAP 1080 
520 : 

530 INPUT “{UP,2SPACE>ADRESSE IN HEX{5SPACE) 
N{3LEFT>"|HE* 

540 IF HE*—"N" THEN 580 
550 SY—DEC(HE*) 

560 PRINT TAB(26)"{UP)- SYS";SY 
570 GOTO 620 

580 INPUT "{UP,2SPACE)ADRESSE IN DEZIMAL (SY 
S >"I SY 

590 IF SY—0 THEN PRINT "{UP)" CHR*(27)"D"i G 
OTO 530 

600 IF BY>65535 THEN PRINT TAB(28) " (UP)-ZU G 
ROSS!"! ELBE 620 

610 SLEEP 2l PRINT “{UP)“ CHR*(27)"D": GOTO 
5B0 

620 JH-INT(SY/256) 

630 JL—SY—JH#256 
640 ! 

650 INPUT "(D0WN,2SPACE)NAME DES ZU LADENEN 
BASIC-PROGRAMMS "iBP* 

660 IF BP*="" THEN PRINT “(UP)"iCHR*(27)"D"i 
GOTO 750 

670 PRINT ”{D0WN,2SPACE)S0LL DAS BASIC-PROGR 


<02F> 

<01A> 

<01B> 

<01C> 

<02V> 

<Q7I> 


<D5J> 
<ESi > 
<F1E> 
<UNL> 
<KVD> 
<KIN> 
<MU7> 
< JTR> 
<KB3> 
<JK6> 
<HJ4> 


<KD9> 

<J2L> 

<37M> 

<KTB> 

<H14> 

<HDB> 

<PSD> 

<N7B> 
<BQO> 
<LGB> 
<3K1 > 
<047> 

<FOE > 

<KAA> 

<R6P> 

< IDE > 

<CET> 

<04J> 

< 1DE> 

<0NJ> 

<BIG> 

<S50> 
<DR1 > 
<SS8> 
<GSF> 
<TCQ> 
<446> 

<BHV> 

<A80> 
<R71 > 
<04T> 


AMM" 

680 PRINT "{2SPACE)AUTOMATISCH GESTARTET WER 
DEN{2SPACE)?{2SPACE) J /N" 

690 GET KEY AB* 

700 IF AB*—"J" OR AB*—"N" THEN 710! ELSE 690 
710 IF AB*—“J" THEN BS*="RUN"i ELSE BS*=“DLO 
AD“ 

720 IF AB*“"J“ THEN 740 

730 PRINT TAB(PEEK(215)/3.2+17)"{4UP)= KEIN 
AUTOSTART";CHR*(27) CHR*(64)i GOTO 750 
740 PRINT TAB(PEEK(215)/3.2+17)"(4UP)“ MIT A 
UTOSTART" CHR*(27) CHR*(64) 

750 IF TX*-"" AND MP*-"" AND BP*-"" THEN 112 
0 

760 ! 

770 PRINT "{3D0WN) ALLES OK ?“;CHR*(27)“Q“ 
780 PRINT "(DOWN) DIE RICHTIGE DISKETTE IM L 
AUFWERK ? ?" 

790 PRINT "{D0WN,4SPACE)J = WEITER{BSPACE)N 
- NEUBEGINN{9SPACE)X - ABBRUCH" 

800 GET KEY OK* 

810 IF OK*="J“ OR OK*—“N" OR OK*-"X“ THEN 82 
0: ELSE 800 

820 IF OK*-"N" THEN 340 
830 IF OK*—"X" THEN 1120 
840 : 

850 CB*—"CBM" 

860 NB*—CHR*(0) 

870 i 

880 OPEN 15,8,15: OPEN 5,8,5,"#" 

890 PRINT#15,"U1 501 0": PRINT#15,"B-P 5 0 

900 PR1NT#5,CB*;NB*;NB*;NB*|NB*; 

910 PRINT#5,TX*|NB*;MP*;NB*; 

920 IF AM*—"N" OR MP*-"“ THEN 940 
930 PRINT#5,CHR*(32);CHR*(JL);CHR*(JH); 

940 IF BP*-"“ THEN BP*-CHR*(96): GOTO 990 
950 PRINT#5,CHR*(169>;CHR*(RU);CHR*(133);CHR 
*( 61 ) | 

960 PRINT#5,CHR*(169);CHR*(11);CHR*(133);CHR 
*(62); 

970 PRINT#5,CHR*(76);CHR*(209);CHR*(77); 

980 PRINT#5,BS*;CHR*(34); 

990 r. r> I NT#5, BP*; CHR# (0) 

1000 r-RINT#15,"U2 5 0 1 0" 

1010 CLOSE 5: CLOSE 15l TRAP 

1020 PRINT "{5UP,2SPACE)" CHR*(27)"e"DS* 

1030 : 

1040 IF VAL(DS*)—26 THEN PRINT "{2D0WN,2SPAC 
E)BITTE SCHREIBSCHUTZ ENTFERNEN": ELSE 
1060 

1050 PRINT ”{D0WN,2SPACE)UND NEU STARTEN !": 
END 

1060 IF VAL(DS*> < >0 THEN PRINT "(2D0WN,5SPAC 
E)BITTE FEHLERMELDUNG BEACHTEN:(2SPACE) 
",,DS* 

1070 END 

1080 IF ER—14 THEN 1100 

1090 IF ER—30 THEN RESUME i ELSE PRINT "{DOW 
N,RIGHT)" ERR#(ER): RESUME 1070 
1100 PRINT TAB(21) ERR*(ER): SLEEP 2i PRINT 
“ {UP)‘‘; CHR# (27) "D" 

1110 PRINT "{2UP)"I RESUME 530 
1120 TRAP : PRINT "{H0ME,4D0WN)~ CHR*(27)"«{ 
3SPACE)NEUER START MIT -RUN - !t2DOWN)"! 
END 


<50G> 

<451 > 
<9BE> 
<0NV> 

<99D> 

<Q4A> 

<EHT> 

<AB8> 

<V70> 

<04T> 

<S98> 

<T6D> 

<CA3> 

<3RR> 

<N7L> 

<GKS> 

<4P3> 

<055> 

<34K> 

<FEM> 

< 053 > 
<DUE> 

<L9P> 
<V51 > 
<H2K> 

< JEU> 
<SAC> 
<KPI > 

< 18A> 


<JPC> 
<4E3> 
<F 11 > 
<R00> 
<IAN> 
<0J7> 
<V5B> 
< 083 > 


<F7B> 
< IMD> 


<H0C> 
< 15U> 
<QV2> 

<R1V> 

<0NN> 

<BNU> 


<7LP> 


<TI9> 
<GK0> 
<H6B> 
<L7I > 
<BAA> 

<1PP> 

< VUK> 
<QMB> 

< V3J > 
<PGV> 
<GB7> 
<04T> 

< 1E3> 
<GF8> 


Listing 9. Ein Boot-Sektor mit 17 Möglichkeiten 

Auf die Frage »Text hinter ’Booting?« kann ein beliebiger 
Text eingegeben werden (Text = TX$). Wird der Name des 
zu ladenden Programms eingetippt, erscheint während des 
Ladens: 

"BOOTING (Programmname)..." 

Aber dank des bereits durch Zeile 360 in den Tastaturpuf¬ 
fer vorgegebenen Anführungszeichens können auch die 
bereits oben erwähliten Sfeuei Zeichen eingegeben werden. 
Wenn kein Text erwünscht ist: <RETURN> drücken! 

Für die richtige Positionierung der Punkte (...) wurde in 
Zeile 380 für die TAB-Funktion aus Speicherstelle 215 ($D7) 
der Wert für 40- oder 80-Zeichen-Darstellung abgefragt. 
Dort steht entweder $00 oder $80 für 40 beziehungsweise 
80 Zeichen. Denn: 0:3,2 ergibt TAB(O) und 128:3,2 ergibt 
TAB(40)I 
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C 128 


TIPS&TRICKS 


Zeile 400: Soll ein Maschinen-Programm geladen werden, 
kann jetzt der Name des Programms eingegeben werden. 
Kein Maschinen-Programm? < RETURN > drücken! 

Wurde ein Name eingegeben (MP$), muß nun die Frage 
»Autostart?« mit J(a) oder N(ein) beantwortet werden (Zeilen 
420 bis 480). 

Zeile 470: Die Variable RU ist für die Einsprungadresse 
zum eventuellen Laden eines Maschinen-Programms wich¬ 
tig, und ergibt sich aus der Länge des Textes (TX$), der Länge 
des Maschinenprogramm-Namens (MP$) und dem Wert von 
JN=19 plus 3 für einen JSR-Befehl, falls Autostart gewählt 
wurde. 

In Zeile 490/500 wird wieder für die PRINT-Anweisung der 
aktuelle Bildschirm abgefragt. Falls das Maschinen-Programm 
nicht automatisch gestartet werden soll, geht es von Zeile 
490 direkt nach 650 zur Frage nach einem Basic-Programm. 
Ansonsten muß nun erst noch die Startadresse genannt wer¬ 
den (Zeilen 530 bis 630). Wer die Adresse nicht in HEX- 
Werten weiß, kann selbstverständlich auch die SYS-Adresse 
in dezimal angeben; man braucht dann nur N(ein) mit 
< RETURN > zu bestätigen. Wer unmögliche Werte eingibt, 
TRAPt in die Fehlerfalle und darf die Eingabe wiederholen. 

Die Zeilen 620/630 zerlegen die Adresse in Low- (JL) und 
High-(JH)Byte. 

Nun wird (Zeile 650) nach einem Basic-Programm gefragt. 
Soll kein Basic-Programm geladen werden, nur < RETURN > 
drücken. Andernfalls muß der Programmname eingegeben 
werden (BPS). 

Entsprechend der Entscheidung: Autostart - ja oder nein 
wird der Variablen BS$ der Wert RUN für Laden und Starten 
oder DLOAD für Laden ohne Starten übergeben (Zeilen 670 
bis 710). 

Sollte weder ein Text noch ein Programmname eingegeben 
worden sein, wäre ein Boot-Sektor überflüssig und das Pro¬ 
gramm wird beendet. 

Im Abschnitt der Zeilen 770 bis 830 wird mit GETKEY OK$ 
angehalten und die Eingaben können in aller Ruhe überprüft 
werden. Durch X bricht das Programm ab, mit N können laut 
Zeile 340 nach Löschung aller Variablen (CLR) alle Eingaben 
erneuert werden. 

Ist alles in Ordnung, muß nur noch J gedrückt werden. 
Nachdem den Variablen CBS und NB$ die Werte CBM und 
00 zugewiesen wurden, läuft der eigentliche Schreibvor¬ 
gang des Boot-Sektors in den Zeilen 880 bis 1010 ab. In Zeile 
1010 wird mit TRAP die Fehlerfalle desaktiviert. Zeile 1020 
schafft mit ESCAPE < Klammeraffe > Platz für die Floppy- 
Meldung DS$. 

Fehlermeldungen von der Floppy werden in den Zeilen 
1040 bis 1060 und Basic-Fehler in den Zeilen 1080 bis 1120 
verarbeitet. (Hans-Georg Schmidt/dm) 

Variablen- und Array-Inhalte anzeigen 


1) : DUMPV 128 

Dieses Programm (Listing 10, bitte mit dem neuen Check¬ 
summer 128 eingeben) ermöglicht die Ausgabe der Werte 
der nichtindizierten Variablen eines Basic-Programms. 

Nach Start des Ladeprogramms mit RUN erfolgt der Aufruf 
mit SYS DEC ("0B00"). Es werden für jede Variable deren 
Name (maximal die ersten beiden Buchstaben), deren Typ 
(SPACE für Real, % für Integer und $ für String) sowie deren 
Werte ausgegeben. 

2) : DUMPA 128 

Dieses Programm (Listing 11, bitt ebenfalls mit dem neuen 
Checksummer 128 eingeben) funktioniert ähnlich wie 
DUMPV 128, nur daß die Werte der indizierten Variablen 
(Arrays) eines Basic-Programms ausgegeben werden. Nach 
Start des Ladeprogramms mit RUN kann es mit SYS DEC 


110 REM <02B> 

120 REM DUMPV 128 <02B> 

130 REM < 029 > 

140 REM PROGRAMM ZUR AUTOMATISCHEN AUSGABE D 

ER NICHTINDIZIERTEN VARIABLEN <02E> 

150 REM EINES BASIC 7.0 PROGRAMMES FUER DEN 

COMMODORE 128 <02F> 

160 REM <020 

250 SCREENMODE=PEEK < DEC(“00D7“) > < PPQ > 

260 IF SCREENMODE=0 THEN SP=0: SX=15: SY-10: 

ELSE SP=5: SX-35: SY-10 <HF6> 

270 SCNCLR SP <K5N> 

280 COLOR 0,1: COLOR 6,1: COLOR 4,1: COLOR 5 

,2 <CJU> 

290 CHAR 1,SX,SY,"DUMPV 128",1 <IET> 

300 REM DATA—ZEILEN LESEN <02E> 

310 S=0: FOR I-DEC("0B00") TO DEC<"0C1D">: R 

EAD X: S=S*X: POKE I,X: NEXT I <UCC> 

320 DATA 169,0,141,0,255,165,47,133,252,165, 

48.133.253.197.50.208.12.165.252 <50M> 
330 DATA 197,49,208,6,169,63,141,0,255,96,16 

0,0,32,230,11,16,6,32,78,11,76 <BGN> 

340 DATA 57,11,200,32,230,11,16,6,32,147,11, 

76,57,11,32,115,11,169,13,32,45 <UPQ> 

350 DATA 199,24,165,252,105,7,133,252,165,25 

3,105,0,133,253,76,13,11,32,200 <7PC> 

360 DATA 11,169,37,32,45,199,169,32,32,45,19 

9,32,230,11,133,100,200,32,230 <860> 

370 DATA 11,133,101,162,144,56,32,112,140,32 

,66,142,32,226,85,96,32,200,11 <E2E> 

380 DATA 169,32,32,45,199,169,32,32,45,199,1 

66,252,164,253,232,208,1,200,232 <HAM> 

390 DATA 208,1,200,138,32,246,11,76,108,11,3 

2,200,11,169,36,32,45,199,169 <R0I> 

400 DATA 32,32,45,199,169,32,32,45,199,32,23 

0,11,133,254,240,27,200,32,230 <NND> 

410 DATA 11,72,200,32,230,11,133,251,104,133 

,250,160,0,32,238,11,32,45,199 <1U7> 

420 DATA 200,19B,254,208,245,96,169,32,32,45 

,199,160,0,32,230,11,41,127,32 <E2E> 

430 DATA 45,199,200,32,230,11,41,127,208,2,1 

69.32.32.45.199.200.96.165.252 <TOF> 
440 DATA 133,250,165,253,133,251,169,250,162 

1,32,116,255,96,133,250,132,251 <5LV> 

45w DATA 160,4,32,238,11,133,103,136,32,238, 

11,133,102,136,32,238,11,133,101 <4UK> 

460 DATA 136,32,238,11,133,104,9,12B,133,100 

,136,32,238,11,133,99,96 <A4I> 

470 SCNCLR SP <N5N> 

480 IF S-32209 THEN 510 <MA5> 

490 CHAR 1,SX,SY,"FEHLER IN DATAZEILEN !!!" <K2M> 

500 CHAR l,SX,SY+2,"DIFFERENZ - “+STR*<32209 

-S) <HUN> 

510 END <0NU> 


Listing 10. »DumpV 128« - Ausgabe nichtindizierter Variablen 

("0C1E") aufgerufen werden. Die Ausgabe der Namen und 
Felder erfolgt analog zur Ausgabe der Variablennamen bei 
DUMPV 128. Die Werte eines Arrays werden, getrennt durch 
Kommata, in der Reihenfolge, in der sie im Speicher stehen, 
ausgegeben. 

Da beide Programme verschiedene RAM-Bereiche bele¬ 
gen, können sie gleichzeitig im Speicher stehen und unab¬ 
hängig voneinander verwendet werden. Die Werte aller Varia¬ 
blen (also einfache und indizierte Variable) können mit SYS 
DEC (* 0DE6 ") ausgegeben werden, wenn vorher folgen¬ 
des Programm gestartet wird: 

10 FOR I=DEC("0DE6") TO DEC("0DEC"): READ X 
20 POKE I,X: NEXT I 

30 DATA 32,0,11,32,30,12,96 (Lothar Glässer/dm) 

Aus dem Directory laden 


Wird ein Programm mit »DSAVE *NAMEfSHIFT+SPACEj:"« 
gespeichert dann findet man im Directory »" Name *:« vor. Es 
kann nun nach <F3> einfach durch Anfahren mit dem Cur¬ 
sor und <F2> + < RETURN > geladen werden. Mit dem 
RENAME-Befehl lassen sich natürlich schon vorhandene 
Programme entsprechend umbenennen. 

(Gerhard Seebauer/dm) 
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0128 


110 

REM 

<02B> 

120 

REM DUMPA 128 

<02B> 

130 

REM 

<029> 

140 

REM PROGRAMM ZUR AUTOMATISCHEN AUSGABE D 



ER INDIZIERTEN VARIABLEN 

<02E> 

150 

REM EINES BASIC 7.0 PROGRAMMES FUER DEN 



COMMODORE 128 

<02F> 

160 

REM 

<020 

250 

SCREENMODE=PEEK(DEC("00D7")) 

<PPQ> 

260 

IF SCREENMODE=0 THEN SP=0: SX=15: SY=10: 



ELSE SP=5: SX=35: SY=10 

<HF6> 

270 

SCNCLR SP 

<K5N> 

280 

COLOR 0,1: COLOR 6,1: COLOR 4,1: COLOR 5 



,2 

<CJU> 

29© 

CHAR 1,SX,SY,"DUMPA 128“,1 

<J0T> 

300 

REM DATA—ZEILEN LESEN 

<02E> 

310 

S=0: FOR I=DEC("0C1£") TO DEC(”0DE5">: R 



EAD X: S-S+X: POKE I,X: NEXT I 

<BKB> 

320 

DATA 169,0,141,0,255,165,49,133,252,165, 



50,133,253,197,52,208,12,165,252 

<DON> 

330 

DATA 197,51,208,6,169,63,141,0,255,96,16 



0,0,32,163,13,16,6,32,97,12,76 

<22H> 

340 

DATA 87,12,200,32,163,13,16,6,32,233,12, 



76,87,12,32,171,12,169,13,32,45 

<JVO> 

350 

DATA 199,165,253,76,43,12,32,67,13,169,3 



7,32,45,199,169,32,32,45,199,160 

<6NI> 

360 

DATA 0,32,174,13,133,100,200,32,174,13,1 



33,101,162,144,56,32,112,140,32 

<MK0> 

370 

DATA 66,142,32,226,85,24,165,22,105,2,13 



3,22,165,23,105,0,133,23,197,253 

<5LK> 

3B0 

DATA 240,4,176,16,144,6,165,22,197,252,1 



76,8,169,44,32,45,199,76,110,12 

< N7T > 

390 

DATA 96,32,67,13,169,32,32,45,199,169,32 



,32,45,199,165,22,164,23,32,190 

<JTJ> 

400 

DATA 13,32,66,142,32,226,85,24,165,22,10 



5,5,133,22,165,23,105,0,133,23 

<DVC> 

410 

DATA 197,253,240,4,176,16,144,6,165,22,1 



97,252,176,8,169,44,32,45,199 

<892> 

420 

DATA 76,184,12,96,32,67,13,169,36,32,45, 



199,169,32,32,45,199,169,32,32 

<3G5> 

430 

DATA 45,199,160,0,32,174,13,133,254,240, 



27,200,32,174,13,72,200,32,174 

<CQK> 

440 

DATA 13,133,251,104,133,250,160,0,32,182 



,13,32,45,199,200,19B,254,208 

<9JH> 

450 

DATA 245,24,165,22,105,3,133,22,165,23,1 



05,0,133,23,197,253,240,4,176 

<EK6> 

460 

DATA 16,144,6,165,22,197,252,176,8,169,4 



4,32,45,199,76,246,12,96,169,32 

<F9F> 

470 

DATA 32,45,199,160,0,32,163,13,41,127,32 



,45,199,200,32,163,13,41,127,208 

<70H> 

480 

DATA 2,169,32,32,45,199,160,4,24,165,252 



,105,5,133,22,165,253,105,0,133 

<76H> 

490 

DATA 23,32,163,13,24,101,22,133,22,169,0 



,101,23,133,23,32,163,13,24,101 

<LR2> 

500 

DATA 22,133,22,169,0,101,23,133,23,160,2 



,32,163,13,24,101,252,8,133,254 

<HFV> 

510 

DATA 200,32,163,13,40,101,253,133,253,16 



5,254,133,252,96,165,252,133,250 

<2BL> 

520 

DATA 165,253,133,251,76,1B2, 13, 165,22, 13 



3,250,165,23,133,251,169,2S0,162 

<KDR> 

530 

DATA 1,32,116,255,96,133,250,132,251,160 



,4,32,182,13,133,103,136,32,182 

<G76> 

540 

DATA 13,133,102,136,32,182,13,133,101,13 



6,32,182,13,133,104,9,12B,133 

<EA3> 

550 

DATA 100,136,32,182,13,133,99,96 

<RM1 > 

560 

SCNCLR SP 

<NTN> 

570 

IF 8=47090 THEN 600 

< ISF> 

580 

CHAR 1,SX,SY,"FEHLER IN DATAZEILEN !!!" 

<K4M> 

590 

CHAR l,SX,SY+2,"DIFFERENZ = "+STR*(47090 



-S) 

<ONR> 

600 

END 

<0M6> 


Listing 11. »DumpA 128« - Ausgabe Indizierter Variablen 


Den Zehnerblo<k sinnvoll belegen 


Das nächste Programm (Listing 12) demonstriert den 
Gebrauch der Interruptroutine und der Tastaturbelegung des 
CI28 anhand einer Neubelegung des Zehnerblocks bei 
gedrückter SHIFTTaste. 

Will man DATA-Werte eingeben, so kommt einem doch der 
Zehnerblock des CI28 sehr gelegen. Um diesen Vorteil 
auch bei der Assemblerprogrammierung nutzen zu können, 
fehlt es jedoch an den Buchstaben A bis F. Weiterhin ist zu 


bemängeln, daß es beim eingebauten Monitor zu Problemen 
kommt, wenn man einen Teil disassembliert und anschlie¬ 
ßend verändern will. Stehen hinter dem neu Eingegebenen 
noch Zeichen, so akzeptiert der Monitor die Eingabe nicht 
und gibt statt dessen ein mit der Zeit nervendes Fragezei¬ 
chen aus. Eine Verbesserung der Belegung der Zehner¬ 
block-Tasten, besonders, wenn man mit dem Monitor arbei¬ 
tet, bewirkt das Programm »10’ER BLOCKER«. Dabei wird 
lediglich die SHIFT-Version der 14 Zehnerblock-Tasten neu 
belegt. Die Belegung ohne SHIFT bleibt gleich (Bild 1 zeigt 
die neue Belegung des Zehnerblocks, gedrückt mit SHIFT). 

Untergebracht sind die Buchstaben A bis F, das Komma 
sowie die folgenden Zeichen: »$«, »%«, »&«, »/« und »*«. Die 
Null-Taste ergibt, gedrückt mit SHIFT, zwei Nullen (00). Der 
RETURN-Taste wird in diesem Fall ein Doppelpunkt vorge¬ 
schoben. Befindet man sich im Monitor und verändert ein 
Assemblerlisting, so werden, falls man SHIFT und RETURN 
gleichzeitig drückt, die Zeichen hinter dem Cursor nicht 
beachtet. 


15 REM * * * 10ER BLOCKER * * * <01B> 

20 REM <01A> 

40 REM NEUBELEGUN6 DER SHIFT/10'ER <01C> 

50 REM BLOCK - TASTEN } DURCH VER- <01D> 

60 REM AENDERN DER INTERRUPTROUTI— <01E> 

70 REM NE UND DER TASTATURBELEGUNG <01F> 

B0 REM <010> 

100 BANK 15: POKE 53280,0: POKE 53281,0 <MCK> 

110 PRINT CHR*(147);CHR*(30) <DLE> 

120 PRINT "AN WELCHE ADRESSE (IN HEX) SOLL D 

IE”: PRINT <KJB> 

130 PRINT "ROUTINE? PLATZBEDARF:1 BLOCK (256 

BYTES)": PRINT <72J> 

140 PRINT : INPUT "ADRESSE (*)";A*: FAST <LEJ> 

150 A=DEC(A*>: IF A-0 THEN A-58B8: REM *1700 <7ER> 
155 REM 1.SCHLEIFE FUER DATA-ZAHLEN <02D> 

16 ’ 3R N*=A TO A+139: READ Z: PDKE N,Z: S=S+ 

Z: NEXT <11T> 

170 IF S<>17017 THEN PRINT "FEHLER IN DATA'S 

!!!•■: STOP <B3P> 

175 REM 2.SCHLEIFE FUER DATA-ZEICHEN <02F> 

180 FOR N=A+140 TO A+165: READ Z*: Z=VAL(Z*) 

: IF Z=0 THEN Z=ASC<Z*> <VFH> 

190 POKE N,Z: NEXT <51L> 

200 PRINT CHR*(147>i"INITIALISIEREN MIT:": P 

RINT : PRINT : PRINT <7BK> 

210 PRINT "BANK15:SYS"A;CHR*(145);CHR*(145); 

CHR*(145) <J92> 

215 REM ANPASSEN AN DIE ADRESSE A <02F> 

220 L=(A+166> AND 255: H-INT((A+166)/256) <912> 

230 POKE(A+2) ,(A+13) AND 255 <UI2> 

240 POKE(A+7) ,INT((A+13)/256> <QOD> 

250 POKE(A+67),L: P0KE(A+6B),H <GMU> 

260 POKE(A+80),(A+148) AND 255 <13T> 

270 POKE(A+Bl),INT((A+148)/256) <6U0> 

280 POKE(A+83),(A+231) AND 255 <I5T> 

290 POKE(A+B4),INT((A+231>/256) <0LA> 

300 POKE(A+91),L: P0KE(A+93),H <J46> 

310 SLOW : END <L06> 

320 DATA 120,169,13,141,20,3,169,23,141,21,3 

,88,96,216,32,36 <U0G> 

330 DATA 192,144,18,32,248,245,32,208,238,17 

3,13,220,173,4,10,74 <OT3> 

340 DATA 144,3,32,6,64,173,65,3,201,240,144, 

56,174,0,255,169 <UGV> 

350 DATA 15,141,0,255,172,64,3,132,254,172,6 

5,3,132,255,160,0 <1JH> 

360 DATA 177,254,153,166,23,200,192,89,208,2 

46,142,0,255,160,0,IBS <KML> 

370 DATA 14B,23,153,231,23,200,192,18,208,24 

5,162,166,160,23,142,64 <QK2> 

380 DATA 3,140,65,3,165,211,106,144,22,166,2 

08,240,18,189,73,3 <72M> 

390 DATA 201,48,208,14,236,32,10,176,6,232,1 

57,73,3,134,208,76 <2E1> 

400 DATA 51,255,201,141,208,249,236,32,10,17 

6,244,169,58,157,73,3 <48J> 

410 DATA 169,13,208,229,"X","E",24,"B","D"," 

*","A",27,<A9Q> 
420 DATA 10,141, "F“ "C" , 8,4B,",“ <IR8> 


Listing 12. Neubelegung der geSHIFTeten Tasten des 
Zehnerblocks 
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diese nochmals in den Tastaturpuffer geschoben. Ist dies 
jedoch die RETURN-Taste, so wird zunächst ein Doppelpunkt 
und anschließend ein RETURN in den Tastaturpuffer 
geschrieben. 

Der Basic-Lader (Listing 12, bitte mit dem neuen Check¬ 
summer 128 eingeben) kann das 255 Byte lange Programm 
an jede beliebige Stelle speichern. Es empfehlen sich fol¬ 
gende Bereiche für das Maschinenprogramm: $0B00 bis 
$ODFF (Kassetten- und RS232-Ein- und Ausgabepuffer) 


Bild 1. Die Tastenbelegung der geSHIFTeten Tasten des 
Zehnerblocks 

Die Tastaturbelegung 

Zunächst muß man wissen, daß der CI28 mehrere 
Tastatur-Decodiertabellen besitzt. Diese Tabellen sind für die 
verschiedenen Tastenkombinationen mit SHIFT-, CONTROL- 
und COMMODORE-Tasten vorhanden. Außerdem gibt es 
weitere Tabellen für die DIN-Belegung, die sich von der 
ASCII-Version unterscheidet. 

Die Tabellen, die uns interessieren, sind die, die in Verbin¬ 
dung mit der SHIFTTaste gelten. Der Vektor, der auf diese 
Tabelle zeigt, liegt bei $340/$341. Man transferiert also die 
Tabelle, auf die dieser Vektor zeigt ($FAD9 bis $FB31), ins 
RAM, verändert die entsprechenden Werte und verbiegt den 
Vektor auf die neue Tabelle. Dies funktioniert jedoch nur, bis 
die ASCII/DIN-Taste gedrückt wird, da dann der Vektor wieder 
ins ROM auf die DIN-Decodiertabelle ($FD82 bis $FDDA) 
gestellt wird. 

Auch eine Belegung der Null- und RETURN-Taste mit zwei 
Zeichen gleichzeitig ist so nicht zu realisieren. Die einzige 
vernünftige Lösung scheint über den Interrupt zu laufen. 

Der Interrupt 

Beim C128 gibt es, ähnlich wie beim C 64, einen Interrupt- 
Vektor. Dieser Vektor liegt bei $314/$315 und zeigt auf die 
Routine bei $FA65. Diese Routine geht bis SFA7C und 
springt anschließend nach SFF33. Will man eigene Routinen 
in den System-Interrupt einbauen, so kopiert man zunächst 
diese ROM-Routine ins RAM (etwa nach $1300) und hängt 
die eigene Routine hinten an. Am Ende der eigenen Routine 
springt man nach $FF33, um den Interrupt mit dem Wieder¬ 
herstellen der Register zu beenden. Aktiviert wird diese neue 
Routine, indem man den Interrupt-Vektor auf ihren Anfang 
lenkt. 

Das Programm 

Der Hauptteil dieses Programms läuft im Interrupt ab. Nach¬ 
dem der Interrupt-Vektor ($314/$315) durch SYS DEC 
("1700") auf die Hauptroutine bei $1700 gestellt wurde, 
werden dort zunächst die gleichen Unterroutinen aufgeru¬ 
fen, wie es die Interrupt-Routine bei $FA65 auch machen 
würde. Anschließend wird kontrolliert, ob der Zeiger auf die 
Tastatur-Decodiertabelle ins ROM zeigt. Ist dies der Fall, wird 
diese Tabelle nach $17A6 kopiert und die Neuerungen im 
Zehnerblock-Bereich vorgenommen. Nun muß nur noch der 
Vektor bei $340/$341 auf die neue Tabelle gestellt werden. 

Als nächstes prüft das Programm, ob die SHIFT-Taste 
gedrückt ist. Dazu existiert in der Zeropage ein Flag. Ist die 
SHIFT-Taste gedrückt, so ist das 0. Bit von $D3 gesetzt. Trifft 
dies zu, so wird das letzte Zeichen aus dem Tastaturpuffer 
gelesen (Anzahl der Zeichen im Tastaturpuffer in $D0, Tasta¬ 
turpuffer ab $349, maximale Länge des Tastaturpuffers bei 
$A20). Handelt es sich bei dem Zeichen um eine Null, so wird 
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Schleife zue Einbauen der neuen 

1752 

eta 

«17e7,y 

i 

Zeichen in dio neue Tastaturdecodier- 

1755 

iny 



i 

tabeile 2 

1756 

cpy 

• «12 


i 


1758 

bne 

«17 4 f 


i 


175a 

1 dx 

• «a6 


i 

Zeiger <«0340/»03411 au« neue 

175c 

ldy 

• «17 


i 

Tastaturdec.tabeile <«17a6) 

175o 

et» 

»0340 


i 


1761 

ety 

«0341 


i 



Pruefen au« SHIFT/RETURN o. -/’O' 

1764 

lda 

•d3 


i 

Pruefen au« SHIFT-Taste 

1766 

ror 



i 

(O.Bit gesetzt=SHIFT gedrueckt) 

1767 

bcc 

»177« 


i 

nicht gedrueckti Ende 

1769 

lda 

«dO 


i 

Anzahl Zeichen le Tastaturpu«fer 

176b 

beq 

«177« 


i 

leer: Ende 

!74d 

lda 

«0349 

X 

i 

Zeichen aus Tastaturpuffer holen 

1770 

cep 

»»30 


i 

gleich ASCII *0' ? 

1772 

bne 

«1782 


i 

nein: Testen auf RETURN 

1774 

cp» 

«0a20 


i 

Tastaturpuffer voll ? 

1777 

bcs 

»177 f 


i 

jai Ende 

1779 

inx 



i 

Anzahl der Zeichen le Puffer ue I erhoehen 

177a 

eta 

«0349 

* 

i 

Zeichen in Tastaturpuffer schreiben 

17 7d 

et» 

«dO 


i 

Anzahl der Zeichen ie Puffer abspeichern 

177« 

J*P 

»((33 


» 

*•»**» Ende •♦**»» Ruecksprung zue R0H-IRB 

1782 

cep 

• «8d 


i 

Zeichen ■ SHIFT/RETURN 7 

1784 

bne 

«177« 


i 

Neins Ende 

1784 

cp* 

I0a20 


i 

Noch Platz in Tastaturpuffer ? 

1789 

bet 

«177« 


i 

Nein: Endo 

178b 

lda 

• »3a 


i 

ASCII ■:* 

178d 

sta 

«0349 

x 

i 

ln den Tastaturpuffer 

1790 

lda 

• <0d 


i 

ASCII RETURN 

1792 

bne 

»1779 


i 

Unbedingter Sprung 

1794 .byte 25 

45 

18 42 44 24 41 lb t neue Zeichen der Tastatur- 

179c .byts 2a 

2« 

Oa 8d 46 26 43 OB ( decodiertabelle 2 

17a4 .byte 30 

2c 

I 

17a6 - 

17«« 


i 

Platz fuer neue Tastaturdecodiertabelle 


Listing 13. Der kommentierte Quellcode zum 10’er-Blocker 
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sowie das freie RAM von $1300 bis $1F77. Gibt man keine 
Adresse an, so wird es automatisch in den Bereich von 
$1700 bis $17FF geschrieben. 

Ebenfalls ist es möglich, die geSHIFTeten Zehnerblock- 
Tasten beliebig zu belegen. Dazu müssen lediglich in den 
DATA-Zeilen 410 und 420 des Listings 12 die entsprechen¬ 
den ASCII-Zeichen verändert werden. 

Beispiel: Will man die SHIFT-Kombination der Taste »9« im 
Zehnerblock mit dem Zeichen » # « anstelle des »&« belegen, 
so braucht man nur in der Zeile 420 das »«.«-Zeichen durch 
das »#« zu ersetzen. 

Für Maschinensprache-Experten ist in Listing 13 der kom¬ 
mentierte Quell-Code abgedruckt. (Olaf Pfeiffer/dm) 

Fehlermeldungen, 
die nicht im Handbuch stehen 


Auch das überraschend dicke Commodore-Handbuch zum 
C128 vermag nicht alles zu beantworten. So hat wohl schon 
so mancher, dem zum Beispiel die Fehlermeldung UNRE- 
SOLVED REFERENCE ERROR unterkam, nachgeschlagen, 
gesucht und doch nicht gefunden... 

Insgesamt existieren fünf Fehlermeldungen, die nicht im 
Handbuch zu finden sind und auch sonst nirgendwo erwähnt 
werden. Dies sind die Meldungen mit den Nummern 37 bis 
41, die Sie auch mit der Funktion ERR$(ER) ansehen kön¬ 
nen. Hier erfahren Sie nun endlich, was die Meldungen im 
einzelnen bedeuten: 

ER 37: BEND NOT FOUND 

Dieser Fehler tritt auf, wenn der Interpreter zu einem BEGIN 
kein BEND findet. Hat man zum Beispiel eine Befehls¬ 
sequenz wie 

IF (Bedingung) THEN BEGIN 

und die Bedingung ist nicht erfüllt, so sucht der Interpreter 
nach dem BEND. Ist im nachfolgenden Programm vor dem 
nächsten BEGIN kein BEND mehr vertreten, so erhalten Sie 
die oben genannte Fehlermeldung mit der Zeilennummer der 
letzten Basic-Zeile. Drückt man die HELP-Taste, so wird die 
ganze Zeile als falsch angegeben. Sehr ärgerlich kann der 
Fehler sein, wenn in einem Programm mehrere BEGIN und 
BEND existieren. Dann müssen Sie Ihr Programm von Hand 
durchsuchen. Als Beispiel sehen Sie Listing 14, das die Wur¬ 
zel einer Zahl berechnen soll. Die Wurzel kann aber nur von 
einer positiven Zahl gezogen werden. Also muß bei negativen 
Zahlen auf die Berechnung verzichtet werden. In diesem Fall 
soll zum END verzweigt werden. Ihnen ist sicher schon auf¬ 
gefallen, daß in Zeile 50 das BEND fehlt. Lassen Sie das Pro¬ 
gramm einmal laufen. Geben Sie eine positive Zahl ein, so 
arbeitet die Routine richtig. Ist Ihre Zahl negativ, so erhalten 
Sie ein BEND NOT FOUND ERROR IN 540, also der letzten 
REM-Zeile. Fügen Sie das BEND ein, so arbeitet das Pro¬ 
gramm ordnungsgemäß. 

Geben Sie nun einmal 
RENUMBER 10000,10000 

ein. Damit sind wir schon beim nächsten Fehler. 

ER 38: LINE NUMBER TO LARGE 

Auf den ersten Blick könnte man vermuten, daß dieser Feh¬ 
ler auftritt, wenn man eine zu große Zeilennummer eingibt. 
Dies ist aber nicht der Fall. Der Interpreter würde hier einen 
SYNTAX ERROR ausgeben. Die oben genannte Fehlermel¬ 
dung tritt beim RENUMBER-Befehl auf, wenn bei der Umnu¬ 
merierung Zeilennummern auftreten würden, die zu hoch 
sind. Die höchste erlaubte Zeilennummer ist 63999. Falls Sie 
bei Listing 14 
RENUMBER 10000,10000 

eingeben, so würde in der siebten Programmzeile schon die 
Zeilennummer 70000 auftreten. 


ER 39: UNRESOLVED REFERENCE 
Diese Fehlermeldung bezieht sich auch nur auf den 
RENUMBER-Befehl. Es handelt sich hierbei um das Gegen¬ 
stück zum UNDEF'D STATEMENT ERROR. Es wird die Num¬ 
mer der Zeile ausgegeben, in der sich ein Sprungbefehl 
befindet (GOTO, GOSUB), der sich auf eine Zeile bezieht, die 
nicht existiert. Fügen Sie beispielsweise 
55 GOSUB 1000 

in Listing 14 ein. Wollen Sie das Programm jetzt umnumerie¬ 
ren, erhalten Sie einen UNRESOLVED REFERENCE ERROR 
IN 55. 


10 INPUT 

"<2SPACE»GEBEN SIE EINE ZAHL EIN 

"5 

A 


<B4K> 

20 IF A>—0 THEN BEGIN 

<JDU> 

30 W=SQR <A) 

<FSL> 

40 PRINT 

"{2SPACEJDIE WURZEL VON"sAj"IST“ 

W <GT6> 

60 END 


<0CM> 

70 : 


<023> 

80 : 


<02T> 

500 REM 

WENN DIE ZAHL GROESSER ODER 

<022> 

510 REM 

GLEICH 9 IST, SOLL DIE WURZEL 

< 023> 

520 REM 

BERECHNET WERDEN. IST DIE ZAHL 

<020> 

530 REM 

KLEINER 0 SO SOLL NICHTS GE- 

<021 > 

540 REM 

MACHT WERDEN. 

<026> 


Listing 14. Ein Versuchs-Programm, um Fehlermeldungen zu 
erklären (siehe Text) 


Allerdings kann man sich diesen Fehler zunutze machen. 
Haben Sie beispielsweise ein langes Basic-Programm, aus 
dem Sie jetzt eine Zeile löschen müssen, besteht die Gefahr, 
daß diese Zeile über GOTO oder GOSUB angesprungen wer¬ 
den könnte. Lassen Sie das Programm laufen, so erhalten Sie 
einen uiMDEFD STATEMENT ERROR. Angenommen, Listing 
14 enthielte ein Unterprogramm ab Zeile 1000, das Sie jetzt 
gelöscht haben. Sie wissen aber nicht, von wo es angesprun¬ 
gen wurde. Eigentlich hätte man im komfortableren Basic 7.0 
einen FIND-Befehl erwarten können. Leider ist das nicht der 
Fall. Um nun die Zeilen zu finden, die die Zeile 1000 ansprin- 
gen, fügen Sie an das Listing 14 beispielsweise die Zeile 
63000 GOTO 63001 

an, wobei die Zeile 63001 nicht existieren darf. Geben Sie 
jetzt einfach RENUMBER ein. Daraufhin erhalten Sie einen 
UNRESOLVED REFERENCE ERROR IN 55. Drücken Sie die 
HELP-Taste, so haben Sie die erste Stelle gefunden, von der 
aus das Unterprogramm angesprungen wurde. Ändern Sie 
diese Zeile und geben Sie wieder RENUMBER ein, bis Sie 
einen UNRESOLVED REFERENCE ERROR IN 63001 erhal¬ 
ten. Dann sind alle Stellen korrigiert. Vielleicht haben Sie sich 
schon gefragt, was die Zeile 63000 bewirken soll? Nun, 
solange das Programm nicht einwandfrei ist, beginnt der 
Interpreter nicht mit der eigentlichen Umnumerierung. 

Die Fehlermeldungen 40 und 41 (UNIMPLEMENTED 
COMMAND ERROR und FILE READ ERROR) konnten noch 
nicht genau entschlüsselt werden, da die nähere Funktion 
vom Namen her vielleicht erkennbar ist, aber noch keine 
stichhaltigen Beweise für Vermutungen vorliegen. Wenn Sie 
diese Fehlermeldungen schon entlarvt haben, sind wir jeder¬ 
zeit für Tips dankbar. (Thomas Hansch/dm) 

Lissajous-Figuren 


Ein kleines Programm, das das Grundgerüst zum Berechnen 
und Zeichnen von Lissajous-Figuren ermöglicht (Listing 15, 
bitte mit dem neuen Checksummer 128 eingeben). Durch 
Verändern verschiedener Werte (siehe REM-Zeilen) können 
Sie alle möglichen Figuren erzeugen. 

(Matthias Jäger/dm) 
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10 GRAPHIC 1,1 <LUI> 
20 WIDTH 2 <32H> 
30 X0=160: Y0=100: A-150: B=95 <DOU> 
40 D=5: N=3: M=4: T0=«/1B0 <CQ3> 
50 CDLOR 0,1: COLOR 4,2: COLOR 1,2 <LSI> 
60 FOR w=0 TO 180*D STEP D <NFK> 
70 T=W»T0 OHO 
80 X=X0+A«COS<N*T) <JJ6> 
90 Y=Y0+B*SIN<M»T) <03Q> 
100 IF T< >0 THEN DRAW 1,X1,Y1 TO X,Y <PU2> 
110 X1=X: Y1=Y <D57> 
120 NEXT M <2LB> 
130 CDLOR 1,3 <LS7> 
140 PAINT 1,0,0 <LPD> 
150 REM FIGUR 1 - D=5 , N=3 , M=4 <02F> 
160 REM FIGUR 2 - D=77 , N=1 , M=2 <020 
170 REM FIGUR 3 - D=77 , N=2 , M=1 <02D> 
180 REM FIGUR 4 - 0=77 , N=2 , M=3 <022> 
190 REM FIGUR 5 - 0=77 , N=3 , M=2 <023> 
200 REM FIGUR 6 - D=94 , N=1 , M=1 <020 
210 REM FIGUR 7 - D=94 , N=2 , M=3 <02D> 
220 REM FIGUR 8 - D=94 , N=1 , M=2 <02E> 
230 REM FIGUR 9 - D=94 , N=1 , M=3 <02F> 


Listing 15. Mit diesem kleinen Programm können Sie 
bezaubernde Lissajous-Figuren erzeugen. Bitte benutzen 
Sie zur Eingabe den Checksummer 128 auf Seite 122. 

Hoch ein paar PEEKs und POKEs 


POKE 2594,64 - Alle Tasten haben Auto-Repeat 
POKE 2594,128- Normalzustand Tasten-Repeat 
POKE 2598,64 - bringt den Cursor zum Stillstand 
POKE 2598,0 - Cursor blinkt wieder 

POKE 2603,128- Fester Cursor im 80-Zeichen-Modus 
POKE 2603,96 - Blinkender Cursor im 80-Zeichen- 
Modus 

POKE 2603,32 - Abgeschalteter Cursor im 80-Zeichen- 
Modus 

POKE 2603,64 - Schnell blinkender Cursor im 
80-Zeichen-Modus 

SYS 45096 - Monitor wird aktiviert 

(Michael Bartels/Helmut Schottmüller/dm) 


Laufschrift mit Sprites 


Diese auf Spritebasis arbeitende Laufschrift, die jeder 
Anwender in seine Programme einbauen kann, läßt sich ohne 
viel Aufwand realisieren. Durch die Interruptsteuerung der 
Sprites wird der Programmablauf nicht beeinflußt. Dazu ist 
nur folgendes kleine Programm nötig: 


POKE 160,255 

PEEK (199) 

POKE 216,0 
POKE 216,1 
POKE 216,64 
POKE 216,128 
POKE 216,254 
POKE 241,X 

POKE 243,1 


- Zurückstellen der internen Uhr 
(Tl$ = 000000) 

- zeigt an, in welcher BANK ein File 
abgelegt ist 

-ersetzt GRAPHIC 0,1 

- ersetzt GRAPHIC 1,1 
-ersetzt GRAPHIC 2,1 
-ersetzt GRAPHIC 3,1 
-ersetzt GRAPHIC 4,1 

- Ändern der Schriftfarbe 
(X = 0 bis 15) 

- Einschalten des Revers-Modus 


10 INPUT"FARBNUMMER (1-16)';? 

20 INPUT"GESCHWINDIGKEIT (1-6)";G 
30 INPUT"TEXT (BIS 24 ZEICHEN)";I$:SCNCLR 
40 GRAPHIC 1,1:CHAR 1,0,0,1$ 

50 SSHAPE A$,0,0,16,20:SPRSAV A$,l 
60 SSHAPE B$,23,0,39,20:SPRSAV B$,2 
'70 1 -HAPE C$,47,0,63,20:SPRSAV C$,3 
80 SSHAPE D$,71,0,87,20:SPRSAV D$,4 
90 SSHAPE E$,95,0,111,20:SPRSAV E$,5 
100 SSHAPE F$,119,0,135,20:SPRSAV F$,6 
110 SSHAPE G$,143,0,159,20:SPRSAV G$,7 
120 SSHAPE H$,167,0,183,20:SPRSAV H$,8 
130 SCNCLR:B=0:F0R A=1T08:SPRITE A,l,F,l,l,0:B=B+40 
140 MOVSPR A,B,51:M0VSPR A,270#G:NEXT 

(Karl-Heinz Montag/dm) 


POKE 243,0 - Ausschalten des Revers-Modus 

POKE 246,255 - Aktivieren des automatischen 
Einfügemodus (ESC-A) 


POKE 246,1 - Desaktivieren des automatischen Ein¬ 

fügemodus (ESC-C) 

POKE 247,64 - Schaltet NO-SCROLL-Taste ab 

POKE 247,0 - NO-SCROLL-Taste wieder normal 

POKE 247,255 - Unterbinden der Groß-/Kleinschrift- 
Umschaltung mit COMMODORE/ 
SHIFT 


POKE 248,254 

POKE 249,255 
POKE 249,0 


- Der Bildschirm rollt sich beim LISTen 
auf (ESC-M) 

- Schaltet Klingelzeichen (CTRL-G) ab 

- Schaltet das Klingelzeichen wieder ein 


POKE 774,102:POKE 775,224 

- Listschutz 
POKE 774,81 .POKE 775,81 

- Hebt den Listschutz wieder auf 

POKE 820,189 - ESC wird im Quote-Modus sichtbar 
POKE 820,185 - ESC reagiert wieder normal 
POKE 2594,0 - Keine Tasten-Wiederholung bis auf 

DEL, INST und CRSR 


Bildschirmhardcopy 80-Zeichen-Sdiirm 


Der Video-Controller für den 80-Zeichen-Schirm verwaltet 
einen eigenen 16 KByte großen Speicher, der außerhalb des 
normalen Adreßbereiches des Prozessors liegt. Das bedeu¬ 
tet, daß der Video-Speicher nur indirekt angesprochen wer¬ 
den kann, hat aber den Vorteil, daß er keinen Arbeitsspeicher 
belegt (normalerweise liegt der Bildschirmspeicher innerhalb 
des VDC-RAMs von $0000 bis $07CF). 

Diese kleine Routine erlaubt eine Hardcopy des 
80-Zeichen-Bildschirms. 

Arnulf Bechmann/dm) 

10 CLOSE 1:OPEN 4,4,1 
20 A=DEC("D0600"):D=A+1 
30 FOR J=0 TO 1999 STEP 80 
40 FOR Y=0 TO 79 

50 BY=J+Y:HB=INT(BY/256):LB=BY*256 
60 POKE A,18:POKE D,HB 
70 POKE A,19:POKE D,LB 
80 POKE A,31:B=PEEK(D) 

90 IF B=>1 AND B< =26 THEN B=B+96 
100 PRINT#,CHR$(B) 

110 NEXT Y,J 

120 PRINT # 4:CL0SE4:END 


64oi.ofülne.dc 

157 
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Tips und Tricks 
#•/ ■% • 
für Basic- 

Programmierer 

Mit den folgenden kleinen Programmen geben 
wir Ihnen einige Hilfsmittel an die Hand, die Sie in 
Ihre Programme einbinden können, um sie 
schneller und effektiver zu machen. 

V ielleicht geht es Ihnen wie mir. Sie kommen morgens 
nicht aus Ihrem Bett, verfluchen jeden Tag aufs neue 
Ihren Wecker, oder verbrauchen die Nerven Ihres Part¬ 
ners, der verzweifelt versucht, Sie zu wecken. Falls dies der 
Fall sein sollte, haben Sie sicher schon einmal versucht, sich 
durch Ihren Computer wecken zu lassen. Sollten Sie zu die¬ 
sem Zweck die Variable Tl$ (die sich ja geradezu aufdrängt) 
verwendet haben, so würden Sie zwar an diesem Morgen ge¬ 
weckt, jedoch sicher nicht zu dem Zeitpunkt, den Sie sich 
vorgestellt hatten. Die Variable TIS hat leider die unange¬ 
nehme Eigenschaft, eine recht ungenaue Uhr zu sein. Der 
maximale Fehler liegt bei 30 Minuten pro Tag. Aber zum Glück 
hat unser Computer, wie so oft, auch hierfür eine Lösung 
parat. Es handelt sich hierbei um die beiden CIAs (Complex 
Interface Adapter), welche je eine Echtzeituhr enthalten. 
Diese Echtzeituhr erhält ihren Takt aus der Netzfrequenz, die 
Variable TIS hingegen wird von der Interruptroutine versorgt. 
Dieser Tatsache verdanken wir es, daß die CIA-Uhr eine so 
große Langzeitgenauigkeit vorweisen kann. Die Echtzeituhr 
hält aber noch eine weitere Überraschung für uns bereit. Es 
besteht die Möglichkeit, eine Alarmzeit anzugeben. Sobald 
diese Zeit erreicht wird, löst das CIA einen IRQ (Interrupt, 
beziehungsweise CIA 2 einen NMI = unmaskierter Interrupt) 
aus, aber dazu später noch mehr. Wie die Register der CIA- 
Bausteine belegt sind, können Sie aus Tabelle 1 entnehmen. 
Die Echtzeituhr belegt die Register 8 bis 11. 

Die Zeit starten 


Die CIA-Uhren sind im BCD-Format organisiert. Dadurch spa¬ 
ren wir uns zwar in Maschinensprache das lästige Umrech¬ 
nen, von Basic aus ist die Umwandlung leider nicht zu umge¬ 
hen. Im BCD-Format werden Zahlen zwar immer noch Bit¬ 
weise gespeichert, jedoch jede Ziffer einzeln. Mit 8 Bit lassen 
sich also zwei Ziffern (2 mal 4 Bit, 00 bis 99) darstellen. Um 
nun eine Zahl, bestehend aus zwei Ziffern, in das BCD- 
Format umzuwandeln, wird die erste Ziffer (Wertigkeit 10) mit 
16 multipliziert und zu der zweiten Ziffer (Wertigkeit 1) 
addiert. 

Aber nun wieder zu unseren CIAs. Die Basisadresse des CIA 

I ist 56320 (CIA 2 = 56576). Eine kurze Registerbeschrei¬ 
bung entnehmen Sie bitte Bild 1. Zum Stellen der Uhr werden 
einfach die entsprechenden BCD-Werte in die jeweiligen 
Register geschrieben. Sobald Sie das V» Sekunden- 
Register überschreiben, startet die Uhr (überschreiben Sie 
jedoch die Stundenregister, stoppt sie). An Bit 7 in Register 

II können Sie außerdem erkennen, ob es sich um eine AM- 
oder PM-Zeit handelt (AM = Vormittag, PM = Nachmittag). 
Bitte vergessen Sie nicht, Bit 7 in Register 14 zu setzen 
(Netzfrequenz 50 HZ (60 HZ)). Für den Fall, daß Sie Ihre Uhr 


auch lesen möchten (soll ja Vorkommen), bietet das CIA eine 
weitere Besonderheit. Sobald Sie eines der Register lesen, 
wird die komplette Uhrzeit in einen Zwischenspeicher über¬ 
nommen. Durch diesen Kniff können Sie in aller Ruhe die 
Daten auslesen, ohne daß eine Veränderung des Zwischen¬ 
speichers eintritt. Sobald Register 8 angesprochen wird, gibt 
das CIA den Speicher wieder frei. In Listing 1 wartet ein 
Basic-Programm auf Sie, mit welchem Sie die Zeit stellen und 
ablesen können (Start mit RUN, um sie zu stellen und RUN 
200, um sie zu stoppen). Listing 2 enthält eine kurze Assem¬ 
blerroutine, die in die Interruptroutine eingefügt wird und 
Ihnen die Uhrzeit laufend auf dem Bildschirm ausgibt. Die 
eigentliche Assemblerroutine liegt bei Adresse 830. Um das 
Programm zu aktivieren, befindet sich bei Adresse 900 ein 
Programmteil, welcher den Interruptvektor auf das Hauptpro¬ 
gramm legt (SYS 900 startet die Anzeige der Uhr). 

Der Wecker im Computer 


Neben einer Uhr hat das CIA natürlich noch weitere Aufga¬ 
ben. Es löst zum Beispiel das Interruptsignal aus, durch wel¬ 
ches die bereits erwähnte Interruptroutine angesprungen 
wird. Dieses Ereignis tritt bei Unterlauf des Timers (die CIAs 
haben neben der Uhr noch zwei Timer) automatisch alle '/eo 
Sekunden auf. Wir haben allerdings die Möglichkeit zu einem 
von uns vordefinierten Zeitpunkt einen zusätzlichen Interrupt 
auszulösen. Zu diesem Zweck müssen wir eine Zeit ange¬ 
ben, die wir als Alarmzeit heranziehen. Die Alarmzeit wird wie 
die normale Uhrzeit in die Register 8 bis 11 geschrieben, 
jedoch muß hierfür das Bit 7 in Register 15 gesetzt sein 
(Rücksetzen nicht vergessen). Stimmen nun die Uhrzeit und 
die von uns eingestellte Alarmzeit überein, wird ein zusätzli¬ 
che' 1 IQ ausgelöst und der Programmzeiger springt zu der 



Tabelle 1. Registerbelegung der CIA 
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in den IRQ-Vektoren angegebenen Adresse. Die Unterschei¬ 
dung zwischen einem Interrupt durch den Unterlauf eines 
Timers oder durch Erreichen der Alarmzeit wird durch Regi¬ 
ster 13 möglich. In diesem Register wird bei Auftreten des 
IRQ das zuständige Bit (siehe Tabelle 1) gesetzt. Zum besse¬ 
ren Verständnis erwartet Sie in Listing 3 eine kleine Routine, 
welche bei Erreichen der Alarmzeit die Farbe des Bildschirm¬ 
rahmens verändert. Diese Routine wird ebenfalls mit SYS 
900 gestartet. 

Bildschirm mal zwei 


Wäre es nicht praktisch, auf dem Monitor zwei voneinander 
unabhängige Bildschirmseiten unterzubringen? Würde sich 
ein HiRes-Bild und der dazugehörige Text nicht ungeheuer 
gut machen? Wenn Ihnen diese oder ähnliche Gedanken 
schon einmal durch den Kopf gingen, dann sind Sie hier 
genau richtig. Mittels des VICs (Videocontroller) ist es unse¬ 
rem Computer nicht nur möglich, Zahlen oder Buchstaben 
auf den Bildschirm zu bringen, er sorgt auch für die HiRes- 
Grafik, die Sprites und die Verwaltung von 16 KByte Spei¬ 
cherplatz. Da er nebenbei auch noch für die Erzeugung eines 
normgerechten PAL-Signals zuständig ist, muß er in jedem 
Augenblick genau wissen, an welcher Stelle sich der Elektro¬ 
nenstrahl Ihres Monitors gerade befindet. Mit einer kleinen 
Assemblerroutine und ein wenig Bastelei an den Interrupt¬ 
vektoren und -registern unseres Computers können Sie in 
dem Augenblick, in dem sich der Elektronenstrahl an einer 
von Ihnen bestimmten Position befindet, zum Beispiel von 
einem HiRes- auf einen Textbildschirm umschalten (und 
umgekehrt). Da wir dadurch dem Computer keine Chance 
lassen, eine Bildschirmseite zu vollenden und einen Bild¬ 
wechsel vorzunehmen, erscheinen zwei (oder mehrere) Bil¬ 
der gleichzeitig. Die Trennung dieser Bilder ist abhängig von 
der Position, an welcher die Umschaltung erfolgt. Die Assem¬ 
blerroutine in Listing 4 ermöglicht die Darstellung von zwei 
Textbildschirmen (1024-2023 und 2024-3043) gleichzei¬ 
tig. In der Speicherstelle 648 können Sie festlegen, auf wel¬ 
chem Bildschirmteil Ihre Eingaben erscheinen sollen. Alle 
Ausgaben auf den Bildschirm werden ebenfalls in die Bild¬ 
schirmseite geschrieben, deren Adresse Sie in Speicher¬ 
stelle 648 angegeben haben. Der Wert, den Sie an diese 
Adresse POKEn müssen, errechnet sich wie folgt: Adresse 
des Bildschirmspeichers durch 256. Sobald Sie sich für eine 
Bildschirmhälfte entschieden haben, können Sie das Pro¬ 
gramm mit SYS 900 starten (Hier wird der Interruptvektor 
gesetzt, das eigentliche Programm befindet sich ab Spei¬ 
cherplatz 830. Oberer Bildschirm POKE 648,4, unterer Bild¬ 
schirm POKE 648,8). 

Der VIC hält für uns die Möglichkeit bereit, bei Auftreten 
eines bestimmten Ereignisses einen Interrupt (IRQ) auszulö¬ 
sen. Zu diesem Zweck stehen die Register 25 und 26 zur 
Verfügung. Die genaue Belegung dieser Register entneh¬ 


men Sie bitte Tabelle 2. Falls mindestens ein Bit aus Register 
25 und Register 26 übereinstimmt, wird ein IRQ ausgelöst 
und der interne Programmzähler springt zu der im IRQ-Vektor 
(788/789) angegebenen Adresse. Sobald wir diesen Zeiger 
auf ein eigenes Programm zeigen lassen, wird bei jedem IRQ 
zuerst unser Programm angesprungen. Das Ende unseres 
Programmes sollte immer einen unbedingten Sprung in die 
eigentliche Interruptroutine beinhalten. In unserem Fall müs¬ 
sen wir die Interruptmaske (Register 26) so verändern, daß 
Register 18 als Auslöser anerkannt wird. Um eine Auslösung 
an einer bestimmten Stelle des Rasterstrahls zu erreichen, 
wird in Register 18 (17) die entsprechende Position angege¬ 
ben. Register 18 hat folglich zwei Aufgaben: 1. wird es gele¬ 
sen, so gibt es die aktuelle Position des Rasterstrahls an. 2. 
wird es beschrieben, so gilt der Wert, welcher in das Register 
geschrieben wurde als die Position des Strahls, an der der 
IRQ ausgelöst (und Bit 1/Register 25 ist gesetzt) wird. Als 
letztes Problem bleibt uns rjoch das CIA. Dieser Chip ist im 
Normalfall derjenige, welcher die IRQs auslöst. Für unseren 
Zweck benötigen wir jedoch nur das Interruptsignal, das vom 
VIC ausgelöst wurde. Aus diesem Grund wird zu Beginn der 


10 C-5632B <226> 
20 POKE C+14,PEEK (C+14) OR 128 <163> 
30 POKE C+15,PEEMC+15) AND 127 <136> 
40 INPUT "ZEIT HHMMSS";A* <220> 
50 IF LEN(A*)06 THEN 40 <057> 
60 H=VAL(LEFT*(A*,2)) <026> 
70 M-VAL<MID*(A*,3,2)) <239> 
80 S«VAL(RI6HT*(A*,2>> <154> 
100 IF H>12 THEN H-H +68 <001> 
110 POKE C+3,16*INT <H/10> +H—INT(H/10)*10 <211> 
130 POKE C+2,16*INT(M/10> +M-INT(M/10)*10 <10B> 
15»; OKE C+l, 16*INT (S/10) +S—INT < 8 /10) *10 <090> 
160 POKE C,0 <224> 
180 PRINT“<CLR>" <16B> 
200 C*>56328 <160> 
210 H=PEEK < C+3 >: M=PEEK < C+2) s S*=PEEK < C+1) i T= 

PEEK <C) <230> 
230 F= 0 !IF H>32 THEN H=H-12BsF=l <013> 
240 H**INT <H/16) »10+H-INT (H/16) *16s IF F*>0 T 

HEN 2B0 <251> 
250 IF H=12 THEN 290 <126> 
260 H=H+12 <250> 
280 IF H=*12 THEN H=0 <167> 
290 M=INT(M/16)*10+M—INT(M/161*16 <173> 
300 S=INT <S/16)*10+S—INT <8/16)*16 <131> 
320 T*-RIBHT*("0"+MID*(STR*<H),2,2),2)+"»" <254> 
340 T**=T*+RIBHT*C'0"+MID*<STR*(M> ,2,2) ,2) + 

"s" <023> 
360 T*=T*+RIßHT*<“0"+MID*<STR#(S>,2,2),2)+ 

"l“ <067> 
380 T*=T*+RIBHT*(BTR*(T),1) <166> 
400 PRINT"{HOME,3D0WN> " 5 T* <050> 
420 BOTO 210 <11B> 


Listing 1. Baslc-Programm zum Stellen der Uhr 


NAME 

: 

LISTING I 

? MC 

033E 

03A3 

033E 

: 

A2 

03 

AO 

IE 

BD 

OB 

DC 

85 

EB 

0346 

i 

FB 

29 

FO 

18 

6A 

6A 

6A 

6A 

BD 

034E 

i 

69 

30 

EA 

99 

00 

04 

A5 

FB 

6C 

0356 

i 

29 

OF 

69 

30 

CB 

99 

00 

04 

C9 

035E 

: 

CB 

A9 

3A 

99 

00 

04 

CB 

CA 

95 

0366 

: 

EO 

00 

DO 

DB 

AD 

OB 

DC 

69 

F7 

036E 

: 

2F 

99 

00 

04 

4C 

31 

EA 

EA 

BA 

0376 

: 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

75 

037E 

i 

EA 

EA 

EA 

EA 

EA 

EA 

7B 

A9 

30 

0386 

: 

3E 

BD 

14 

03 

A9 

03 

BD 

15 

03 

03BE 

x 

03 

5B 

60 

EA 

EA 

EA 

EA 

EA 

BA 

0396 

x 

EA 

EA 

EA 

E6 

FC 

DO 

F4 

E6 

B5 

039E 

x 

FD 

A5 

FD 

C9 

OB 

00 

00 

00 

A7 


Listing 2. Interruptroutine Uhrzelt 


NAME 

: 

LISTING ; 

5 MC 

033E 

03A3 

033E 

: 

A2 

03 

AO 

IE 

BD 

OB 

DC 

B5 

EB 

0346 

x 

FB 

29 

FO 

18 

6A 

6A 

6A 

6A 

BD 

034E 

s 

69 

30 

EA 

99 

00 

04 

A3 

FB 

6C 

0356 

t 

29 

OF 

69 

30 

CB 

99 

00 

04 

C9 

035E 

: 

CB 

A9 

3A 

99 

00 

04 

ca 

CA 

95 

0366 

x 

EO 

00 

DO 

DB 

AD 

OB 

DC 

69 

F7 

036E 

: 

2F 

99 

00 

04 

AD 

OD 

DC 

C9 

35 

0376 

x 

81 

FO 

03 

EE 

20 

DO 

4C 

31 

2A 

037E 

X 

EA 

EA 

EA 

EA 

EA 

EA 

7B 

A9 

30 

0386 

: 

3E 

BD 

14 

03 

A9 

03 

BD 

15 

03 

03BE 

X 

03 

5B 

60 

EA 

EA 

EA 

EA 

EA 

BA 

0396 

X 

EA 

EA 

EA 

E6 

FC 

DO 

F4 

E6 

BS 

039E 

: 

FD 

A5 

FD 

C9 

OB 

00 

00 

00 

A7 


Listing 3. Interruptroutine Alarmzelt 


NAME 

: 

LISTING 

MC 

033E 

03AD 

033E 

X 

AD 

19 

DO 

A2 

FF 

BE 

19 

DO 

7B 

0346 

s 

29 

BO 

C9 

BO 

FO 

06 

4C 

31 

05 

034E 

X 

EA 

EA 

EA 

EA 

AD 

18 

DO 

C9 

3B 

0356 

: 

15 

FO 

07 

A9 

15 

A2 

96 

1B 

CB 

035E 

: 

90 

04 

A9 

25 

A2 

00 

BD 

ia 

90 

0366 

x 

DO 

BE 

12 

DO 

4C 

Bl 

EA 

EA 

6E 

036E 

: 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

6D 

0376 

X 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

75 

037E 

1 

EA 

EA 

EA 

EA 

EA 

EA 

7B 

A9 

30 

0386 

e 

3E 

A2 

03 

BD 

14 

03 

BE 

15 

46 

03BE 

x 

03 

A9 

F9 

BD 

1A 

DO 

AD 

11 

97 

0396 

X 

DO 

29 

7F 

BD 

1 1 

DO 

A9 

96 

FB 

039E 

X 

BD 

12 

DO 

5B 

60 

EA 

EA 

EA 

52 

03A6 

X 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

00 

CF 


Listing 4. Bildschirmteilung 
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Tabelle 2. Alle Register des Video-Chips auf einen Blick 
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Routine mittels des IRQ-Flags in Register 25 abgefragt, ob 
der VIC den IRQ angefordert hat. 

Basic-Zeilen in ein laufendes Programm einfügen? Wollen 
Sie Funktionen austesten oder ein Basic-Programm ent¬ 
wickeln, welches sich selbst verändert? Mit unserem Basic 
»Listing 5« und der Assemblerroutine aus »Listing 5 MC« kön¬ 
nen Sie ohne Schwierigkeiten alle beliebigen Daten in Ihr 
Basicprogramm aufnehmen, ohne das Programm stoppen zu 

Nachträglich Befehle einfügen 

■> ■ H ~ ~ ~ — • - 

müssen. Für diese Aufgabe stellt das Betriebssystem unse¬ 
res Computers einige sehr effektive Routinen zur Verfügung. 
Unsere Aufgabe besteht nur noch darin, die einzufügenden 
Daten in den Basic-Eingabepuffer (512-600) zu schreiben 
und die Routine aufzurufen. Nach Aufruf des Programms wird 
der Vektor zur Eingabe einer Zeile auf eine Adresse innerhalb 
unseres Programms gesetzt. Daraufhin wird die komplette 
Betriebssystemroutine zur Einfügung von Programmzeilen 
abgearbeitet. Zum Ende dieser Routine würde der Pro¬ 
grammzeiger in.die Eingabe-Warteschleife springen. Durch 
die anfängliche Änderung des entsprechenden Vektors wird 
der Programmzeiger jedoch wieder auf unsere Routine 
umgelenkt. Hier wird nun der Vektor wieder auf den 
ursprünglichen Wert verändert und das Basic-Programm 
erneut gestartet. Wie bereits zu Anfang erwähnt, eignet sich 
dieser kleine Trick hervorragend zur Eingabe von Funktionen. 
Basic optimieren 

Sie haben sich sicher schon oft über die schwache Lei¬ 
stung unseres Basic-Interpreters geärgert. Je komplexer die 
Anforderungen an ein Basic-Programm sind, desto langweili¬ 
ger wird die Geschwindigkeit der betreffenden Programme. 
Viele scheuen jedoch den Schritt in Richtung Maschinen¬ 
sprache und ärgern sich weiterhin mit ihren »Schlafmützen«- 
Programmen. Betrachtet man aber die Arbeitsweise des 
Interpreters ein wenig genauer, so bieten sich einige Mög¬ 
lichkeiten zur Beschleunigung von Basic-Programmen. Ein¬ 
mal abgesehen von den verwendeten Algorithmen und der 
Struktur des Programmes gibt es mehrere Tricks, um den 
Interpreter ein wenig anzutreiben. 

Variable 

Sobald in einem Basic-Programm eine Variable benötigt 
wird, beginnt der Interpreter, vom Variablenstart an aufwärts 
zählend, nach der Variable zu suchen. Je später eine Variable 
definiert wurde, desto länger dauert der Suchvorgang. Ähn¬ 
lich verhält es sich bei Konstanten. Werden Konstante im 
Programm angegeben, so müssen diese bei jedem Durchlauf 
erneut umgewandelt werden. Definiert man Konstante als 
Variable, dann fällt die Umrechnung nur einmal an. 

(1) Konstante, Variable, und Felder in der Reihenfolge ihrer 
Zugriffshäufigkeit vordefinieren. Möglichst ein- oder zwei¬ 
stellige Variablennamen verwenden. 

Unterprogramme 

Unterprogramme müssen vom Interpreter, wie Variablen, 
erst einmal gesucht werden. Da die Suche mit der niedrigsten 
Zeilennummer beginnt, findet er Zeilen am Anfang natürlich 
schneller. 

(2) Unterprogramme sollten am Anfang eines Programmes 
stehen. 

Verzweigungen 

IF-THEN-Abfragen mit mehreren, durch AND-Verknüpfun- 
gen verbundenen, Bedingungen sollten durch Hintereinan¬ 
derlegen von mehreren IF-THEN-Abfragen verschachtelt 
werden. Beispiel: 

a. IF (A kleiner 100 AND B größer 0) THEN 

b. IF A kleiner 100 THEN IF B größer 0 THEN 

Version b bricht sofort nach Nichterfüllung der ersten 

Bedingung ab und ist somit schneller. 


(3) IF-THEN-Abfragen mit mehreren Bedingungen ver¬ 
schachtelt 

Leerzeichen 

REMs und Leerstellen verzögern den Programmlauf, da der 
Interpreter sie ja ignorieren muß. Je mehr Befehle sich in 
einer Programmzeile befinden, desto seltener muß der Com¬ 
puter nach neuen Zeilenanfängen suchen. 

(4) Programme kompakter verfassen. 

Strings 

Die Garbage-Collection-Routine des Betriebssystems be¬ 
seitigt den »String-Müll«. Werden mehrere Strings definiert, 
fällt auch mehr »Müll« an. Das Tragische an dieser Routine ist 
die Geschwindigkeit: verdoppelt sich die Anzahl der Strings, 
vervierfacht (!) sich die Laufzeit. Aus diesem Grund bringt das 
Anlegen von String-Konstanten auch keinen Zeitgewinn. 

(5) So wenig Strings wie möglich benutzen. 

Potenzieren 

Falls in Ihrem Programm eine ganzzahlige Potenzierung 
(x 2 , x 4 -..) vorkommt, ist es ratsam, die Potenzierung durch 
eine Mehrfachmultiplikation zu ersetzen. Da die Potenzie¬ 
rungsroutine des Interpreters auch Potenzierungen mit Brü¬ 
chen berrechnen kann, ist sie 1 '/ 2 mal langsamer als die 
entsprechende Multiplikation. 

(6) Potenzierung durch Multiplikation ersetzen. 

Interrupt 

Das CIA 1 löst alle Veo Sekunden einen IRQ aus, um dar¬ 
aufhin den Programmzeiger in die Interruptroutine springen 
zu lassen. Hier wird die Tastatur abgefragt, die Zeit erhöht und 
noch einige andere Dinge erledigt. Die Bearbeitung und 
Beachtung des Interrupts zweigt natürlich einen Teil der ach 
so kostbaren Rechenzeit ab. Wenn wir den Interrupt verhin¬ 
dern, solange wir die Tastatur nicht benötigen, so kann auch 
mit dieser Technik ein Basic-Programm beschleunigt werden. 
POKC j 6333,31 verhindert den IRQ, POKE 56333,159 gibt 
den IRQ wieder frei. 

(7) Sperren des Interrupts. 

Probieren Sie es aus. Verändern Sie Ihre alten Programme 
in der beschriebenen Weise und vergleichen Sie die 
Geschwindigkeit. Sie werden überrascht sein. 

Zeitsparen einmal anders 


Basic-Programme werden meist erst durch den Einsatz von 
Assemblerroutinen zu Programmen mit vernünftiger Laufge¬ 
schwindigkeit. Der Sprung in diese Routinen wird häufig 
durch einen SYS-Befehl realisiert. Die Parameterübergabe 
wird in diesen Fällen meist durch vorangehende POKE- 
Befehle bewerkstelligt. Sie sollen sich nun nicht mehr länger 
mit dieser umständlichen, uneleganten und vor allem langsa¬ 
men Methode begnügen müssen. In unserem Computer ver¬ 
birgt sich eine Funktion, die von vielen Handbüchern schlicht 
vergessen oder nur im Vorübergehen behandelt wird. Es han¬ 
delt sich hierbei um die »USR-Funktion«. Im Gegensatz zum 
SYS-Befehl beinhaltet die USR-Funktion bereits eine voll¬ 
ständige Parameterübergabe. Sie kann also genauso benutzt 
werden wie alle anderen Funktionen des Basic-Interpreters 
(CHR$(x), ASC(x)...). Der Vorteil dieser Funktion ist die freie 
Definition der eigentlichen Operation durch den Program¬ 
mierer. Aber zunächst einmal die Form der Funktion: 
x1=USR(x2), wobei x2 der Wert ist, mit welchem die Routine 
arbeitet und xl das Ergebnis der Operation darstellt. Die 
Parameter xl und x2 können jede beliebige Form annehmen, 
wie zum Beispiel: Zahl, Variable, Zeichen, String (natürlich 
muß der Parameter zur jeweiligen Operation passen). x2 wird 
beim Aufruf der Routine automatisch in den FAC (Fließkom¬ 
maakkumulator) übernommen. Analog dazu wird der Wert 
des FAC am Ende des Programmlaufs in xl geschoben. Die 
weitere Funktionsweise der USR-Funktion ist ähnlich dem 
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0 REM **** STARTZEILE **** <099> 
1000 INPUT A*sIF A*“”"THEN END <197> 
1010 FÜR AA-0 TO LEN(A*> —1:POKE 313+AA.ASC 

(MID* <A*,AA+1,1)>:NEXTtPOKE 513+AA.0 <071> 
1020 POKE 11,AA:SYS B30 <100> 


Llstlng Sa. Basic-Tell elnfügen 


NAME 

t 

LISTING ! 

5 MC 

033E 

037B 

033E 

t 

A9 

55 

8D 

02 

03 

A9 

03 

BD 

DA 

0346 

: 

03 

03 

A9 

00 

B5 

7A 

A9 

02 

OC 

034E 

t 

B5 

7B 

A9 

30 

4C 

9C 

A4 

A9 

91 

0356 

8 

03 

0D 

02 

03 

A9 

A4 

BD 

03 

7D 

035E 

I 

03 

4C 

71 

OB 

EA 

EA 

EA 

EA 

BO 

0366 

t 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

65 

036E 

: 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

6D 

0376 

i 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

75 


Listing Sb. Maschinen-Teil elnfügen 


NAME 

1 

LISTING 

b MC 

033E 

0353 

033E 

s 

20 

6B 

E2 

20 

E2 

BA 

60 

EA 

2C 

0346 

8 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

45 

034E 

: 

EA 

EA 

FA 

EA 

EA 

9C 

A4 

A9 

3F 

Listing 6. USR-Routine 

NAME 

8 

LISTING 

MC 

033C 

03F3 

033C 

8 

20 

BD 

AD 

A6 

2F. A5 

30 

86 

51 

0344 

8 

5F 

BU 

60 

C5 

32 

DO 

04 

E4 

BA 

034C 

8 

31 

FO 

ID 

AO 

00 

Bl 

5F 

CB 

ED 

0354 

: 

C5 

45 

DO 

06 

A5 

46 

Dl 

5F 

43 

035C 

8 

FO 

17 

CB 

Bl 

5F 

1B 

65 

5F 

4B 

0364 

: 

AA 

CB 

Bl 

5F 

65 

60 

90 

D7 

16 

036C 

: 

A2 

E2 

86 

22 

A9 

03 

4C 

45 

D4 

0374 

8 

A4 

CB 

Bl 

5F 

1B 

65 

5F 

05 

oa m 

037C 

8 

24 

CB 

Bl 

5F 

65 

60 

B5 

25 

16 

0304 

t 

CB 

Bl 

5F 

20 

96 

Bl 

B5 

5F 

CC 

03BC 

1 

B4 

60 

24 

OE 

30 

1F 

20 

A2 

CD 

0394 

: 

BB 

1B 

90 

04 

20 

67 

BB 

18 

50 

039C 

8 

A5 

5F 

69 

05 

B5 

5F 

90 

02 

85 

03A4 

8 

E6 

60 

A4 

60 

C5 

24 

90 

EC 

B9 

03AC 

8 

C4 

25 

90 

EB 

60 

20 

D5 

03 

OB 

03B4 

8 

20 

OC 

BC 

1B 

A5 

5F 

69 

02 

OB 

03BC 

8 

85 

5F 

90 

02 

E6 

60 

C5 

24 

26 

03C4 

: 

90 

06 

A5 

60 

C5 

25 

BO 

E4 

DF 

03CC 

8 

20 

D5 

03 

20 

6F 

BB 

4C 

B4 

F3 

03D4 

: 

03 

AO 

00 

Bl 

5F 

AA 

CB 

Bl 

2F 

03 DC 

8 

5F 

AU 

BA 

4C 

91 

B3 

41 

52 

IC 

03E4 

8 

52 

41 

59 

20 

4E 

4F 

54 

20 

22 

03EC 

8 

46 

4F 

55 

4E 

C4 

OO 

00 

00 

45 

Listing 7. Array-Berechnungen 

NAME 

8 

LISTING B MC 

033E 

035D 

033E 

8 

20 

FD 

AE 

20 

9E 

B7 

BA 

48 

6F 

0346 

8 

20 

FD 

AE 

20 

9E 

B7 

68 

AB 

AF 

034E 

8 

18 

20 

FO 

FF 

20 

FD 

AE 

4C 

FB 

03S6 

8 

A4 

AA 

EA 

EA 

EA 

EA 

EA 

17 

47 


Llstlng 8. Print AT-Slmulation 


SYS-Befehl beziehungsweise dem Aufruf einer normalen 
Basic-Funktion. Nach Aufruf der Funktion wird ein Assem¬ 
blerprogramm angesprungen. Die Adresse dieses Program¬ 
mes muß jedoch nicht bei jedem Aufruf erneut angegeben 
werden, sondern wird im sogenannten USR-Vektor 
(785/786) vordefiniert. Falls Sie die USR-Funktion bereits 
einmal ausprobieren wollten und als Antwort ein »SYNTAX 
ERROR« erhielten, so lassen Sie sich bitte davon nicht irritie¬ 
ren. Der USR-Vektor wird, wie alle anderen Vektoren, wäh¬ 
rend des »Start-Resets« auf eine festgelegte Routine des 
Betriebssystems gelegt. Der Startwert des USR-Vektors 
zeigt dann auf eine Routine, die einen »SYNTAX ERROR« aus¬ 
gibt. Aber nun zu unserer ersten Anwendung. Sie finden in 


Listing 6 eine Routine, die von dem angegebenen Wert den 
Sinuswert errechnet und diesen mit 10 multipliziert (Start an 
Adresse 830). Innerhalb von 100 Durchläufen erreicht 
unsere Routine einen Vorsprung von 18 / eo Millisekunden 
gegenüber einem entsprechenden Basic-Programm. Wie 
Sie an diesem Beispiel erkennen können, ermöglicht es die 
USR-Funktion, sowohl von Basic aus zugängliche Routinen 
wie auch Interpreter-interne Operationen aufzurufen und für 
eigene Zwecke zu nutzen. In Listing 7 haben wir für Sie 
bereits eine etwas anspruchsvollere Routine vobereitet. Die¬ 
ses Programm berechnet aus einem beliebigen Variablenfeld 
(Array) die Summe der einzelnen Argumente. In diesem Fell 
muß bei Aufruf der USR-Funktion der Namen des Feldes 
angegeben werden und der USR-Vektor auf Adresse 828 
gerichtet sein. Wenn Sie dieses Vorhaben von Basic aus rea¬ 
lisieren möchten, müssen Sie schon eine Weile warten. Sie 
werden bereits bemerkt haben, daß Ihnen zur sinnvollen Nut¬ 
zung der USR-Funktion nicht nur der Befehlssatz der 65xx- 
Prozessoren geläufig sein sollte. Der richtige Einsatz der 
ROM-Routinen ist mindestens genauso wichtig. Zu diesem 
Zweck ist die Benutzung eines ROM-Listings unumgänglich. 
Nachfolgend erwartet Sie eine kurze Aufstellung der wichtig¬ 
sten Routinen. Bitte achten Sie bei der Benutzung der 
Arithmetik-Sequenzen auf die Einsprungadressen. Teilweise 
befindet sich zu Beginn der Routinen eine Abfrage auf 
FAC=0. Diese Abfrage sollte beim Aufruf über den USR- 
Vektor übergangen werden (Weitere ausführliche Informatio¬ 
nen über Rechenoperationen und deren Anwendung finden 
Sie in dem Artikel »Rechnen in Maschinensprache«), 


B849 : FAC = FAC+0.5 

B850 : FAC = Konstante-FAC 

B853 : FAC = ARG-FAC 

B867 : FAC = FAC+ARG 

BA'" : FAC = Konstante*FAC 

BA2B : FAC = ARG* FAC 

BA8C : ARG = Konstante 

BAE2 : FAC = FAC* 10 

BBOF : FAC = Konstante/FAC 

BB12 : FAC = ARG/FAC 

BBA2 : FAC = Konstante 

BBFC : FAC = ARG 

BC0C : ARG = FAC 

BF78 : FAC = ARG Kon3lanle 

BF7B : FAC = ARG FAC 


Wie bereits erwähnt, können natürlich alle von Basic aus 
nutzbaren Routinen ebenfalls verwendet werden (SQR, SIN 
...). Abschließend noch eine Anregung. Versuchen Sie ein¬ 
mal, mehrere Basic-Befehle unter der USR-Funktion zusam¬ 
menzufassen. Auch durch diesen Trick kann man Basic 


beschleunigen. 

SYS und mehr 

Gerade haben wir behauptet, die USR-Funktion sei der 
Weisheit letzter Schluß, und jetzt beschäftigen wir uns doch 
wieder mit dem SYS-Befehl. Bitte glauben Sie nicht, wir 
wären inkonsequent. Es soll hier nur noch auf eine weitere 
Technik der Datenübergabe hingewiesen werden, die übri¬ 
gens auch im Umgang mit der USR-Funktion verwendet wer¬ 
den kann. Auf einfachste Weise ist es möglich, nicht nur 
einen Parameter (USR), sondern beliebig viele zu überneh¬ 
men. Hierfür bieten sich gleich drei Routinen an: 

AE83 : holt das nächste Element eines Ausdrucks in FAC 
B79E : holt ein Byte in das X-Register 
0073 : holt nächstes Zeichen in Akku 


Das Betriebssystem hält sogar noch einige Routinen zur 
Prüfung der zu übergebenden Parameter bereit. Aber bitte 
bemühen Sie in diesen Fällen Ihr ROM-Listing. Zum Abschluß 
finden Sie in Listing 8 eine PRINT-AT-Simulation. Der Ein¬ 
sprung erfolgt über SYS 830, spalte, zeile, »text« (siehe auch 
»Rechnen in Maschinensprache«), (Erhart/do) 




SONDERHEFT 7/86 


163 
















TIPS&TRICKS 


C 64 


Tips&Trkks kunterbunt 


Auf den nächsten Seiten finden Sie eine Auswahl 
an hervorragenden Programmen, Unterroutinen 
und Programmiertips für fast jeden Gebrauch. 
Erwähnenswert sind vor allem ein außergewöhn¬ 
liches Turbo-Tape und ein neuartiges Prinzip der 
Dateiverwaltung, das sich auch hervorragend als 
Lernprogramm für angehende Taxi-Fahrer eignet. 

U nsere beliebte Tips&Tricks-Rubrik aus dem 64’er- 
Stammheft hat einen nicht unerheblichen Nachteil: 
Viele nützliche und sehr gute Programme sind einer¬ 
seits zu kurz für einen eigenständigen Artikel, aber anderer¬ 
seits auch zu lang für eine Veröffentlichung unter »Tips & 
Tricks«. Im Laufe der Zeit hat sich da natürlich eine ganze 
Menge an Programmen angesammelt. In diesem Sonderheft 
haben wir nun die Gelegenheit, diesen Stapel auszubauen 
und Ihnen eine geballte Ladung von Tips&Tricks-Listings zu 
präsentieren. 

Übrigens: Wenn Sie noch kein routinierter 64'er-Leser 
sind, sollten Sie vor dem Abtippen unbedingt unsere Einga¬ 
behinweise zum Checksummer und dem MSE auf den Seiten 
119 und 120 lesen. 

Der (fast) perfekte Listschutz 


Bei diesem Programm »Invisible« (Listing 1) handelt es sich 
um eine Hilfe zur Listschutzerstellung. Nach Behandlung 
eines Basic-Programms mit »Invisible« sind davon nur noch 
die Zeilennummern sichtbar. Dies wird durch fünf hinter die 
Zeilennummer eingefügte Doppelpunkte erreicht, von denen 
der erste durch ein Null-Byte ersetzt wird. 

Das ist soweit nichts Besonderes, doch mußte man bei 
ähnlichen Arten des Listschutzes bisher die Doppelpunkte 
von Hand einfügen. »Invisible« nimmt Ihnen diese Arbeit ab. 
Es fügt auf Tastendruck pro Zeile fünf Doppelpunkte ein. 
Zeilen, in die keine fünf Zeichen mehr passen, werden nicht 
verändert. 

Ebenfalls auf Tastendruck werden die »Doppelpunktzeilen« 
unsichtbar gemacht. Hier bleiben Zeilen mit einer falschen 
Zahl an Doppelpunkten unberücksichtigt. 

Will man sein Programm wieder sehen, sei es, um es zu 
ändern oder nur aus Spaß an der Freude, so kann man mit 
»Invisible« sämtliche Zeilen, die wie oben beschrieben 
geschützt wurden, wieder sichtbar machen. Sogar die fünf 
Doppelpunkte werden wieder entfernt. Hier bleiben nun Zei¬ 
len mit weniger als fünf Doppelpunkten unverändert (sie 
waren zuvor ja auch nicht geschützt). 

Beschreibung der einzelnen Programmteile: 

1. Doppelpunkte einfügen: 

Als erstes wird die Startadresse der ersten Zeile in die 
Variable »by« geschrieben. Dann wird deren Zeilennummer in 
»Ib« und »hb« festgestellt. Es folgt dann noch die Adresse der 
nächsten Zeile. Die Werte dieser Variablen müssen in Spei¬ 
cherzellen mit POKE zwischengespeichert werden, da sie 
bei der Änderung der Zeilen während des Einfügens der 
Doppelpunkte gelöscht werden würden. 

Nun wird in der Variablen »bn« die Adresse der nächsten 
Zeile aus »12« und »h2« berechnet. Diese wird zur Bestim¬ 
mung der Zeilenlänge benötigt. Es folgt noch eine Abfrage 
auf eventuell bereits vorhandene Doppelpunkte. 


Steht in der Zeile kein Doppelpunkt, so wird der Bildschirm 
gelöscht und ein »LIST aktuelle Zeile« sowie ein »GOTO....« 
links oben auf den Bildschirm geschrieben. Dies wird für den 
nachfolgenden Direktmodus benötigt. Es wird nun anhand 
der Länge der Zeilennummer und der restlichen Zeile berech¬ 
net, wie viele Zeilen man mit Hilfe des Tastaturpuffers nach 
unten gehen muß, um auf das »GOTO...« zu kommen. 

Nun wird noch die Länge der Zeilennummer festgestellt, da 
sie zum Einfügen der Doppelpunkte übersprungen werden 
muß. Dies geschieht in den Zeilen 63032 und folgende. 

Jetzt wird die zu bearbeitende Zeile gelistet. In Zeile 
63240 wird mit Hilfe von Steuerzeichen alles, was hinter 
einer Zeilennummer steht, um fünf Zeichen nach rechts ver¬ 
schoben, wobei dann die Doppelpunkte eingefügt werden. 

2. Doppelpunkte löschen: 

Dieser Programmteil läuft ziemlich genauso ab wie der Teil 
»Doppelpunkte einfügen«. Lediglich die Abfrage der Doppel¬ 
punkte und deren »Einfügen« ist anders: Es wird nicht abge¬ 
fragt, ob schon ein Doppelpunkt vorhanden ist, sondern ob 
es deren genau fünf sind. Statt dem Einfügen der Doppel¬ 
punkte werden diese mit fünf Leerzeichen überschrieben. 

3. Doppelpunktzeichen unsichtbar machen: 

Das Bestimmen der Zeilendaten geht analog zu den vori¬ 
gen Teilen. Dann werden die ersten sechs Byte aus der 
eigentlichen Basic-Zeile gelesen und auf Doppelpunkte 
überprüft. Sind die ersten fünf Byte Doppelpunkte, so wird in 
das 3 dieser fünf Byte eine Null gePOKEt. Dadurch listet 
der Computer nur noch die Zeilennummern. 

4. Zeilen wieder sichtbar machen: 

Im Unterschied zur vorherigen Routine wird hier geprüft, ob 
das erste Byte (in »a« gespeichert) eine Null und die rest¬ 
lichen vier Byte Doppelpunkte (Code 58) sind. Es stehen 
also wieder fünf Doppelpunkte hinter der Zeilennummmer 
und das Programm läßt sich wieder vollständig LISTen. 

5. Löschroutine: 

Hier wird die vorgegebene Zeilennummer (63000) in die 
linke obere Ecke des Bildschirms geschrieben und mittels 
des bereits oben beschriebenen »programmierten Direkt¬ 
modus« in der ersten Zeile des Bildschirms (in der die Zeilen¬ 
zahl steht), ein »carriage return« ausgeführt. Dadurch wird die 
Zeile gelöscht. 

So arbeitet man mit »INVISIBLE« 

1. Laden des zu bearbeitenden Programms. 

2. Eingeben: POKE 43, PEEK(45)-2:POKE44,PEEK(46) 

In seltenen Fällen kann es passieren, daß der C64 einen 

»illegal quantity error« meldet (Ihr Programm hat dann eine 
ungünstige Endadresse). Dies läßt sich beheben, indem Sie 
noch irgendwo eine Zeile einfügen (zum Beispiel ein REM), 
und die POKEs noch einmal eingeben. 

3. Laden von »Invisible« (Listing 1) 

4. Eingeben: POKE 43,1 : POKE 44,8 

5. Starten von »Invisible« mit »RUN 63000«. 

(Volker Imre/tr) 

Besondere GOSUBs 


Da das C 64-Basic nicht über Label verfügt, habe ich ein Pro¬ 
gramm geschrieben, mit dem in Unterprogramme mit beliebi¬ 
gem Namen gesprungen werden kann. Im Programmlisting 
erscheint an Stelle des GOSUB-Befehls nur der Name des 
entsprechenden Unterprogramms. Dadurch wird die Lesbar- 
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keit des Programms wesentlich verbessert und die Unterpro¬ 
gramme können frei verschoben werden, ohne Einsprung¬ 
adressen verändern zu müssen. Mit einer geeigneten 
MERGE-Routine kann man nun aus einer Unterprogramm¬ 
sammlung bequem Programme zusammenstellen. Die 
Benutzung sieht wie folgt aus: Auf ein vorangestelltes Ausru¬ 
fezeichen folgt der Name des aufzurufenden Unterpro¬ 
gramms gefolgt von einem abschließenden Doppelpunkt. 
Alle Zeichen zwischen dem Ausrufezeichen und dem Dop¬ 
pelpunkt werden als Name interpretiert. Falls Basic- 
Befehlsworte im Namen Vorkommen, muß der Name in Anfüh¬ 
rungszeichen gesetzt werden. 

Damit das Unterprogramm gefunden werden kann, steht 
am Anfang des Unterprogramms eine REM-Zeile, gefolgt vom 
Namen des Unterprogramms. Dabei ist zu beachten, daß bei 
Basic-Befehlsworten die Anführungszeichen auch in der 
REM-Zeile stehen müssen. Listing 2 zeigt die eigentliche 
Befehlserweiterung; Listing 3 ein kleines Anwendungsbei¬ 
spiel. (Norbert Reuber/tr) 


63037 

63038 

63039 

63040 

63041 

63042 

63043 


63044 

63045 

63046 

63047 

63048 


63049 


63000 

63001 

63002 

63003 

63004 

63005 

63006 

63007 

63008 

63009 

63010 

63011 

63012 

63013 

63014 

63015 

63016 

63017 

63018 

63019 

63020 

63021 

63022 

63023 

63024 

63025 

63026 

63027 

63028 

63029 

63030 

63031 

63032 

63033 

63034 

63035 

63036 


REM MENUE <193> 

PRINT CHR*(147)CHR*(5)CHR*(14):POKE 
53281,0«POKE 53280,0 <153> 

PRINT"<4DQWN >“TAB(2) "— 1 —<2SPACE> 

==> DOPPELPUNKTE EINFUEBEN.“ <052> 

PRINT" CD0WN>“TAB(2> *'— 2 —<2SPACE>= 

=> DOPPELPUNKTE ENTFERNEN." <173> 

PRINT"<DOWN>"TAB<2>"— 3 —C2SPACE>= 

=■> ZEILEN UNSICHTBAR MACHEN" <250> 

PRINT" <DOWN>"TAB <2> "— 4 ~<2SPACE>= 

=> ZEILEN SICHTBAR MACHEN." <038> 

PRINT"tDOWN >“TAB(2)“— Q — C2SPACE>= 

=> ENDE !" <140> 

A*="“:GET A*:IF A*="“THEN 63007 <161> 

IF A*="Q"THEN GOTO 63115 <1B4> 


Z=VAL(A*):IF Z<1 OR Z>4 THEN RUN 630 


01 

IF 

IF 

IF 


Z=3 THEN UN=1:GOSUB 63055 
Z=4 THEN UN=0:GOSUB 63055 
Z=1 THEN GOSUB 63016 
IF Z=2 THEN GOSUB 63074 
UN=2:GOTO 63001 
REM DOPPELPUNKTE EINFUEGEN 
BY=2049:REM 8TARTADRESSE 1. ZEILE 
LB=PEEK(2051):HB=PEEK(2052)s REM ZEIL 
ENNUMMER 1. ZEILE 

L2=PEEK(2049):H2=PEEK(2050)s REM ADRE 
SSE NAECHSTE ZEILE 

POKE 49160,INT(BY/256):POKE 49159,BY 

—INT(BY/256)*256 

POKE 49153,LB:POKE 49154,HB 

POKE 49155,L28POKE 49156,H2 

ZE=LB+256*HB:REM ZEILENNUMMER AUS LO 

W- UND HIGHBYTE 

IF ZE>62999 THEN 63051s REM TEST OB S 
CHUTZPROGRAMM ERREICHT 
BN=L2+256*H2:REM ADRESSE NAECHSTE ZE 
ILE 

IF BN—BY>60 THEN PRINT"(CLR,8D0WN>ZE 
ILE"ZE;"IST ZU LANG“ 

IF BN—BY>60 THEN PRINT"TASTE !":POKE 
198,0:WAIT 198,lsP0KE 198,0:BY=BNaG 
OTO 63045 

IF PEEK(BY+4)=58 THEN PRINT"<CLR,8D0 
WN>TN"5 ZE;"IST BEREITS EIN DDPPELPUN 
KT ! “ 

IF PEEK(BY+4)=58 THEN PRINT"TASTE !" 
sPOKE 198,0: WAIT 198,1:P0KE 198,0 
IF PEEK(BY+4)=58 THEN BY=BN:GOTO 630 
45 

PRINT"<CLR >LIST";LB+256*HB sPRINT"tHO 
ME,5D0WN}GÜ63032:":PRINT"GA63032":PR 
INT"Gfl63032" 

GOSUB 63111:STOP:REM CURSOR DOWN BES 
TIMMEN 

IF ZE>9999 THEN X=6:G0T0 63038 
IF ZE>999 THEN X=5:B0T0 63038 
IF ZE>99 THEN X=4:GOTO 63038 
IF ZE>9 THEN X=3:G0T0 63038 
IF ZE<=9 THEN X=2:G0T0 63038 


<079> 

< 156> 

< 1B5> 
<089> 

< 13B> 

< 141 > 
<104> 
<160> 

<225> 

<059> 

<059> 

<237> 

< 177> 

<096> 

<082> 

< 001 > 

<207> 


<096> 


< 200 > 


<245> 


<167> 


< 137> 

< 169> 
<095> 
<079> 
<205> 
<018> 
<093> 


63050 

63051 

63052 

63053 

63054 

63055 

63056 

63057 

63058 

63059 

63060 

63061 

63062 

63063 
ÜZT'A 

63065 


63066 

63067 

63068 

63069 

63070 

63071 

63072 

63073 

63074 

63075 

63076 

63077 

63078 

63079 

63080 

63081 

63082 
630B3 

63084 

63085 

63086 

Listing 


REM T FESTSTELLEN WIEVIEL NACH RECHT 

S WEGEN ZEILENNUMMER T 

PRINT"(HOME,2D0WN >"j 

FOR 1=1 TO X:PRINT"<RIGHT>";:NEXT 

PRINT”<5INST>:::::":REM EINFUEGEN DO 

PPELPUNKTE 

PRINT"{4D0WN1GQT0 63044:<5UP>" 

POKE 631,145:POKE 632,145:POKE 633,1 
45:POKE 634,145sPOKE 635,13 
POKE 636,17:POKE 637,17:POKE 638,17: 
POKE 639,17:POKE 640,13:POKE 198,10: 
STOP 

BY-PEEK(49155)+256*PEEK(49156 > +5: REM 
ADRESSE ALTE ZEILE AUS LB UND HB 
POKE 49159,BY-INT(BY/256)*256:POKE 4 
9160,INT(BY/256) 

L2=PEEK(BY):H2=PEEK(BY+1):REM ADRESS 
E NEUE ZEILE LOW UND HIGHBYTE 
POKE 49155,L2:POKE 49156,H2 
LB=PEEK(BY+2):HB=PEEK(BY+3):REM ZEIL 
ENNUMMER NEUE ZEILE LOW- UND HIGHBYT 
E 

ZE=LB+256«HB:REM ZEILENNUMMER NEUE Z 
EILE 

IF ZE<63000 THEN GOTO 63024:REM SCHU 
TZPROGRAMM ERREICHT ? 

PRINT"<CLR,10DOWN>£NDZEILE ERREICHT 

FOR 1=1 TO 1000:NEXT:GOTO 63001 

REM ZEILEN UNSICHTBAR MACHEN 

REM ZEILEN SICHTBAR MACHEN 

PRINT"(2D0WN,2RIGHTJ£INEN flDMENT !": 

BY=2049 

LB=PEEK(2049):HB=PEEK(2050) 

ZE=PEEK(2051> +256*PEEK(2052) 

IF ZE>62999 THEN RETURN 
A=PEEK(BY+4) 

B=PEEK(BY+5) 

C=PEEK(BY+6) 

D=PEEK(BY+7) 

E=PEEK(BY+B) 

F=PEEK(BY+9):REM T ERSTE 6 BYTE AUS 
DER EIGENTLICHEN ZEILE LESEN t 
IF UN=1 THEN IF A=58 AND B=5B AND C= 
58 AND D»58 AND E=58 AND F<>58 THEN 
POKE BY+4,0 

IF UN=0 THEN IF A=0 AND B=5B AND C=5 
8 AND D=58 AND E=58 THEN POKE BY+4,5 
B 

REM T TEST AUF 5 DOPPELPUNKTE BZW AU 

F 1. BYTE = 0 T 

BY=LB+256«HB:REM NEUE ADRESSE 

ZE=PEEK(BY+2)+256*PEEK(BY+3):REM NEU 

E ZEILENNUMMER 

IF ZE>62999 THEN RETURN 

LB=PEEK(BY >:HB=PEEK(BY+1):REM LOW- U 

ND HIGHBYTE ADRESSE NAECHSTE ZEILE 

GOTO 63059 

REM DOPPELPUNKTE ENTFERNEN’ 

PRI NT" -C2D0WN >£I NENflOMENT BITTE ! ": BY 
=2049:REM ADRESSE ERSTE ZEILE 
LB=PEEK(2051)s HB=PEEK(2052):REM LB U 
ND HB DER NUMMER DER NAECHSTEN ZEILE 
L2=PEEK(2049):H2=PEEK(2050)aREM LB U 
ND HB DER ADRESSE DER NAECHSTEN ZEIL 
E 

POKE 49160,INT(BY/256):POKE 49159,BY 

-INT(BY/256)«256 

POKE 49153,LBaPOKE 49154,HB 

POKE 49155,L2:P0KE 49156,H2 

ZE=LB+256«HB:REM BERECHNEN DER ZEILE 

NNUMMER 

IF ZE>62999 THEN 63108:REM TEST OB I 
M SCHUTZPROGRAMM 

BN=L2+256*H2:REM ADRESSE DER NAECHST 
EN ZEILE FUER LAENGENBESTIMMUNG 
FOR 1=4 TO 8:IF PEEK(BY+I><>5B THEN 
PRINT"<CLR,8D0WN>1JV"ZE"SIND KEINE 5 
DOPPEL"; 

IF PEEK (BY+I >058 THEN PR INT "PUNKTE" 

:PRINT"IASTE" 

IF PEEK (BY+I >058 THEN POKE 198,0: WA 
IT 198,1:POKE 198,0 

IF PEEK(BY+I)058 THEN BY=BN:GOTO 63 
102 


<021 > 
< 133> 
<087> 


<092> 
< 125> 

<031 > 


<246> 

<083> 

< 012 > 

< 020 > 

<203> 


<052> 
<241 > 

< 114> 

< 000 > 

< 132> 

< 116> 

< 1B4> 

< 117> 

< 126> 
< 161 > 
<035> 
<253> 
<004> 
< 011 > 
<018> 
<025> 

<206> 


<073> 


<250> 

< 001 > 

<230> 

< 152> 
<047> 

<221 > 
<070> 
<229> 

< 16B> 

< 167> 


<0B1> 

< 117> 
<039> 
<235> 

<041 > 

< 162> 
<027> 


<060> 

<050> 

<04B> 

<250> 
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63087 NEXT I <176> 

63088 PRINT"<CLR>LIST“;LB+256*HB <216> 

63089 PRINT"(HOME,5D0WN 5G.SA3090:"iPRINT"Gfl 
63090"s PRINT"GA63090": GOBUB 63111s ST 

OP <223> 

63090 IF ZE>9999 THEN X“ 6 :GOTO 63095 <153> 

63091 IF ZE>999 THEN X=5sG0T0 63095 <137> 

63092 IF ZE>99 THEN X=4:G0T0 63095 <007> 

63093 IF ZE>9 THEN X=3!G0T0 63095 <076> 

63094 IF ZE<=9 THEN X=2sG0T0 63095:REM t B 
ESTIMMEN DER ZAHL CURSOR RECHTS WEGE 

N ZN <046> 

63095 PRINT"{HOME,2D0WN >"5 <I90> 

63096 FOR 1=1 TO X:PRINT"{RIGHT)" 5 :NEXT <144> 

63097 PRINT"{5SPACEJ":REM DOPPELPUNKTE ENT 

FERNEN <055> 

63098 PRINT"{4DOWNJGOTO 63101:<5UP>" <241> 

63099 POKE 631,145:POKE 632,145:P0KE 633,1 

45:POKE 634,145:P0KE 635,13 <0BB> 

63100 POKE 636,17:POKE 637,l7:POKE 638,17: 

POKE 639,17:POKE 640,13:POKE 198,10: 

STOP <047> 

63101 BY=PEEK(49155)+256*PEEK(49156)-5:REM 

ADRESSE NEUE ZEILE <1B4> 

63102 POKE 49159,BY-INT(BY/256)*256:POKE 4 

9160,INT(BY/256) <069> 

63103 L2=PEEK(BY):H2=PEEK(BY+1):REM ADRESS 

E NAECHSTE ZEILE <185> 

63104 POKE 49155,L2:POKE 49156,H2 <004> 

63105 LB=PEEK(BY+2):HB=PEEK(BY+3):REM NUMM 

ER AKTUELLE ZEILE <024> 

63106 ZE=LB+256*HB:REM NUMMER BERECHNEN <070> 

63107 IF ZE<63000 THEN GOTO 63082 <203> 

63108 PRINT"{CLR,10DOWN>£NDZ£ILE ERREICHT 

!" <057> 

63109 FOR 1=1 TO 1000:NEXT <029> 

63110 GOTO 63001 <039> 

63111 POKE 631,19:POKE 632,13:P0KE 633,17 <128> 

63112 POKE 634,13:POKE 198,4:ST0P <136> 

63113 REM t CURSOR MITTELS TASTATURPUFFER 

AUF GOTO SETZEN t ' <136> 

63114 REM LOESCHROUTINE <15B> 

63115 ZE=63000 <112> 

63116 POKE 49165,INT(ZE/256):POKE 49166,ZE 

— INT(ZE/256)*256 <211> 

63117 PRINT"{HOME >"ZE:PRINT"(DOWNIG0T06311 

9:“ <127> 

63118 POKE 631,19:P0KE 632,13:P0KE 633,17: 

POKE 634,13:POKE 19B,4:BT0P <014> 

63119 ZE=PEEK(49166)+256»PEEK(49165):ZE-ZE 

+1«IF ZE<63117 THEN 63116 <173> 

63120 PRINT"{CLR,2D0WN>"ZE:PRINT ZE+1:PRIN 
T ZE+2:PRINT ZE+3:PRINT ZE+4:PRINT"{ 

HOME >"5 <1B5> 

63121 POKE 631,13:POKE 632,13:P0KE 633,13: 

POKE 634,13:POKE 635,13:P0KE 198,5 <094> 


Llsting 1. »Invlsibte«, der (fast) perfekte Listschutz (Schluß) 


NAME 

, 

•BOBUB 



COOO 

COCA 


COOO 

8 

A9 

CO 

BD 

09 

03 

A9 

OF 

BD 

63 


cooa 

: 

OB 

03 

4C 

AE 

A7 

EA 

EA 

EA 

CE 


C010 

i 

20 

73 

00 

C9 

21 

FO 

07 

20 

19 


CO10 

i 

79 

00 

4C 

E7 

A7 

EA 

E6 

7A 

04 


C020 

s 

DO 

02 

E6 

7B 

EA 

A5 

7A 

B5 

EB 


C02B 

i 

22 

AS 

7B 

B5 

23 

A5 

2B 

85 

C3 


C030 

i 

7A 

A5 

2C 

B5 

7B 

20 

73 

00 

BF 


C03B 

: 

C9 

BF 

FO 

OF 

A5 

2E 

C5 

7B 

CI 


C040 

8 

DO 

F3 

A5 

2D 

C5 

7A 

DO 

ED 

68 


C04B 

8 

4C 

A2 

CO 

AO 

00 

20 

73 

00 

F8 


C050 

8 

Dl 

22 

DO 

El 

CB 

CO 

2B 

FO 

BB 


C05B 

8 

EF 

A9 

3A 

Dl 

22 

DO 

EE 

20 

89 


C060 

8 

09 

A9 

1B 

9B 

65 

7A 

B5 

7A 

BC 


C068 

8 

90 

02 

E6 

7B 

AO 

04 

Bl 

7A 

OB 


C070 

8 

B5 

15 

BB 

Bl 

7A 

B5 

14 

A5 

48 


C07B 

8 

22 

B5 

7A 

A5 

23 

85 

7B 

A9 

50 


COBO 

8 

03 

20 

PB 

A3 

A9 

A7 

4B 

A9 

53 


COBB 

8 

AE 

48 

A5 

7B 

4B 

A5 

7A 

4B 

5F 


C090 

8 

A5 

3A 

48 

A5 

39 

4B 

A9 

BD 

Bl 


C098 

8 

40 

20 

79 

00 

20 

A3 

AB 

4C 

A9 


COAO 

8 

AE 

A7 

A2 

1A 

BD 

AF 

CO 

20 

AA 

Listing 2. 

COAB 

8 

16 

E7 

CA 

DO 

F7 

4C 

AE 

A7 

6A 

COBO 

8 

OD 

45 

4C 

42 

41 

4C 

49 

41 

D9 

Programmieren 

COBB 

COCO 

8 

8 

56 

4E 

41 

49 

20 

54 

54 

55 

4F 

4F 

4E 

52 

20 

42 

45 

55 

B4 

AE 

Sie strukturiert 

COCB 

1 

53 

OD 

CA 

10 

E5 

4B 

A2 

05 

BC 

mit »IGOSUB« 


10 REM BEISPIELPROGRAMM <H3> 
20 : <252> 
30 : <006> 
40 'EINGABE: <0BB> 
50 : <026> 
60 !BERECHNUNG: <200> 
70 : <046 > 
B0 'AUSGABE: <194> 
90 : <066> 
95 : <071> 
100 END <102> 
110 I <086> 
120 1 <096> 
130 REM EINGABE <132> 
140 PRINT"{CLR,3D0WN,3RIGHT>"j <185> 
150 INPUT "DURCHMESSER";D <1B2> 
160 RETURN <21B> 
170 : <146> 
1B0 REM BERECHNUNG <179> 
190 A=(i*Dt2)/4 <140> 
200 RETURN <002> 
210 : <1B6> 
220 REM AUSGABE <032> 
225 REM BASIC-BEFEHL MIT ANFUEHRUNGSZEICHE 

N !!! <0B7> 
230 !“PRINTA": <114> 
240 RETURN <042> 
250 : - <226> 
260 REM "PRINTA" <123> 
270 PRINT"{CLR,3D0WN,3RIBHT>KREI8FLAECHE A 

=“JAj“MMT2" <135> 
280 RETURN <084> 


Llsting 3. Anwendungsbeispiel für Llsting 2 


Windows leichtgemadit 


Da in do.i meisten Programmen Menüs benötigt werden, und 
ich das entsprechende Unterprogramm bis jetzt jedesmal 
neu und in Basic verfaßte (was schlechte Benutzerfreund¬ 
lichkeit und langsame Ausführungsgeschwindigkeit nach 
sich zog), entschloß ich mich, ein universelles Menü- 
Programm als Basic-Erweiterung in Assembler zu schreiben. 
Listing 4 zeigt das Ergebnis: 

Merkmale: 

- beliebig auf dem Bildschirm plazierbares Fenster mit Über¬ 
schrift. 

- frei definierbare Abbruchtaste (zum Beispiel für Undo- 
Funktion). 

- Auswahl des Menüpunktes mit den Cursortasten und 
»RETURN* oder (wahlweise) wird jedem Menüpunkt (soweit 
möglich) ein Buchstabe zugeordnet, durch den er direkt auf¬ 
gerufen werden kann. 

- wahlweise wird der Bildschirm nach Verlassen des Menüs 
wieder hergestellt (oder später mit dem Basic-Befehl 
»KILLM«). Listing 5 zeigt ein Anwendungsbeispiel in Form 
einer simulierten Textverarbeitung. 

Handhabung: 

Laden Sie das Programm »XMENU« absolut von Diskette 
(anschließend »NEW« eingeben) und starten es mit »SYS 
50175«. Ab jetzt stehen Ihnen zusätzlich folgende zwei 
Befehle zur Verfügung. 

- MENU <x>, <y>, <l>, <p>, <t>, <m>, <s>, 
<ar>, <rv> 

- KILLM 

Mit »MENU« wird das Menü dargestellt und ausgeführt. 
Hier die Bedeutung der Parameter: 

<x> X-Koordinate. Bereich von 0 bis 35 
<y> Y-Koordinate. Bereich von 1 bis 20 
<l> Breite der Menüpunkte. Bereich von 1 bis (36-x) 
<p> Anzahl der Menüpunkte. Bereich von 1 bis 11- 
int(y/2+.5) 

<t> ASCII-Code der Abbruchtaste (möglichst nicht 65 
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bis 90, da sonst die Tastaturwahl beeinträchtigt 
wird). 

<m> Auswahlmodus. Bereich von 0 bis 255. 

0: keine Tastaturauswahl; 
ungleich 0: Tastaturauswahl erlaubt. 

<s> Temporärmodus. Bereich von 0 bis 255 

0: Hintergrund wird nach Verlassen des Menüs 
nicht (sofort wieder hergestellt); 
ungleich 0: Hintergrund wird sofort wieder herge¬ 
stellt. 

<ar> Eindimensionales Stringarray. Der Index ist der der 
Menü-Überschrift und zugleich die Basis für die 
Menüpunkte. Sollte das Array weniger als 
<p>+lndex Elemente haben, so gibt es ein 
»Gewurschtel« auf dem Bildschirm. 

<rv> Numerische Variable. Enthält nach dem Aufruf die 
Nummer des Menüpunktes oder Null bei einem 
Abbruch. Achtung! Sollte die Variable vor dem Auf¬ 
ruf »MENU« nicht definiert sein, so gibt es ein Wirr¬ 
warr auf dem Bildschirm, da die Arraytabellen ver¬ 
schoben wurden. Der Befehl »KILLM« (ohne Para¬ 
meter) holt den vor dem Aufruf von »MENU« gespei¬ 
cherten Bildschirm in den aktuellen Bildschirm (das 
gleiche passiert, wenn der Temporärmodus einge¬ 
schaltet ist). 

Technische Details 

Das Programm befindet sich nach dem (absoluten) Laden 
im Speicher von $C000 bis $C4E4. Nach dem Aufruf mit 
SYS 50175 wird der Basic-Befehls-Vektor ($0308/$0309) 
auf $C3FF verbogen. In der Zeropage wird, während das 
Menü dargestellt wird, der Bereich von $A3 bis $AF benützt. 
Außerdem werden der Bildschirm und zwei Arrays im Bereich 
von $D000 bis $D423 zwischengespeichert. 

Der Assembler-Programmierer kann den Programmteil von 
$C3FF bis $C4E5 ignorieren. Die Parameter müssen nur in 
die Tabelle von $C3F6 bis $C3FE eingetragen und das 
Programm ab $C000 angesprungen werden. Der Befehl 
»KILLM« kann durch SEC, JSR $C39D ersetzt werden. 

Um XMENU in einen anderen Bereich zu verschieben, sind 
folgende Schritte nötig: 


1. Der Bereich von $C000 bis $C4E4 muß nach der neuen 
Anfangsadresse verschoben werden (im folgenden Basis 
genannt). 

2. Alle 3-Byte-Befehle, die sich auf den Bereich von 
$C000 bis $C4E4 beziehen, müssen an den Bereich von 
der Basis bis Basis +$4E4 angeglichen werden. 

(V-Befehl bei SMON). 

3. Disassemblieren Sie den Bereich <Basis+$3FF> bis 
< Basis+$402 >. Ersetzen Sie nun den Parameter des LDA- 
Befehls durch das Low-Byte und den Parameter des LDY- 
Befehls durch das High-Byte von <Basis+$40A>. 

4. Disassemblieren Sie den Bereich <Basis+$40D> bis 
<Basis+$410>. Ersetzen Sie (wie in 3.) die entsprechen¬ 
den Parameter der LDA-/LDY-Befehle durch das Low- bezie¬ 
hungsweise High-Byte von <Basis+$4DA>. 

5. Disassemblieren Sie den Bereich <Basis+$41D> bis 
<Basis+$420>. Ersetzen Sie nun (wie in 3. und 4.) die 
Parameter der LDA-/LDY-Befehle durch das Low-/High-Byte 
von < Basis+$4DF>. 

Die Initialisierungsadresse entspricht der Basis+$3FF. 

Die einzelnen Routinen 


Bezeichnung 

Abstand zur Basis 

Beschreibung 

MENU 

$0000=0 

Maschinenroutine zum Darstellen 
des Menüs 

KILLM 

$039D=925 

Danach: Angewählter Menüpunkt im 
Akku. Carry gelöscht: Hintergrund 
wird gespeichert. Carry gesetzt: Hin¬ 
tergrund wird wieder hervorgeholt. 

X 

$03F6=1Ö15 

X-Koordinate 

Y 

$03F7=1016 

Y-Koordinate 

L 

$03F8=1017 

Breite 

P 

$03F9=1018 

Anzahl M.-Punkte 

T 

$03FA=1019 

Abbruchtaste 

M 

$03FB=1020 

Auswahlmodus 

s . 

$03FC=1021 

Temporärmodus 

AR/L 

$03FD=1022 

Low-Byte des Zeigers auf Array- 
Tabelle (T.Format: Länge. Low-/High- 
Byte Adr. String). 

AR/H 

$03FE=1023 

High-Byte des Zeigers auf Array- 
Tabelle 


Um sich mit den Fähigkeiten des Programms vertraut zu 
machen, sollten Sie unbedingt das Demo-Programm durch¬ 
studieren. (Daniel Buchheit/tr) 


NAME 

1 

XMENU 




COOO 

C4E5 

CI 20 

s 

FO 

03 

4C 

Bl 

CI 

4C 

4D 

C2 

14 

C250 

8 

A2 

00 

98 

20 

D5 

C2 

88 

DO 

54 






















3F 

C25B 


F9 




FO 
















blZÖ 

1 

nt 
















cooo 

1 

10 

20 

9D 

C3 

20 

1A 

CI 

A9 

35 

CI 30 

s 

1B 

20 

OA 

ES 

A9 

00 

20 

72 

9B 

C260 

8 

FF 

CA 

DO 

FA 

60 

AO 

00 

Bl 

C6 

COOB 

1 

01 

B5 

A5 

A9 

00 

85 

AB 

20 

85 

CI 38 

s 

C2 

A3 

A7 

AA 

E8 

EB 

A9 

A4 

D2 

C268 

8 

A5 

20 

D2 

FF 

CB 

C4 

A7 

DO 

CS 

C010 

E 

D9 

CO 

A5 

C6 

DO 

OE 

20 

FE 

87 

CI 40 

1 

20 

SA 

C2 

20 

BO 

C3 

A9 

BO 

70 

C270 

8 

F6 

60 

BS 

A3 

18 

OA 

65 

A3 

1B 

CO IG 

I 

CO 

A3 

C6 

DO 

07 

20 

CA 

CO 

95 

CI 48 

1 

20 

D2 

FF 

A9 

A5 

20 

D2 

FF 

AD 

C27B 

8 

6D 

FD 

C3 

85 

A3 

A9 

00 

6D 

EB 

C020 

3 

A5 

C6 

FO 

03 

20 

37 

CO 

A5 

CF 

CI 50 

: 

20 

65 

C2 

A9 

A7 

20 

D2 

FF 

CF 

C2B0 

3 

FE 

C3 

85 

A4 

AO 

00 

Bl 

A3 

6E 

C02B 

1 

AB 

FO 

E7 

AD 

FC 

C3 

FO 

04 

B5 

CI 58 

3 

38 

AD 

FB 

C3 

E5 

A7 

AA 

A9 

B7 

C2B8 

8 

CD 

F8 

C3 

90 

03 

AD 

FB 

C3 

DD 

C030 

1 

3B 

20 

9D 

C3 

AS 

A5 

60 

A9 

B4 

CI 60 

1 

60 

20 

5A 

C2 

A9 

6E 

20 

6A 

23 

C290 

E 

85 

A7 

CB 

Bl 

A3 

B5 

A5 

CB 

EO 

C03B 

B 

00 

B5 

A7 

AD 

77 

02 

C9 

CO 

CB 

CI 68 

E 

C3 

20 

BO 

C3 

A9 

7D 

20 

02 

80 

C298 

8 

Bl 

A3 

BS 

A6 

60 

OB 

20 

C7 

A7 

C040 

1 

90 

07 

29 

7F 

CD 

FA 

C3 

DO 

71 

C170 

1 

FF 

A9 

A3 

A6 

A7 

EB 

EB 

20 

A7 

C2A0 

S 

C2 

A9 

00 

FO 

06 

OB 

20 

C7 

06 

C048 

1 

OB 

A2 

00 

86 

A3 

A2 

01 

86 

F3 

CI 78 

E 

5A 

C2 

38 

AD 

FB 

C3 

E5 

A7 

8C 

C2AB 

8 

C2 

A9 

1A 

B5 

A3 

A9 

DO 

B5 

4C 

C050 

: 

OB 

C9 

41 

90 

2E 

C9 

80 

BO 

D7 

C180 

3 

AA 

A9 

20 

20 

3A 

C2 

A9 

SD 

2B 

C2B0 

3 

A4 

28 

20 

74 

C3 

A3 

AB 

A4 

34 

C05B 

i 

2A 

C9 

SB 

90 

04 

C9 

61 

90 

B5 

CI 88 

I 

20 

6A 

C3 

18 

AD 

F9 

C3 

OA 

9F 

C2B8 

8 

A9 

BO 

02 

Bl 

A3 

91 

A3 

B5 

DO 

C060 

s 

22 

AD 

FB 

C3 

FO 

ID 

AD 

77 

6E 

CI 90 

: 

6D 

F7 

C3 

69 

02 

AA 

AC 

F6 

2D 

C2C0 

8 

AB 

20 

7A 

C3 

4C 

CE 

C2 

B5 

El 

C06B 

i 

02 

20 

31 

C3 

AA 

18 

20 

9D 

6E 

CI 98 

s 

C3 

18 

20 

OA 

ES 

A9 

AD 

20 

53 

C2C8 

8 

AB 

B6 

A9 

B4 

AA 

60 

A4 

AA 

44 

C070 

i 

C2 

FO 

10 

B5 

A3 

A3 

A6 

10 

Al 

CIAO 

s 

D2 

FF 

A9 

60 

AE 

FB 

C3 

EB 

7C 

C2D0 

8 

A6 

A9 

IV, 

AB 

60 

20 

C7 

C2 

75 

C07B 

i 

03 

20 

FE 

CO 

A9 

01 

85 

AB 

73 

C1AB 

3 

EB 

20 

5A 

C2 

A9 

7D 

4C 

6A 

IC 

C2D8 

8 

1B 

A5 

AB 

OA 

6D 

F7 

C3 

AA 

29 

COBO 

i 

20 

D9 

CO 

AD 

77 

02 

C9 

OD 

3B 

CI BO 

S 

C3 

20 

3F 

C3 

A9 

00 

85 

AD 

DB 

C2E0 

8 

AC 

F6 

C3 

1B 

20 

OA 

ES 

20 

25 

COBB 

i 

DO 

04 

A2 

01 

B6 

AB 

C9 

91 

33 

CI BB 

3 

A9 

01 

BS 

AB 

83 

AC 

A5 

AC 

66 

C2E8 

8 

2B 

C3 

AS 

AB 

20 

72 

C2 

38 

84 

C090 

i 

DO 

04 

A2 

FF 

86 

A7 

C9 

11 

FA 

C1C0 

3 

20 

72 

C2 

A5 

A7 

DO 

03 

4C 

24 

C2F0 

8 

AD 

FB 

CS 

ES 

A7 

85 

A3 

20 

3C 

C09B 

i 

DO 

04 

A2 

01 

86 

A7 

A3 

A7 

BF 

C1C8 

1 

FD 

CI 

A4 

AB 

20 

66 

C3 

20 

C9 

C2F8 

8 

65 

C2 

A9 

2E 

A6 

A3 

20 

3A 

AB 

COAO 

i 

FO 

11 

1B 

A5 

A5 

65 

A7 

85 

03 

CI DO 

3 

51 

C3 

BO 

15 

1B 

AA 

20 

9D 

64 

C300 

8 

C2 

20 

35 

C3 

20 

80 

C3 

20 

ED 

COAB 

* 

A5 

A5 

A6 

10 

03 

20 

FE 

CO 

7A 

CI DB 

E 

C2 

DO 

OE 

3B 

A5 

AC 

20 

9D 

OB 

C308 

8 

2B 

C3 

A6 

A9 

FO 

OB 

CA 

A9 

D9 

COBO 

i 

20 

D9 

CO 

A3 

AB 

FO 

OE 

A3 

67 

C1E0 

3 

C2 

A6 

AB 

20 

D5 

C2 

4C 

F3 

71 

C310 

E 

20 

20 

SA 

C2 

A9 

BD 

20 

D2 

B6 

COBB 

E 

A6 

30 

03 

20 

FE 

CO 

A3 

A5 

13 

C1EB 

3 

CI 

3B 

A6 

AD 

E6 

AD 

A5 

AC 

FO 

C31B 

S 

FF 

38 

AD 

FB 

C3 

ES 

A9 

AA 

25 

COCO 

1 

DO 

03 

20 

FE 

CO 

A9 

00 

B5 

5E 

C1F0 

3 

20 

A3 

C2 

A5 

AC 

E6 

AC 

CD 

9B 

C320 

8 

A9 

20 

20 

5A 

C2 

20 

35 

C3 

B6 

COCB 

1 

C6 

60 

AO 

73 

A2 

00 

A5 

C6 

A3 

C1FB 

1 

F9 

C3 

90 

C2 

2C 

38 

60 

A5 

Al 

C32B 

8 

4C 

CE 

C2 

A9 

7D 

20 

D2 

FF 

E5 

CODO 

: 

DO 

06 

CA 

DO 

F9 

Bö 

DO 

F4 

81 

C200 

3 

AD 

FO 

FB 

A9 

01 

B5 

AC 

A9 

9C 

C330 

: 

A9 

20 

4C 

D2 

FF 

A9 

20 

20 

65 

CODB 

s 

60 

A9 

00 

B5 

A6 

A5 

AS 

DO 

BD 

C20B 

B 

01 

85 

AB 

1B 

A6 

AC 

CA 

20 

F5 

C33B 

8 

D2 

FF 

A9 

5D 

4C 

6A 

C3 

20 

87 

COEO 

i 

03 

AD 

F9 

C3 

B5 

A5 

CD 

F9 

63 

C210 

1 

A5 

C2 

B5 

AE 

20 

72 

C2 

A5 

39 

C340 

8 

74 

C3 

A9 

00 

A2 

1A 

CA 

9D 

62 

COEB 

s 

C3 

90 

06 

FO 

04 

A9 

01 

85 

30 

C21B 

S 

AB 

C5 

A7 

FO 

20 

E6 

AB 

A4 

DF 

C34B 

8 

00 

DO 

EO 

00 

DO 

F8 

4C 

7A 

E3 

COFO 

s 

A3 

ID 

OA 

6D 

F7 

C3 

AA 

AC 

73 

C220 

s 

AB 

20 

66 

C3 

20 

51 

C3 

BO 

EA 

C350 

8 

C3 

29 

7F 

C9 

7B 

BO 

OD 

C9 

C6 

COEB 

s 

F6 

C3 

1B 

4C 

OA 

E5 

A4 

D3 

69 

C22B 

3 

EE 

B5 

AF 

18 

AA 

20 

9D 

C2 

6F 

C35B 

8 

41 

90 

09 

29 

1F 

E9 

01 

C9 

22 

ClOO 

E 

CB 

CB 

A2 

00 

A5 

A6 

49 

80 

BB 

C230 

8 

DO 

E5 

38 

A5 

AE 

A6 

AF 

20 

D5 












C10B 

C110 

B 

1 

85 

91 

A6 

Dl 

Bl 

CB 

1)1 

ES 

29 

EC 

7F 

FB 

05 

C3 

A6 

DO 

77 

20 

C23B 

C240 

8 

3 

9D 

AE 

C2 

20 

A6 

D5 

AB 

C2 

2C 

A5 

A2 

AC 

00 

E6 

A3 

AC 

78 

81 

Listlng 4. Die Befehlserweiterung 


CI 1B 

1 

Fl 

60 

20 

28 

CI 

AD 

FB 

C3 

47 

C24B 

8 

C3 

AD 

90 

BB 

60 

AC 

F9 

C3 

SA 

»XMENU« 










1ß7 
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C360 

1 

1A 

BO 

01 

24 

38 

60 

B8 

Bl 

A3 

C36B 

2 

AS 

60 

A4 

D3 

91 

Dl 

AD 

86 

4C 

C370 

2 

02 

91 

F3 

60 

78 

A9 

30 

85 

E4 

C37B 

1 

01 

60 

A9 

37 

85 

01 

58 

60 

7D 

C3B0 

2 

A9 

28 

AE 

F6 

C3 

A4 

D3 

B6 

85 

C38B 

1 

D3 

CO 

28 

90 

02 

A9 

30 

18 

B6 

C390 

1 

63 

Dl 

85 

Dl 

A5 

D2 

69 

00 

10 

C39B 

2 

85 

D2 

E6 

D6 

60 

20 

74 

C3 

7B 

C3A0 

1 

A2 

00 

BO 

28 

DD 

00 

04 

9D 

9B 

C3AB 

2 

24 

DO 

BD 

00 

05 

9D 

24 

Dl 

15 

C3B0 

2 

BD 

00 

06 

9D 

24 

D2 

80 

00 

72 

C3BB 

1 

07 

9D 

24 

D3 

EB 

DO 

ES 

A3 

09 

C3C0 

2 

03 

A4 

D6 

BD 

OC 

D4 

BC 

OD 

00 

C3CB 

| 

D4 

4C 

7A 

C3 

BD 

24 

DO 

9D 

55 

C3D0 

1 

00 

04 

BD 

24 

Dl 

9D 

00 

05 

DA 

C3DB 

2 

BD 

24 

D2 

9D 

00 

06 

BD 

24 

7F 

C3E0 

2 

D3 

9D 

00 

07 

E8 

DO 

ES 

AC 

69 


C3E8 

| 

oc 

D4 

AE 

OD 

D4 

20 

7A 

C3 

6B 

C3F0 

s 

18 

4C 

OA 

ES 

4A 

4A 

00 

01 

67 

C3F8 

2 

24 

OA 

85 

01 

00 

66 

9F 

A9 

AB 

C400 

1 

OA 

AO 

C4 

BD 

OB 

03 

BC 

09 

1A 

C40B 

2 

03 

60 

20 

73 

00 

A9 

DA 

AO 

AC 

C410 

1 

C4 

85 

A3 

B4 

A4 

20 

37 

C4 

C2 

C418 

| 

DO 

03 

4C 

55 

C4 

A9 

DF 

AO 

B2 

C420 

2 

C4 

85 

A3 

84 

A4 

20 

37 

C4 

D2 

C428 

1 

DO 

07 

38 

20 

9D 

C3 

4C 

AE 

14 

C430 

2 

A7 

20 

79 

00 

4C 

E7 

A7 

AO 

2A 

C43B 

I 

00 

Bl 

A3 

FO 

09 

Dl 

7A 

DO 

C2 

C440 

2 

04 

CB 

4C 

39 

C4 

60 

ia 

98 

C3 

C44B 

2 

65 

7A 

85 

7A 

A9 

00 

65 

7B 

C2 

C450 

3 

83 

7B 

A9 

00 

60 

AO 

00 

20 

49 

C45B 

2 

CF 

C4 

BA 

99 

F6 

C3 

ca 

CO 

91 

C460 

2 

07 

DO 

F4 

20 

BB 

BO 

AO 

04 

D9 

C46B 

2 

Bl 

5F 

C9 

01 

DO 

59 

A5 

47 

58 


C470 

1 

A4 

4B 

BD 

FD 

C3 

BC 

FE 

C3 

7F 

C47B 

2 

20 

FD 

AE 

AD 

F6 

C3 

C9 

24 

F5 

C4B0 

2 

BO 

48 

AD 

F7 

C3 

FO 

43 

C9 

23 

C4B8 

1 

15 

BO 

3F 

38 

A9 

24 

ED 

F8 

32 

C490 

2 

C3 

30 

37 

CD 

F6 

C3 

90 

32 

27 

C498 

1 

AD 

FB 

C3 

FO 

2D 

111 

AD 

F9 

OE 

C4A0 

t 

C3 

FO 

27 

OA 

BD 

AB 

C4 

38 

AO 

C4A8 

I 

A9 

16 

E9 

00 

CD 

F7 

C3 

90 

A3 

C4B0 

1 

19 

20 

SB 

BO 

85 

49 

84 

4A 

1B 

C4BB 

2 

20 

00 

CO 

A8 

20 

A2 

B3 

A5 

4F 

C4C0 

2 

OE 

20 

C2 

A9 

4C 

AE 

A7 

A2 

E2 

C4CB 

2 

OB 

2C 

A2 

OE 

4C 

37 

A4 

84 

6E 

C4D0 

2 

A3 

20 

9E 

B7 

20 

FD 

AE 

A4 

18 

C4D8 

2 

A3 

60 

4D 

43 

4E 

33 

00 

4B 

CD 

C4E0 

2 

49 

4C 

4C 

4D 

00 

CE 

20 

7B 

F4 


Listing 4. (Schluß) 


0 SYS 57812 M XMENU",8,1:POKE 7B0,0:SYB 6549 



DES flENU-"; 

< 022 > 

3:REM XMENU LADEN 

< 112 > 

1006 

PRINT" UNTERPROGRAMMS IN DER .PRAXIS Z 


5 SYS 50175:AM=0:ME=0:PT=1 

<224> 


U ZEIGEN. 

< 107> 

10 BGSUB 1100:GOSUB 1000:REM INIT 

<061 > 

1007 

PRINT"<3SPACE>IN DAS ÜAUPTMENU GELANG 


11 : 

<243> 


EN SIE MIT 

<237> 

15 MTS«"MAIN":GOSUB 1200 

<01B> 

1008 

PRINT" CT-K-L-n. IN DAS NÄCHSTE flENU KO 


20 MENU 9,5,17,6,141,1,0,MS(0),AM 

< 156> 


MMEN SIE 

< 011 > 

21 : 

<253> 

1009 

PRINT“ MIT fiETURN ODER DURCH DRUCKEN 


22 IF AM <6 THEN:KILLM 

< 188> 


EINES UN-“; 

<09B> 

23 IF AM=0 THEN GOSUB 1220:GOSUB 1022:GOTO 


1010 

PRINT" TERLEGTEN SUCHSTABENS. UM IN D 


15 

<029> 


AS VOR- 

<074> 

24 IF AM=1 THEN MD*=M*(AM):GOSUB 1250:GOTO 


1011 

PRINT" HERGEHENDE flENU ZU KOMMEN MUSS 


20 

< 220 > 


EN SIE 

<034> 

25 IF AM =6 THEN GOSUB 1220:POKE 214,23:SYS 


1012 

PRINT" SHIFT-SETURN DRUCKEN. SIE flENU 


58732:END 

< 1 B 2 > 


-ÜIERAR— 

<225> 

26 ON AM—1 GOTO 40,80,100,140 

< 164> 

1013 

PRINT" CHIE, DIE ANZEIGT IN WELCHER fl 


30 : 

<006 > 


ENU-SBENE"; 

<073> 

36 : 

< 012 > 

1014 

PRINT" SIE SICH BEFINDEN, SEHEN SIE I 


40 GOSUB 1280 

<029> 


N DER 

<009> 

41 MTS= "PRINT":GOSUB 1200 

< 1B9> 

1015 

PRINT” DRITTEN SILDSCHIRMZEILE.<DOWN> 

<054 > 

43 MENU 9,5,17,5,1411,1,1,Ft* < 0) , AM 

<053> 

1016 

PRINT"t3SPACE>HACHDEM SIE EINE £UNKTI 


44 : 

< 020 > 


ON ANGEWAHLT 

< 022 > 

48 IF AM=0 THEN GOSUB 1220:GOSUB 1265:GOTO 


1017 

PRINT" HABEN, ERSCHEINT DIE flELDUNG " 


20 

<043> 

mnos* 

;HR*(34> "EJJNKTION 

<03B> 

51 IF AM=1 THEN 60 

<074 > 

1018 

PRINT“ NICHT IMPLEMENTIERT"CHRS(34)" 


54 MDS=PS(AM):GOSUB 1265:GOSUB 1250:KILLM: 



UND DIE flUFFORDER-"; 

< 176> 

GOTO 43 

< 142> 

1019 

PRINT" UNG EINE IASTE ZU DRUCKEN. HEN 


55 : 

<031 > 


N SIE 

< 115> 

60 MT*="PTYPE“:GOSUB 1200 

< 130> 

1020 

PRINT“ JETZT DIREKT IN DEN JEXTMODUS 


65 MENU 9,5,17,5,141,1,1, PTS(0),AM 

<091 > 


WOLLEN, 

< 20 B> 

70 IF AM=0 THEN GOSUB 1220:GOTO 43 

< 200 > 

1021 

PRINT" MUSSEN SIE DRUCKEN." 

<016> 

73 PT“AM:GOSUB 1265:GOSUB 1280:GOTO 65 

< 202 > 

1022 

1 

<236> 

74 : 

<050> 

1023 

REM AUF CTRL—M WARTEN 

< 168> 

80 MTS="EDIT":GOSUB 1200 

< 106> 

1024 

: 

<240> 

83 MENU 9,5,17,5,141,1,1 , ES(0) , AM 

<215> 

1025 

POKE 211,24:POKE 214,23:SYS 58732 

< 193> 

86 : 

<062> 

1027 

POKE 204,0 

< 166> 

89 IF AM=0 THEN GOSUB 1220:GOTO 20 

<215> 

1030 

WAIT 198,1 : POKE 198,0:IF PEEK(631)<>1 


92 MDS=E*(AM) : GOSUB 1250:GOTO 83 

<065> 


3 THEN 1030 

<059> 

93 : 

<069> 

1035 

WAIT 207,1,1:POKE 204,1 

<041 > 

100 MTS="DISK " :GOSUB 1200 

<243> 

1040 

REM FERTIG 

<03B> 

105 MENU 9,5,17,6,141,1,1,DS(0),AM 

< 141 > 

1045 

RETURN 

<087> 

108 : 

<0B4> 

1046 

: 

<006> 

110 IF AM=0 THEN GOSUB 1220:GOTO 20 

<236> 

1 100 

REM TEXTE 

<074> 

112 IF AM=2 THEN 120 

< 134> 

1101 

1 

<061 > 

114 MD*=D*(AM):GOSUB 1250:GOTO 105 

< 14B> 

1105 

DIM MS( 6 ),PS(5>,ES(7),DS( 6 ),TS(5),DCS 


115 : 

<091 > 


(4),PTS(5> 

< 14B> 

120 MTS=“DCMDS":GOSUB 1200 

<207> 

1110 

MS(0)="flAIN flENU" 

< 153> 

123 MENU 9,5,17,4,141,1,1,DCS(0),AM 

<094> 

1111 

M*(1)="HEW SDCUMENT" 

<017> 

126 : 

< 102 > 

1112 

MS(2)="£RINT" 

< 109> 

130 IF AM=0 THEN GOSUB 1220:GOTO 105 

<233> 

1113 

MS(3)="£DIT flJNCTIONS" 

<067> 

135 MDS=DC*(AM):GOSUB 1250:GOTO 123 

<239> 

1114 

MS(4)="flISK HANDLING" 

<060> 

136 : 

< 112 > 

1115 

MS(5 > ="JEX T .PARAMETERS" 

<019> 

140 MTS="TEXT":GOSUB 1200 

<077> 

1116 

MS( 6 )="SUIT SEMOURITE" 

<227> 

145 MENU 9,5,17,5,141,1,1,TS(0),AM 

< 157> 

1117 

: 

<077> 

146 : 

< 122 > 

1120 

P*(0)="£RINT flENU" 

<07B> 

150 IF AM=0 THEN GOSUB 1220:GOTO 20 

< 020 > 

1121 

P*(1)="IYPE OF .PRINTER“ 

<227> 

155 MDS=TS(AM):GOSUB 1250:GOTO 145 

<065> 

1122 

PS (2) »"SET äJJSTIFICATION" 

<072> 

999 : 

<213> 

1123 

P*(3)="£R0M/I0 £AGE" 

<026> 

1000 REM BILDSCHIRM 

< 115> 

1124 

PS(4)="SEFINE £APER" 

<043> 

1001 : 

<215> 

1125 

PS(5)“".PRINT JEXT" 

< 1B9> 

1002 PRINT CHRS(14)"<CLR,CYAN,RVSON >BEMOUR 


1126 

1 

< 0 B 6 > 

ITE HAME;DEMO.TEX(2BPACE1ST 1 2L 16 S 


1130 

E*(0)="£DIT flENU" 

<234> 

P 5 

< 179> 

1131 

ES(1)="£IND" 

< 194> 

1003 PRINT"<RVSON>flIERARCHIE:«29SPACE,RVOF 


1132 

ES(2)“"SELETE" 

< 119> 

F>“ 

< 190> 

1133 

ES(3)“"ÄEPLACE” 

<020> 

1004 PRINT"T3SPACEJfilES IST EINE IEXTVERAR 





BEITUNGS—flT— 

<254 > 

Listing 5. Eine simulierte Textverarbeitung 


1005 PRINT" TRAPPE UM IHNEN DIE ANWENDUNG 


als Anwendungsbeispiel für »XMENU« 
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1134 E*(4)="£0PY" <152> 

1135 E*(5>="flDVE” <188> 

1136 . <096> 

1140 D*(0)="aiSK flENU" <193> 

1141 D* <1)»"filRECTORY“ <096> 

1142 D*<2>“"fiDMMANDS OF fllSK" <045> 

1143 D*(3 > ="U1PORT YIZA-IEXT" <040> 

1144 D* < 4)="IMPORT S£S-2EXT” <076> 

1145 D*<5>="£XP0RT S£fi-IEXT" <145> 

1146 D*< 6 >="äAVE IEXT" <034> 

1147 i <107> 

1150 T*C0)=“JEXT flENU" <212> 

1151 T* (1)“"IEXT MIDTH" <005> 

1152 T*(2)="BENAME IEXT" <130> 

1153 T*(3)=“ßHARACTER SET“ <140> 

1154 T*(4)="£CREEN £DLOR" <087> 

1155 T*(5)="äTORAGE 3EVICE" <U3> 

1156 i <116> 

1160 DC*< 0 >="aCOMMAND flENU" <162> 

1161 DC* (1) ="BENAME B.ILE" <036> 

1162 DC*(2)="aELETE EILE“ <079> 

1163 DC*(3)="£DRMAT aiBK” <0B7> 

1164 DC*(4) = "yALIDATE aiBK" <001> 

1165 » <125> 

1170 PT*<0>="£RINTER flENU" <0B0> 

1171 PT*(l)=“iTOH 8510" <034> 

1172 PT * (2 > = "EPSON Bfl/Efl" <200> 

1173 PT*<3)="Ä£ 1526" <024> 

1174 PT * (4) = "3ROTHER fl£-5£” <024> 

1175 PT*(5)»"STAR SELTA 10" <139> 

1176 I <136> 

1177 RETURN <219> 

117B : <138> 

1200 REM HIERARCHIE ERWEITERN <102> 

1201 i <161> 

1205 PRINT"{HOME,2D0WN,RVSON >"TAB(12+7*ME) 

>"jMT* <17B> 

1210 ME=ME+liRETURN <122> 

1211 . <171> 

1220 REM HIERARCHIE ZURUCKSETZEN <034> 

1221 s < 181 > 

1225 PRINT"{HOME,2D0WN,RVSON}"TAB <5+7*ME)“ 

{7SPACE}“ <10B> 

1230 ME=ME-1>RETURN <014> 

1231 l <191> 

1250 REM MELDUNG AUSBEBEN <037> 

1251 : <211> 

1255 PRINT"{HOME,DOWN>”CHR*(34> 5 MD*;CHR*(3 

4)" NICHT IMPL. - IABTE!“J <13B> 

1260 POKE 198,0:WAIT 198,1:P0KE 19B,0:IF P 

EEK(631> =95 THEN RUN <095> 

1265 PRINT"{HOME,DOWN,40BPACE }"5 <232> 

1270 RETURN <056> 

1271 s <231> 

1275 REM AKTUELLEN DRUCKER AUSGEBEN <206> 

1276 . <236> 

12B0 PRINT"{HOME,DOWN>£JJRRENT SELECTED PRI 

NTERs "5 PT*(PT) <127> 

1285 RETURN <073> 


Listlng 5. Beispiel zu »XMENU« (Schluß) 


Das besondere Turbo Tape 


»Extratape« ist ein Schnellladeprogramm für den C 64 und 
Datasette. Es erlaubt jedem, ohne aufwendiges Herumspu¬ 
len, seine Programme jederzeit mit 8- bis 9facher Geschwin¬ 
digkeit zu laden. 

Das Besondere an »Extratape« ist, daß man zum Laden des 
Programms das Extratape-Programm nicht mehr benötigt! 
Die schnelle Laderoutine ist nämlich als kurzer Vorspann 
direkt vor dem gespeicherten Programm vorhanden. Man 
kann ein so behandeltes Programm also ganz normal mit 
»LOAD« laden. 

Nachdem man das Maschinenprogramm (Listing 6) mit 
dem MSE eingegeben und auf Kassette oder Diskette 
gespeichert hat, muß man es wie ein Basic-Programm laden 
und mit »RUN« starten. Nach dem Start wird vom Programm 
der Save-Vektor ($0332/0333) auf eine eigene Save- 


Routine bei $CDE0 verbogen. Diese Routine simuliert ein 
neues Gerät mit der Gräteadresse 7, nämlich die Fasttape- 
Datasette. Speichert man nun ein Programm mit der Geräte¬ 
adresse 7, zum Beispiel »SAVE "TEST",7«, so erscheint die 
Aufforderung, < Record > und <Play> zu drücken, und das 
Programm wird mit ungefähr 9facher Normalgeschwindigkeit 
auf Band geschrieben. 

Man sollte übrigens bei Benutzung von »Extratape« keine 
Superbillig-Kassetten (Kaufhaus-Sonderangebot Wühltisch 
für 98 Pfennige) verwenden, da sonst häufig Ladefehler auf- 
treten können. Diese werden durch einen »I/O ERROR« am 
Ende des Ladevorgangs angezeigt. Ladefehler können auch 
durch das Ein-/Ausschalten großer Elektrogeräte in der Nähe 
des Computers (zum Beispiel Staubsauger, Elektroheizung 
im gleichen Raum und so weiter) auf das Band gebracht wer¬ 
den. Deshalb empfiehlt es sich, bei wichtigen Programmen 
nach dem Speichern eine Kontrolle (durch Laden in den 
Computer) durchzuführen. 

Die gespeicherten Programme laufen zwar trotz angezeig¬ 
tem Fehler meist einwandfrei, aber es ist dennoch unschön, 
einen Fehler auf der Kassette zu haben. Wem diese Fehler zu 
häufig auftreten, obwohl die Programme immer laufen, der 
kann die Fehlerabfrage mit »POKE 52951,208« und »POKE 
52952,16« (vor dem Speichern eines Programms) abschal¬ 
ten. Eventuell auftretende Fehler werden nun nicht mehr 
angezeigt. 

Der Grund für diese relativ hohe Fehleranfälligkeit ist, daß 
in einer Sekunde ungefähr 3830 Impulse (Bit) auf das Band 
geschrieben werden. Und das wären dann 425 Byte in einer 
Sekunde! (Es werden neun Bit für ein ganzes Byte benötigt, 
da immer ein Bit zur Synchronisation dient.) Mit dieser 
Geschwindigkeit übertrifft man sogar die Floppy (zirka 300 
Byte in der Sekunde). 

Ec illt auch auf, daß nach dem SAVEn eines Programmes 
die Schriftfarbe immer auf Schwarz steht. Dieser Effekt 
kommt dadurch zustande, daß die spätere Laderoutine beim 
Speichern an den Namen des Programmes angehängt wird, 
und so das Ladeprogramm als wirrer Zeichensalat hinter dem 
»SAVING« kurz auf dem Bildschirm erscheint. 

Mit einigen POKEs ist es auch möglich, ein Maschinenpro¬ 
gramm absolut (also an seiner Originaladresse) zu speichern: 
Man muß nur die Zeiger auf Programmstart und -ende in den 
Speicherstellen 43/44 (Start) und 45/46 (Ende) auf Start 
und Ende des Maschinenprogramms einstellen. Man muß 
allerdings aufpassen, daß »Extratape« ($CDE0 bis $CFE0) 
nicht überschrieben wird (Das gäbe beim nächsten SAVE- 
Befehl einen richtig schönen Systemabsturz...). Auch bei 
normalen Programmen sollte man darauf achten, daß dieser 
Bereich nicht gelöscht wird. Extratape läuft übrigens ein¬ 
wandfrei mit vielen Floppy-Speedern zusammen. 

(P. Plamper/tr) 


NAME 

1 

EXTRATAPE 


0801 

0A41 


OBOl 

: 

15 

08 

OA 

00 

9E 

32 

30 

38 

4A 


0009 

: 

30 

20 

45 

58 

54 

52 

41 

54 

2B 


0811 

: 

41 

50 

45 

OO 

00 

00 

FF 

50 

6C 


0819 

> 

50 

20 

31 

39 

38 

35 

20 

A2 

EO 


0821 

: 

00 

BD 

40 

08 

9D 

EO 

CD 

BD 

A4 


0829 

2 

40 

09 

9D 

EO 

CE 

EB 

DO 

Fl 

CD 


0B31 

1 

A9 

EO 

A2 

CD 

BD 

32 

03 

BE 

40 


0839 

« 

33 

03 

4C 

74 

A4 

EA 

EA 

A5 

28 


0841 

1 

BA 

C9 

07 

FO 

03 

4C 

ED 

F5 

F6 


0849 

2 

A2 

10 

A9 

20 

9D 

41 

CE 

CA 

16 


0851 

: 

10 

F8 

A5 

B7 

FO 

oc 

29 

OF 

70 


0859 

t 

AB 

88 

Bl 

BB 

99 

41 

CE 

88 

19 


0861 

i 

10 

F0 

A9 

70 

A2 

03 

BD 

02 

E2 


0869 

t 

03 

BE 

03 

03 

A9 

00 

A2 

01 

FC 

Listlng 6. 
»Extratape«, 

0871 

2 

AO 

01 

20 

BA 

FF 

A9 

BF 

A2 

83 

0879 

t 

41 

AO 

CE 

20 

BD 

FF 

A9 

00 

44 

0881 

2 

A2 

03 

B5 

FB 

86 

FC 

A9 

FB 

74 

ein Turbo-Tape- 

0889 

0891 

2 

A2 

44 

05 

ES 

AO 

20 

03 

00 

20 

CF 

DB 

A9 

FF 

B3 

20 

A2 

3F 

6E 

Programm mit 

0899 

2 

A4 

BD 

02 

03 

BE 

03 

03 

60 

B3 

Raffinessen. 


fr£¥in» 
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C 64 


08A1 

I 

00 

00 

00 

00 

00 

00 

00 

00 

A2 

0931 

1 

SB 

68 

CS 

AA 

FO 

12 

A6 

D6 

6C 

09C1 

1 

EA 

AO 

00 

Bl 

AC 

45 

AA 

B5 

DC 

0BA9 

t 

00 

00 

00 

00 

00 

00 

00 

00 

AA 

0939 

s 

CA 

86 

D6 

20 

6C 

ES 

AO 

00 

78 

09C9 

I 

AA 

Bl 

AC 

20 

C4 

CF 

20 

DB 

7E 

OBB1 

8 

00 

A9 

00 

B5 

AB 

A9 

10 

2C 

D7 

0941 

3 

20 

2B 

Fl 

A9 

OD 

20 

D2 

FF 

C5 

09D1 

8 

FC 

20 

Dl 

FC 

90 

EB 

EA 

EA 

DB 

08B9 

1 

OD 

DC 

FO 

FB 

AD 

OD 

DD 

A2 

FO 

0949 

| 

20 

AA 

F5 

B6 

2D 

84 

2E 

4C 

55 

09D9 

8 

EA 

A5 

AA 

20 

C4 

CF 

EA 

EA 

91 

OBCI 

I 

11 

BE 

OE 

DD 

EE 

20 

DO 

4A 

20 

0951 

3 

83 

A4 

00 

44 

41 

54 

45 

20 

BB 

09E1 

8 

EA 

A9 

00 

BD 

OE 

DD 

A9 

1B 

FE 

0BC9 

> 

26 

AB 

90 

E9 

A5 

AB 

60 

7B 

50 

0959 

1 

31 

33 

2C 

34 

2C 

38 

36 

20 

53 

09E9 

8 

BD 

11 

DO 

A9 

37 

85 

01 

A9 

5F 

0BD1 

s 

A9 

7F 

BD 

OD 

DD 

A9 

00 

BD 

B5 

0961 

1 

3B 

FB 

7B 

A9 

7F 

BD 

OD 

DD 

BD 

09F1 

8 

01 

B5 

CO 

58 

60 

EA 

EA 

A5 

44 

0BD9 

s 

11 

DO 

B5 

AA 

BD 

04 

DD 

A2 

BF 

0969 

a 

A9 

80 

A2 

02 

BD 

04 

DD 

BE 

C9 

09F9 

X 

01 

09 

08 

BS 

01 

A2 

05 

CA 

00 

OBE 1 

a 

01 

8E 

05 

DD 

A2 

06 

B6 

01 

9D 

0971 

s 

05 

DD 

A9 

00 

BD 

11 

DO 

85 

7F 

0A01 

8 

DO 

FD 

29 

F7 

BS 

01 

60 

AD 

56 

0BE9 

i 

A9 

03 

A2 

A4 

BD 

02 

03 

BE 

A3 

0979 

i 

AA 

AA 

AB 

A9 

06 

B5 

01 

CA 

FE 

0A09 

8 

OD 

DD 

29 

01 

FO 

F9 

A9 

00 

F5 

08F1 

s 

03 

03 

EA 

20 

56 

03 

DO 

FB 

ED 

09B1 

: 

DO 

FD 

BB 

DO 

FA 

A9 

19 

BD 

OB 

0A11 

8 

26 

AB 

90 

02 

A9 

01 

BD 

05 

54 

OBF9 

i 

20 

52 

03 

FO 

FB 

C9 

2C 

DO 

B2 

0989 

a 

OE 

DD 

A2 

03 

B5 

2B 

95 

AC 

F3 

0A19 

8 

DD 

A9 

19 

BD 

OE 

DD 

4C 

9B 

F5 

090 J 

« 

F2 

AO 

03 

20 

52 

03 

99 

AC 

05 

0991 

l 

CA 

10 

F9 

AO 

00 

A9 

00 

20 

B3 

0A21 

1 

CF 

EA 

EA 

4B 

A9 

BO 

B5 

AB 

35 

0909 

a 

00 

SB 

10 

F7 

AO 

00 

20 

52 

BO 

0999 

3 

C4 

CF 

BB 

DO 

FB 

A9 

00 

20 

9E 

0A29 

8 

20 

AB 

CF 

68 

85 

AB 

A9 

OB 

OB 

091 1 

t 

03 

91 

AC 

45 

AA 

B5 

AA 

20 

72 

09A1 

t 

C4 

CF 

BB 

DO 

F8 

A9 

00 

20 

A6 

0A31 

8 

BD 

FF 

CF 

20 

AB 

CF 

CE 

20 

3A 

0919 

s 

OB 

FC 

20 

Dl 

FC 

90 

ED 

20 

01 

09A9 

: 

C4 

CF 

BB 

DO 

rr; 

A9 

2C 

20 

5F 

0A39 

8 

DO 

CE 

FF 

CF 

DO 

F5 

60 

00 

AB 

0921 

s 

52 

03 

4B 

A9 

37 

03 

01 

A9 

33 

09B1 

i 

C4 

CF 

EA 

AO 

03 

B9 

AC 

00 

DC 












0929 

t 

1B 

8D 

11 

DO 

A9 

01 

B5 

CO 

A3 

09B9 

a 

20 

C4 

CF 

BB 

10 

F7 

EA 

EA 

B2 

Listing 6. (Schluß) 







Spitzengrafiken auf MPS-802 


Mit dem Programm »Support-802« wird es auch den MPS- 
802-Benutzern ermöglicht, die wirklich erstklassige Basic- 
Erweiterung »MPS-Support« zu benutzen (Auflösung: 640 x 
400 Punkte!). Die Druckroutine hat dieselben Funktionen 
wie die in der 64’er, Ausgabe 2/86, veröffentlichte. Die ein¬ 
zelnen Befehle und ihre Bedeutung entnehmen Sie deshalb 
bitte dem 64’er-Heft. 

Beim Abtippen gehen Sie wie folgt vor: 

1. Falls Sie es noch nicht getan haben, tippen Sie das Pro¬ 
gramm »MPS-Support« aus der 64’er, Ausgabe 2/86, mit 
Hilfe des MSE ab und speichern es auf Diskette. 

2. Jetzt tippen Sie Listing 7 mit dem MSE ab und speichern 
es unter dem Namen »dump 802« auf Diskette. 

3. Laden Sie jetzt bitte »dump 802« absolut (also ,8,1) und 
geben Sie »NEW« ein. 

4. Nun laden Sie MPS-Support aus Ausgabe 2/86. 

5. Wenn Sie »SYS 49152« eingeben, wird die neue DUMP- 
Routine ins MPS-Support integriert und das ganze Programm 
unter dem Namen »support 802« auf Diskette gespeichert. 
Es ist jetzt ein Block länger geworden, aber Sie können es 
wie gewohnt laden und starten. 

In Bild 1 sehen Sie eine Netzgrafik, die mit »support 802« 
ausgedruckt wurde. 

Die Programmservice-Diskette enthält natürlich das fertige 
Programm »support 802«. (Oliver Koch/tr) 



Bild 1. Diese Netzgrafik (verkleinert) wurde auf einem 
MPS-802 ausgegeben. 


Nachfolgend eine kurze Befehlsübersicht. Die genaue 
Bedeutung finden Sie in der Ausgabö 2/86 ab Seite 59. 
GRAPHIC / TEXT / WINDOW A,B / UPDATE / ZOOM 
INCREASE A,B / RESTART / CLEAR / COLOUR A,B,C / 
DOT A,B / CDOT A,B / LINE A,B,C,D / CLINE A,B,C,D / 
TEST A,B / PATTERN A / CHAR A,B,C / DUMP 
POLY A,B,C,D,E,F,G,H 
CPOLY A,B,C,D,E,F,G,H 
FPOLY A,B,C,D,E,F,G,H 
EPOLY A,B,C,D,E,F,G,H 


NAME 

t 

DUMP B02 



C000 

C2AC 

C000 

8 

A9 

17 

85 

5F 

A9 

CI 

85 

60 

02 

C00O 

8 

A9 

1F 

BS 

5A 

A9 

C2 

85 

5B 

6B 

C010 

8 

A9 

DB 

B5 

5B 

A9 

12 

B5 

59 

B6 

C01B 

3 

20 

BF 

A3 

A9 

1F 

85 

5F 

A9 

25 

C020 

8 

C2 

B5 

60 

A9 

AC 

B5 

5A 

A9 

A6 

C028 

8 

C2 

B5 

5B 

A9 

00 

85 

50 

A9 

9A 

C030 

8 

1B 

85 

59 

20 

BF 

A3 

A9 

97 

54 

C03B 

s 

B5 

5F 

A9 

C0 

85 

60 

A9 

16 

ID 

C040 

8 

B5 

5A 

A9 

CI 

85 

5B 

A9 

73 

56 

C04B 

8 

B5 

SB 

A9 

17 

85 

59 

20 

BF 

6A 

C050 

3 

A3 

A9 

4C 

BD 

10 

0B 

A9 

F4 

5E 

C05B 

8 

BD 

11 

08 

A9 

16 

BD 

12 

08 

CB 

C060 

8 

A9 

01 

B5 

FB 

A9 

08 

B5 

FC 

55 

C068 

8 

A9 

01 

A2 

08 

A0 

01 

20 

BA 

43 

C070 

8 

FF 

A9 

0B 

A2 

BC 

A0 

C0 

20 

6C 

C07B 

8 

BD 

FF 

A9 

FB 

A2 

00 

A0 

1B 

FB 

C000 

8 

20 

DB 

FF 

A9 

01 

20 

C3 

FF 

61 

C0BB 

8 

20 

CC 

FF 

60 

53 

55 

50 

50 

DC 

C090 

8 

4F 

52 

54 

2D 

3B 

30 

32 

A9 

E4 

C09B 

8 

BE 

20 

D2 

FF 

A9 

20 

BD 

EB 

8E 

C0A0 

8 

CF 

A9 

CC 

BD 

E9 

CF 

A9 

FF 

EC 

C0AB 

3 

BD 

EA 

CF 

BD 

ED 

CF 

EA 

BD 

74 

C0B0 

8 

EB 

CF 

A9 

DD 

BD 

EC 

CF 

A9 

7C 

C0BB 

8 

20 

BD 

EE 

CF 

A9 

D2 

BD 

EF 

9C 

C0C0 

8 

CF 

A9 

FF 

BD 

F0 

CF 

A9 

1B 

7A 

C0C8 

3 

BD 

Fl 

CF 

A9 

A5 

8D 

F2 

CF 

A9 

C0D0 

8 

A9 

FB 

BD 

F3 

CF 

A9 

69 

BD 

64 

C0DB 

8 

F4 

CF 

A9 

B0 

BD 

F5 

CF 

A9 

49 

C0E0 

8 

85 

BD 

F6 

CF 

A9 

FB 

BD 

F7 

84 


C0E8 

8 

CF 

A9 

A5 

BD 

FB 

CF 

A9 

FC 

55 

C0F0 

8 

BD 

F9 

CF 

A9 

69 

BD 

FA 

CF 

31 

C0FB 

I 

A9 

02 

8D 

FB 

CF 

A9 

85 

8D 

01 

C100 

8 

FC 

CF 

A9 

FC 

BD 

FD 

CF 

A9 

49 

C10B 

: 

60 

BD 

FE 

CF 

A9 

15 

HD 

BC 

7B 

CI 10 

8 

0A 

4C 

15 

08 

4C 

15 

08 

A9 

6B 

CI 18 

8 

32 

A2 

04 

AB 

00 

20 

A4 

17 

72 

CI 20 

8 

A9 

33 

A2 

04 

M 

05 

20 

A4 

BB 

C12B 

8 

17 

A9 

34 

A2 

04 

A0 

06 

20 

13 

CI 30 

8 

A4 

17 

A2 

34 

20 

C9 

FF 

A9 

33 

C13B 

8 

14 

20 

D2 

FF 

6 V 

34 

20 

C3 

55 

C140 

8 

FF 

A9 

00 

B5 

FB 

A9 

4F 

85 

1A 

C14B 

8 

FC 

A9 

00 

BD 

FC 

17 

20 

21 

16 

CI 50 

8 

12 

EE 

FC 

17 

AC 

FC 

17 

C0 

BC 

CI 58 

8 

32 

D0 

F3 

A9 

32 

20 

C3 

FF 

58 

CI 60 

8 

A9 

33 

20 

C3 

FF 

4C 

EB 

CF 

C9 

C16B 

8 

20 

B2 

12 

D0 

OB 

A2 

32 

20 

4F 

CI 70 

8 

C9 

FF 

69 

0D 

4C 

EE 

CF 

60 

Bl 

C17B 

3 

A9 

00 

BD 

F9 

17 

A2 

32 

20 

53 

CI 80 

8 

C9 

FF 

20 

90 

17 

F0 

51 

A9 

F5 

CI 88 

3 

BD 

20 

D2 

FF 

20 

B0 

17 

A2 

03 

CI 90 

8 

33 

20 

C9 

FF 

M 

011 

B9 

F0 

1B 

C19B 

8 

17 

'.'0 

D2 

FF 

CB 

C0 

08 

D0 

CB 

C1A0 

8 

FS 

A9 

0D 

20 

D2 

FF 

A2 

32 

CD 

CI AB 

8 

20 

C9 

FF 

20 

99 

12 

A9 

FE 

80 

C1B0 

8 

20 

D2 

FF 

EE 

F9 

17 

AC 

F9 

16 

C1BB 

8 

17 

18 

AS 

FB 

69 

08 

B5 

FB 

A9 

C1C0 

3 

A5 

FC 

69 

00 

B5 

FC 

ca 

50 

22 

CI CB 

3 

B0 

03 

4C 

36 

12 

A2 

32 

20 

13 

C1D0 

8 

C9 

FF 

A9 

0D 

20 

D2 

FF 

60 

FE 


CI DB 

8 

A9 

20 

20 

D2 

FF 

4C 

6C 

12 

2C 

C1E0 

8 

A0 

00 

BC 

FA 

17 

AC 

FA 

17 

F4 

C1EB 

8 

CC 

F9 

17 

D0 

01 

60 

A9 

20 

BB 

C1F0 

3 

20 

D2 

FF 

EE 

FA 

17 

4C 

9E 

2E 

C1FB 

: 

12 

A5 

FB 

B5 

FD 

A5 

FC 

B5 

98 

C200 

a 

FE 

A9 

01 

BD 

FB 

17 

A2 

00 

CB 

C20B 

8 

A0 

00 

Bl 

FD 

09 

00 

F0 

09 

47 

C210 

8 

A9 

00 

BD 

FB 

17 

EA 

EA 

EA 

E6 

C21B 

1 

EA 

CB 

C0 

B0 

4C 

73 

17 

F0 

45 

C220 

8 

03 

4C 

C3 

12 

in 

A5 

FD 

69 

F6 

C22B 

8 

80 

85 

FD 

AS 

FE 

69 

00 

B5 

E5 

C230 

8 

FE 

1 B 

E0 

05 

D0 

73 

AD 

FB 

D2 

C238 

8 

17 

C9 

01 

60 

A2 

01 

A0 

00 

35 

C240 

8 

Bl 

FB 

C9 

00 

F0 

02 

A2 

00 

0B 

C24B 

1 

CB 

C0 

0B 

D0 

F3 

E0 

01 

60 

97 

C250 

X 

20 

BA 

FF 

A9 

00 

20 

BD 

FF 

FA 

C25B 

1 

20 

C0 

FF 

60 

7B 

A5 

01 

29 

EF 

C260 

8 

FD 

B5 

01 

A2 

00 

BA 

9D 

F0 

61 

C26B 

8 

17 

EB 

E0 

OB 

D0 

1 0 

6 V 

B0 

A9 

C270 

8 

8D 

FB 

17 

A0 

00 

Bl 

FB 

A2 

16 

C27B 

8 

00 

0A 

90 

OB 

48 

BD 

F0 

17 

67 

C2B0 

8 

0D 

10 

17 

9D 

l 0 

17 

60 

EB 

BE 

C28B 

8 

E0 

OB 

D0 

ED 

40 

FB 

17 

CB 

F9 

C290 

8 

C0 

0B 

D0 

El 

A5 

01 

09 

02 

4F 

C29B 

a 

B5 

01 

SB 

60 

EA 

EA 

EA 

EA 

47 

C2A0 

a 

EA 

EA 

EA 

BÄ 

EA 

EA 

EA 

EA 

9F 

C2AB 

8 

EA 

4C 

CI 

12 

AA 

E8 

m 

01 

A2 


Listing 7. »Support 802«, fantastische 
Grafiken auf Ihrem MPS-802-Drucker 
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C 64 


TIPS&TRICKS 


Die Statuszeile 


Dieses kurze Programm wurde aus der Not geboren, daß bei 
einem Dateiprogramm in Basic laufende Informationen über 
den aktuellen Zustand des Programms (aktueller Modus, 
freier Speicherplatz, Fehlerkanal der Floppy etc.) benötigt 
wurden. 

Das Programm »Statuszeile« (Listing 8) ist leicht von Basic 
aus zu handhaben und löst das genannte Problem. Es wird 
mit »SYS 12*4096« gestartet. Listing 9 zeigt, wie man den 
Text im Speicher ablegen muß. 

Programmerklärung (siehe dazu auch Listing 10) 

In der »INIT«-Routine werden die Zeiger des Interrupt auf 
das Programm verbogen. Ab »START« liegt das eigentliche 
Programm. In der Schleife »LOOP« wird der Text (indirekt 
adressiert mit x) gelesen und in den Bildschirmspeicher 
abgelegt. Ab »END« wird mit Hilfe der Betriebssystemroutine 
»PLOT« die Cursorposition gelesen. Ist der Cursor innerhalb 
der ersten beiden Zeilen, wird er mit der Routine »SET« in die 
dritte Zeile gesetzt. »AUS« lenkt den Interrupt auf die normale 
Interruptroutine im Betriebssystem. 

Wird mit SYS 49283 die Routine »STOP« aufgerufen, wird 
der IRQ-Zeiger wieder auf den ursprünglichen Wert gesetzt 
und das Programm somit abgeschaltet. Die Hintergrundfarbe 
der Statuszeilen läßt sich in Speicherstelle $C016 = dezimal 
49174 verändern. Der Text, der maximal 80 Zeichen umfas¬ 


NAME 

i 

STATUS 



C000 

C090 

C000 

I 

78 

A9 

KD 

BD 

14 

03 

A9 

C0 

C3 

C00B 

z 

BD 

15 

03 

5B 

60 

A2 

00 

BD 

B2 

C010 

i 

33 

C0 

9D 

00 

04 

A9 

01 

9D 

DB 

C01B 

z 

00 

DB 

E8 

E0 

50 

F0 

03 

4C 

0C 

C020 

z 

BF 

C0 

30 

20 

F0 

FF 

E0 

02 

3B 

C02B 

l 

10 

06 

1B 

A2 

02 

20 

F0 

FF 

7B 

C030 

t 

4C 

31 

EA 

D3 

D4 

CI 

D4 

D5 

A4 

C030 

t 

D3 

DA 

C5 

C9 

CC 

C5 

CE 

C5 

E5 

C040 

z 

C9 

CE 

C2 

CC 

C5 

CE 

C4 

D5 

4C 

C04B 

: 

CE 

C7 

A0 

C2 

D9 

A0 

D5 

D7 

24 

C050 

z 

C5 

A0 

D7 

C9 

CI 

D2 

C4 

D3 

02 

C05B 

z 

A0 

A0 

A0 

CI 

C3 

CB 

D4 

DA 

34 

C060 

: 

C9 

C7 

AB 

DA 

C5 

C9 

C3 

CB 

DB 

C06B 

i 

C5 

CE 

A0 

D4 

C5 

DB 

D4 

AB 

0F 

C070 

: 

A0 

AB 

AB 

D2 

C5 

D3 

D4 

AB 

72 

C07B 

z 

CI 

D5 

C6 

C6 

D5 

C5 

CC 

CC 

07 

C0B0 

s 

C5 

CE 

AB 

7B 

A9 

31 

BD 

14 

66 

C0BÖ 

: 

03 

A9 

EA 

BD 

15 

03 

5B 

60 

58 


Listing 8. 
»Status«, 
Statuszeile 
Im Interrupt 


10 

REM ST ATUSZEILENEDIT8R 

<219> 

11 

REM BY UWE WIARDS;LEMWERDER 

< 192> 

12 

IF U=1 TUEN 15 

<235> 

13 

U=1s LOAD"STATUS",8,1 

<153> 

15 

POKE 53280,PEEK(53281):POKE 650,12B 

<024> 

20 

PRINT CHR*(14); <CLR,3D0WN>STATUSZEILEN 



EDITOR BY ÜWE MIARDS<3D0WN>“ 

<037> 

25 

PRINT" <2D0WN,SPACE>.8EST MIT 'SPACE' AUF 



FUELLEN!!" 

<232> 

26 

PRINT"<2D0WN,SPACE>äTATUSZEILE IST MIT 



5.Y.5.492B3" 

<096> 

27 

PRINT" ABZUSCHALTEN!<3DOWN>" 

<041 > 

28 

PRINT"<2D0WN>£URS0RSTEUERUNG NUR MIT S 



£k' ! !“ 

< 106 > 

30 

DIM A(80):FOR 1=1 TO 80:PRINT"IRVSON,SP 



ACE,RVOFF >";s NEXT 

< 142> 

40 

PRINT"C2UP >"; 

<015> 

45 

FOR 1=1 TO 80 

<067> 

50 

BET A*:IF A*=""THEN 50 

<027> 

70 

IF A*=CHR*(13)THEN 50 

<236> 

80 

IF A*=CHR*(20)AND I>1 THEN PRINT"CLEFT, 



RVSON,SPACE,RVOFF,LEFTJ";sI=I-l:60T0 50 

<076> 

85 

IF A*=CHR*(20)THEN 50 

<246> 

90 

PRINT A*;:A <I)=ASC(A*)sNEXT 

<014> 

110 FÜR 1 = 1 TO 80s POKE 49202+I,A<I)sNEXT 

< 127> 

120 SYS 12*4096 

<253> 

Listing 9. »Editor«, so erstellt man mit Listing 8 Statuszellen 


sen kann, liegt ab dezimal 49203 und kann dort direkt hinein- 
gePOKEt werden. In Listing 9 wird in der Zeile 110 gezeigt, 
wie man das macht. 

Das Assemblerlisting ist ausführlich dokumentiert, um auch 
Anfängern das Leben leicht zu machen. 

Mit anderen Programmen, die den Interrupt beeinflussen, 
wird dieses Programm ohne Anpassung nicht laufen. 

(Uwe Wiards/tr) 


;Statuseinblendung im interupt 
; uwe wiards 

; 2874 lemwerder 

; assi-fse-assembler 4.12 (c) d.zabel 

;2statuszeilen = max 80 Zeichen 
;ab startadresse + dez 51 text! 

*=*c 000 ;programmadresse 


nzei =2 

nlett=40*nzei 

irqv=*0314 

plot=*fff 0 

norm=$ea31 

scrb=*0400 

farb=*d800 


init 


janzahl der Zeilen 
;anz. buchst. 

;irq-pointer 
;plot Cursor pos 1/s 
;norm irq 
;screenbeginn 
jfarbram beginn 


loop 


sei 

IdatKstart 
sta irqv 
lda#>start 
sta irqv +1 
cli 
rts 

start ldx #$00 

lda text,x 
sta scrb,x 
lda «*01 
sta farb,x 
inx 

cpxttnlett 
beq end 
jmp loop 

sec 5 carry setzen plot liest 
jsr plot 
cpxttnzei 
bpi aus 

clc jcarry loe. plot schreibt 
ldx#nzei 
jsr plot 
jmp norm 

.text "BTATUSZEILENEINBLENDUNG 
.text "BY UWE WIARDS 
.text "ACHTZIG ZEICHEN TEXT 
.text "REST AUFFUELLEN " 


;irq aus 
;pointer irqv 
; au-f 

;start setzen 
;lo u. hi-byte 
;irq ein 

;x initalisieren 
;adr text + x 
; adr scrb + x 
;färbe 

;setzt färbe 
;x=x + l 
;vergleiche 
;0 dann end 


end 


set 


aus 

text 


stop 


sei 

1 da#<norm 

sta irqv 

lda#>norm 

sta irqv +1 

cli 

rts 


;irq-pointer 
;auf normwert 
;zuruqcksetzen 


Listing 10. Der dokumentierte Quelltext zu Listing 8 
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TIPS&TRICKS 


C 64 


Drei nützliche Befehle 


Die Befehlserweiterung »renumber« (Listing 11) stellt Ihnen 
drei sehr nützliche Befehle zur Verfügung. Als erstes sollten 
Sie das Programm mit Hilfe des MSE eingeben und spei¬ 
chern. Danach laden Sie es wie ein normales Basic- 
Programm und starten es mit »RUN«. Der Wortschatz Ihres 
C64 umfaßt nun einige neue Kommandos: 


»-BYE« 

»-OLD« 

»-RENUMBER xy« 
»-UNPACK x,y« 


Schaltet diese Befehlserweiterung aus. 

Holt bereits mit »NEW« gelöschte Programme 
wieder in den Speicher zurück. 

Numeriert das gesamte Programm neu. Alle Zei¬ 
lennummern hinter (ON..(GOTO,GOSUB,LIST 
und RUN werden dabei berücksichtigt. 

Zieht alle Befehle, soweit dies sinngemäß erlaubt 
ist, in extra Zeilennummern. 


»-PACK x,y,z« Fügt die einzelnen Befehle eines Programmes so 

eng wie möglich zusammen. 

x,y und z sind hier Variablen für Zahlen zwischen 0 und 
63999, wobei x (Defaultwert 0) die Anfangszeilennummer 
des neuen Programmes, y (Defaultwert 1) den Abstand der 
einzelnen Zeilennummern und z (Defaultwert 253) die maxi¬ 
male Zeilenlänge in Bytes darstellen. 

Es ist so auch möglich, eine kleinere Zeilennummer einer 
größeren folgen zu lassen (zum Beispiel zum Programm¬ 
schutz). Man muß hier nur die Anfangszeilennummer oder die 
Schrittweite groß genug wählen. (Das kommt daher, daß die 
Summe zweier 16-Bit-Zahlen eine 17-Bit-Zahl ergeben kann, 
wobei das 17. Bit aus Speicherplatzmangel intern unter den 
Tisch fallengelassen wird.) Inwieweit dies sinnvoll ist, sei 
jedem selbst überlassen. Es sei aber vielleicht noch erwähnt, 
daß weder der Basic-Interpreter noch dieses Programm bei 
einem Sprungbefehl eine kleinere Zeilennummer hinter einer 
größeren vermuten (Fehlermeldung). 

Die Defaultnummer der maximalen Zeilenlänge (z) wurde 
aus gutem Grund »nur« auf 253 gesetzt. Bei diesem Wert ist 
noch ein einwandfreies Laden, Listen und Verbessern mög¬ 
lich. 

Wird z größer als 253 gewählt, so können folgende Pro¬ 
bleme auftreten: 

a) Beim Laden erscheint kein Cursor mehr. Dies tritt auf, 
weil der Basic-Interpreter nach jedem Laden versucht, das 
Basic-Programm neu zu »binden«. Falls 256 Byte lang kein 
OO-Byte auftritt, sucht er sich praktisch zu Tode. Abhilfe 
schaffen (vor dem Laden) folgende Eingaben: 

P0KE44,191 

LOAD "name", 8,1 
P0KE44,8 

b) Ein List-Befehl listet nicht mehr das gesamte Programm. 
Falls eine Zeile mit mehr als 253 Zeichen auftritt, so werden 
nur diese aufgelistet und dann abgebrochen. 


Es ist jetzt auch nicht mehr möglich, das Programm zu ver¬ 
ändern (Programmierschutz). 

Eine dritte Schwierigkeit wird vom Programm selbständig 
behoben. Ein Sprungbefehl über 253 Nicht-Null-Bytes einer 
Zeile ist nicht möglich. 

Das Programm akzeptiert auch offengelassene Anfüh¬ 
rungsstriche und schließt sie bei einem Pack-Befehl selb¬ 
ständig. 

Beispielsweise wird das folgende Basicprogramm 
5 PRINTCHR$(l47);:B$="" 

10 IFLEN(B$)< 25 5 THENGETA$:B$=B$+A$ 

15 PRINTB$:P0KE53281,PEEK(53281)-1:G0T010 
durch »-UNPACK« zu 
0 PRINTCHR$(l47); 

1 B$= ** 

2 IFLEN(B$)<255THENGETA$:B$=B$+A$ 

3 PRINTB$ 

4 P0KE53281,PEEK(53281)-1 

5 G0T02 

und durch »-PACK 5,5« wieder zu ersterem. 

Daß das Programm arbeitet, sieht man an dem blinkenden 
Stern am Bildschirmrand rechts oben. 

Bei einem »PACK«-Befehl ändert der Stern mehrmals die 
Farbe, da hier zusätzlich ein »UNPACK«- und ein »RENUM- 
BER«-Befehl durchgeführt wird. 

Fehlermeldungen 

Während der Arbeit gibt das Programm Fehlermeldungen 
in folgendem Format aus: 
xx yyyyy zzzzzzz, wobei 

xx eine interne Fehlernummer, 

yyyyy die neue Fehlernummer, in welcher der Fehler 

auftritt 


zzzzzzz die Fehlermeldung selber ist. 

Es qibt folgende Fehlermeldungen: 

SynthA -rror Eventuelle Variablen als Sprungadressen kön¬ 

nen nicht geändert werden. 

No such line Sprungbefehl zu einer nicht existierenden Zeile 

Illegal line number Zeilennummer zu groß 

Zeilennummern, die nicht gefunden werden, werden bei 
den letzten beiden Fehlern einheitlich in 64000 geändert. 
Hier besteht keine »Verwechslungsgefahr«, da in Basic keine 
Zeilennummern ab 63999 eingegeben werden können. 
Sonstiges 

Das Programm benötigt nur den Speicherbereich von 
$C000 bis SCFFF. Zu eventuellen Programmiererweiterun¬ 
gen verhält sich »renumber« tolerant, sofern sich nicht die 
Speicherbereiche überlappen. Hierzu sollte »renumber« als 
letzteres geladen werden. Zweimaliges Initialisieren führt 
zum Absturz. 


(Michael Rothmeier/tr) 
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Llstlng 11. »Renumbers« (Fortsetzung). 
Bitte mit dem MSE eingeben. 
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Listing 11. 
»Renumber« 

13D9 

13E1 

x 

01 

42 

60 

4D 

11 

55 

34 

4E 

36 

45 

20 

52 

52 

12 

45 

11 

0D 

3A 

13E9 

• 

05 

93 

00 

00 

00 

00 

00 

00 

BB 

(Schluß) 


Die etwas andere Dateiverwaltung 


»TAXI-SCHOOL« (Listing 12) ist ein System, welches die 
Erstellung von Dateien mit maximal 512 Zeilen x 24 Zeichen 
erlaubt. Das Besondere an diesem System ist die Möglich¬ 
keit, die einzelnen Zeilen auf bestimmte Weise zu verknüp¬ 
fen. 

1. Starten des Programms 

- Laden Sie das Programm mit »LOAD"TAXI-SCHOOL",8« 

- Starten Sie das Programm mit »RUN« 

- Das Programm verwendet einen anderen Zeichensatz 
(Listing 13), als ihn der C 64 zur Verfügung stellt. Dieser Zei¬ 
chensatz wird automatisch geladen. Er muß auf der Diskette 
unter dem Namen »SIGNS« gespeichert sein. Er beinhaltet 
einige Sonderzeichen, die zusammen mit der Commodore- 
Taste aufgerufen werden können. 

- Wollen Sie einen eigenen Zeichensatz verwenden, so muß 
dieser unter dem Namen »SIGNS« auf Diskette gespeichert 
sein und von $C000 bis $C800 gehen (also nur ein einfa¬ 
cher Zeichensatz von 256 Zeichen). 

2. Editieren von Dateien 

- Es stehen 512 Zeilen x 24 Zeichen zur Verfügung. 

- Eine Zeile wird durch < RETURN > in den Speicher über¬ 
nommen. 

- <HOME> setzt den Cursor an den Anfang der Zeile. 

- <CLR> löscht die Cursorzeile (der Speicher bleibt 
dadurch unberührt. 

- < CTRL @ > löscht den gesamten Speicher. 

- Die Cursortasten haben ihre übliche Funktion. 
Funktionstasten: 

F2: insert 

- Alles ab Cursorzeile wird um eine Zeile hinuntergeschoben. 
Die Cursorzeile wird dadurch für einen Eintrag frei. 

- Diesen Befehl sollten Sie nicht mehr verwenden, wenn Sie 
die »BASIS-STREET«-Beziehungen bereits festgelegt haben 
(siehe dazu etwas weiter unten). 

F4: delete 

- Die Cursorzeile wird gelöscht. Alle übrigen Einträge rücken 
auf. 

- Für diesen Befehl gilt das gleiche wie für den Insert-Befehl. 

3. Laden und Speichern von Dateien 

F6: load 

- Die Zeichen links vom Cursor werden als Filename interpre¬ 
tiert und der Befehl »LOAD"(FILENAME)",8,1« ausgeführt. 

- Wurde ein $-Zeichen eingegeben, so erscheint das Inhalts¬ 
verzeichnis der Diskette. 


F8: save 

- Die Zeichen links vom Cursor werden als Filename interpre¬ 
tiert und der Befehl »SAVE"(FILENAME)".8,1« ausgeführt. 

- Es wird von der ersten bis zur Zeile über dem Cursor (ein¬ 
schließlich) unter dem angegebenen Filenamen auf der Dis¬ 
kette gespeichert. 

4. Die BASIS-STREET-Verbindungen 

Das Programm gibt Ihnen die Möglichkeit, zu jeder der 512 
Zeilen 20 Zeilen als Unterzeilen zu bestimmen. Eine Unter¬ 
zeile bezeichnen wir mit »STREET«. Jede Zeile ist »BASIS«, 
aber nur die auserwählten Zeilen sind »STREETS«. 

Wollen Sie eine Zeile als »STREET« kennzeichnen, so muß 
vorher festgelegt worden sein, welche Zeile die »BASIS« ist. 
F3: basis 

- Bringen Sie den Cursor in die Zeile, die die »BASIS« sein 
soll. 

- Drücken Sie < F3 >. 

- Bis zum nächsten < F3 > liegt die »BASIS« nun fest. 

F5: Street 

- Bringen Sie den Cursor in die Zeile, die Sie als »STREET« 
kennzeichnen wollen. 

- Drücken Sie <F5>. 

- Die Zeile wird als »STREET« zur aktuellen »BASIS« gekenn¬ 
zeichnet. 

Wollen Sie zu einer beliebigen Zeile die dazugehörigen 
»STREETS« auflisten lassen, so benutzen Sie dazu den 
Drive-Befehl < F7 >. Dazu muß in der Cursorzeile der Inhalt 
der Zeile stehen, zu der Sie die »STREETS« auflisten wollen. 
Dies können Sie erreichen, indem Sie den Cursor in die ent¬ 
sprechende Zeile bringen oder den Text in die aktuelle Zeile 
schreiben. 

F7: drive 

- Es wird die ausgewählte »BASIS« am oberen Feldrand aus- 
gegc 1 n und darunter mit zwei Zeilen Abstand die dazuge¬ 
hörigen »STREETS«. 

- Durch diesen Befehl werden die Funktionen < F3 > und 
< F5> sowie das Übernehmen einer Zeile in den Speicher 
durch < RETURN > ausgeschaltet. Das heißt, daß bis zum 
nächsten < Fl > oder Scrollen keine »BASIS« oder 
»STREET« gekennzeichnet werden kann und auch keine 
Zeile in den Speicher übernommen wird. 

- Bewegen Sie den Cursor aus dem Feld oder rufen Sie den 
Search-Befehl auf, so wird zurück in die Liste gesprungen. 
Jetzt sind alle Befehle wieder aktiv. 

Zum Auffinden einer bestimmten Zeile dient der Search- 
Befehl <F1 >. 

Fl: search 

- Es wird ein CLR ausgeführt. 

- Beim nächsten < RETURN > wird nach einer Zeile 
gesucht, die mit der gleichen Zeilenfolge beginnt wie die 
aktuelle Cursorzeile. 

- Zeichen, die aus dem Vergleich ausgeschlossen werden 
sollen, können durch ein »?« ersetzt werden. 

Anwendungsbeispiel Taxischule 

Beginnen Sie damit, die Straßennamen Ihrer Stadt zu spei¬ 
chern. Ordnen Sie die Straßen zum Beispiel nach Ortsteilen. 
In jeder Zeile steht nun ein Straßenname. Kennzeichnen Sie 
nun nacheinander die einzelnen Straßen als »BASIS« und die 
davon abzweigenden Straßen als »STREETS«. 

Einige Zeilen können auch Informationen enthalten wie 
»Einbahnstraße« oder »Kirche« oder ähnliches. Soll einer 
Straße eine Information zugeordnet werden, so wird die 
Straße als »BASIS« gekennzeichnet und die Information als 
»STREET«. 

Es kann auch der Name einer anderen Datei als »STREET« 
zu einer »BASIS« dienen. Sie erhalten beim Auflisten der 
»STREETS« dann zum Beispiel die Information, daß die 
Straße in einem anderen Ortsteil weitergeht.- 
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C 64 


TIPS&TRICKS 


Haben Sie die Dateien nach Ihren Vorstellungen erstellt 
und gespeichert, können Sie Ihre Lernfortschritte mit diesem 
Programm testen. Dazu wählen Sie zunächst einen 
Ausgangs- und einen Endpunkt. 

Bringen Sie dann den Cursor in die Zeile, in der der Aus¬ 
gangspunkt steht. Drücken Sie nun < F7 >. Es wird der Aus¬ 
gangspunkt angezeigt und alle davon aus erreichbaren Stra¬ 
ßen. Wählen Sie eine aus und drücken Sie wieder <F7>. 
Dies wiederholen Sie so lange, bis Sie Ihr gewähltes Ziel 


erreicht haben. Sollte letzteres nicht gelingen, so haben Sie 
den Stadtplan noch nicht richtig im Kopf und müssen noch 
lernen. 

Für diese oder ähnliche Anwendungen wurde das Pro¬ 
gramm »TAXI-SCHOOL« entwickelt. Da es sich im Grunde 
jedoch um ein kleines Datenbank-System handelt, können 
Sie natürlich auch andere Probleme damit bewältigen (Notiz¬ 
buch, Wörterbuch und so weiter). 

(Christoph Gladenbeck/tr) 
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